VBA Excel Certaines macros ne sont plus accessibles

Question

Bonjour à tous,

En réorganisation de mon projet, je déplace mes macros dans les différents modules.

Et dans un même module, certaines macros ne sont plus visibles dans la fenêtre manuelle de visualisation des macros ? alors que d'autres, dans le même module, le sont.

Ces macros ont été transportés d'un module à l'autre par "copier/coller".

Qu'en pensez vous ?

merci d'avance de vos réponses, Cordialement Jean-Pierre

Answer 1

Bonjour,

Je ne comprends pas. La macro ne peut pas apparaître dans la fenêtre d'exécution des macros à partir du moment où elle a besoin de paramètres pour fonctionner. Dans toutes les versions d'Excel. La macro ne se sert d'ailleurs pas des paramètres Target et Cancel (sauf pour récupérer la ligne et la colonne de Target). Elle travaille sur la plage de cellules sélectionnées.

A quoi servent ces paramètres ?

Essaie comme ça :

Sub orangeA()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 49407 ' orange
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Offset(, 1).Select
End Sub

Daniel

Answer 2

Bonjour Daniel et merci de ta réponse,

Mais je ne sais pas sur quelle cellule je suis.

C'est pour cela que j'essaie de connaitre target.

Tout marchait bien jusqu'au moment où j'ai voulu me placer sur la cellule à droite de celle dont je modifie la couleur ! Bien sûr puisque je ne faisais QUE modifier la couleur !

Comment puis je obtenir target via une autre macro ?

sans connaitre la cellule où je me trouve ?

Cordialement Jean-Pierre

Answer 3

Normal. Pour exécuter la macro, il faut lui passer les paramètres "Target" et "Cancel". Tu ne peux donc la lancer que depuis une autre macro qui lui fournira ces deux paramètres, genre :

Sub test()

orangeA Range("A1"), True
End Sub

Les macros avec des paramètres n'apparaissent pas dans la fenêtre des macros.

Daniel

Answer 4

Bonjour Daniel

Elles ont toutes le même paramètre, telles que celle-ci :

Sub orangeA(ByVal target As Range, Cancel As Boolean)

ligne = target.Row

colonne = target.Column

' Ctrl o

With Selection.Interior 

    .Pattern = xlSolid 

    .PatternColorIndex = xlAutomatic 

    .Color = 49407                 ' orange 

    .TintAndShade = 0 

    .PatternTintAndShade = 0 

End With 

Range(ligne, colonne + 1).Select

End Sub

Cordialement Jean-Pierre

Answer 5

Bonjour,

Les macros sont-elles marquées "private" ? Ont-elles des paramètres ? Sinon, publie le code de l'une de ces macros.

Cordialement.

Daniel