XL 2016 format du code

[doclaude]

bonjour
j'ai une partie du code d'une macro qui ne se formate pas correctement (la majuscule en début de mot clé)
selection.AutoFilter
selection.AutoFilter Field:=2, Criteria1:="="
selection.AutoFilter Field:=21, Criteria1:=Array("+21 ans", "-21 ans"), Operator:=xlFilterValues
selection.SpecialCells(xlVisible).Select
selection.Copy Sheets("Sabbatiques").Range("a1")
le code fonctionne correctement, c'est juste que je ne comprends pas
c'est la première fois que cela m'arrive et c'est un peu dérangeant
Quelqu'un a une idée ?
merci d'avance
Claude

 

[sylvanu]

Bonjour Doclaude,
Expliqué comme ça, c'est plutôt ... nébuleux.
Vous ne comprenez pas quoi ? Quel est le souci?
Peut on avoir un petit fichier exemple ?

 

[Staple1600]

Bonjour le fil, doclaude, sylvanu

•>doclaude
Ainsi écrit (TestA) je n'ai pas de majuscule
PS: TestB fait la même chose (ou presque)

Sub Test_A()
Dim selection As Range
Set selection = Range("$A$1:$U$8")
selection.AutoFilter
selection.AutoFilter Field:=2, Criteria1:="="
selection.AutoFilter Field:=21, Criteria1:=Array("+21 ans", "-21 ans"), Operator:=xlFilterValues
selection.SpecialCells(xlVisible).Select
selection.Copy Sheets("Sabbatiques").Range("a1")
End Sub
Sub Test_B()
ActiveSheet.Range("$A$1:$U$8").AutoFilter Field:=21, Criteria1:=Array("+21 ans", "-21 ans"), Operator:=xlFilterValues
ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheets("Sabbatiques").Range("a1")
End Sub

 

[doclaude]

bonjour
c'est bête :
d'habitude quand j'écris le code
selection.delete
ou
selection.autoFilter

l'éditeur me transforme aussitôt le code en
Selection.Delete
ou
Selection.AutoFilter
(ce qui est bien pratique pour trouver les erreurs)

et là ça ne marche pas (comme montré dans le bout de code du premier message)
ce qui n'empêche pas le code de fonctionner normalement
Claude

 

[Staple1600]

Re

•>doclaude
Voir message#3
Est-ce qu'on est on pas dans ce cas de figure?

 

[sylvanu]

Bonjour Doclaude, Staple,

Juste un essai qui expliquerait :
Cas où selection est déclaré comme variable :

Sub Test1()
Dim selection As Range
Set selection = Range(("A:A"))
selection.AutoFilter
End Sub

Cas où selection est utilisé comme mot clé :

Sub test()
Range("A:A").Select
Selection.AutoFilter
End Sub

Utilisé comme variable, selection s'écrit comme déclaré.
Utilisé comme mot clé, selection prend automatiquement une majuscule car reconnue par le VBA.

Ceci dit, utiliser selection comme variable ...

 

[Staple1600]

Re

•>sylvanu
Tu as apparemment zappé le message#3, non !!
Mais bon, un homme averti en vaut quatre (surtout si on l'avertit deux fois)

 

[sylvanu]

Re,
Staple, il est rare que je zappe des post surtout émanant de vous.
Je donnais juste un petit exemple peut être plus explicite à Doclaude car dans votre TestB il n'y avait pas le mot clé Selection.
C'est tout. Juste un petit addon.

 

[doclaude]

bonjour
merci à vous de vos réponses
effectivement à un moment j'ai nommé une macro"Selection"
(je devais avoir la tête ailleurs)
ça a fichu le b... et j'ai cherché puis renommé la macro
je pense que c'est là que les problèmes de format sont apparus
mais avoir renommé la sub n'a pas corrigé le problème
bon ! le code fonctionne normalement, c'est le principal
je vais essayer de détruire le code et le reconstituer

Claude

 

[Staple1600]

Re,

•>sylvanu
Dans Test_A, il y avait selection, non?
Le Test_B, c'était juste un bonus.

Mais m'est avis, qu'on se trompe tout les deux
(Nul doute que docclaude se souviendrait d'avoir mis dans son code un truc du genre: Dim selection As Range, non ?)

PS: Sans soute trop habitué aux échanges d'antan entre XLDiens, où nous renvoyions la balle avec des echanges du genre
"Tout comme X dans le message#3, je penche pour la même piste etc..."

 

[sylvanu]

Re,
Pour une raison qui m'échappe, il est un phénomène étrange.
Si on met ce code dans le même module :

Sub Test1()
Dim selection As Range
Set selection = Range(("A:A"))
selection.AutoFilter
End Sub

Sub Test2()
Range(("A:A")).Select
selection.AutoFilter
End Sub

Et bien dans le Test2 selection ne prend pas de majuscule alors qu'il n'est pas déclaré en variable, et que son comportement est bien celui de Selection.
Bizarre, mais bon, on est quand même en dehors des règles minimales de codage.

 

[Dranreb]

Bonjour.
Mettez une étiquette "Selection:", puis supprimez la quand sa casse normale sera ainsi alors rétablie.

 

[Staple1600]

Re

•>sylvanu
cf mon édition du précédent message
Sinon pourquoi les deux ( en trop ?)
Effectivement idem chez moi

Sub Test1()
Dim selection As Range
Set selection = Range("A:A")
selection.AutoFilter
End Sub
Sub Test2()
Range("A:A").Select
selection.AutoFilter
End Sub

 

[Staple1600]

Bonjour Dranreb

Merci pour l'astuce

 

[Dranreb]

C'est un autre sujet mais de la même sorte: Pour rétablir la casse souhaitée d'une fonction personnalisée dans des formules: créer un nom dans le classeur avec la bonne casse, puis, pareil, supprimez le.