Bonjour à toutes et tous. Sans oublier les traditionnels voeux.
Je débute en VBA et bloque devant les problèmes suivants:
Je filtre des données avec la syntaxe
Sheets("Env_Mat").Range("A2:B64999").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("F1"),
Unique:=True
Puis je trie les datas de la 2ème colonne avec
Columns("G:G").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Mais je souhaite évoluer vers la droite avec une boucle de type
compteur.
Et c'est là que le bât blesse: CopyToRange:=Range("F1") semble refuser
une référence du type R1C1 que j'arrive à incrémenter,
Columns("G:G").Select et Key1:=Range("G1") me posant le même problème.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour PG,
tu peux utiliser une variable numérique pour la colonne, disons x CopyToRange:Îlls(1, x)
meilleurs voeux à toi également isabelle
Bonjour à toutes et tous. Sans oublier les traditionnels voeux.
Je débute en VBA et bloque devant les problèmes suivants:
Je filtre des données avec la syntaxe Sheets("Env_Mat").Range("A2:B64999").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("F1"), Unique:=True
Puis je trie les datas de la 2ème colonne avec Columns("G:G").Select Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Mais je souhaite évoluer vers la droite avec une boucle de type compteur. Et c'est là que le bât blesse: CopyToRange:=Range("F1") semble refuser une référence du type R1C1 que j'arrive à incrémenter, Columns("G:G").Select et Key1:=Range("G1") me posant le même problème.
Quelqu'un peut-il m'aider sur ce coup ?
Merci d'avance
PG
bonjour PG,
tu peux utiliser une variable numérique pour la colonne, disons x
CopyToRange:Îlls(1, x)
meilleurs voeux à toi également
isabelle
Bonjour à toutes et tous. Sans oublier les traditionnels voeux.
Je débute en VBA et bloque devant les problèmes suivants:
Je filtre des données avec la syntaxe
Sheets("Env_Mat").Range("A2:B64999").AdvancedFilter
Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("F1"),
Unique:=True
Puis je trie les datas de la 2ème colonne avec
Columns("G:G").Select
Selection.Sort Key1:=Range("G1"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Mais je souhaite évoluer vers la droite avec une boucle de type
compteur.
Et c'est là que le bât blesse: CopyToRange:=Range("F1") semble refuser
une référence du type R1C1 que j'arrive à incrémenter,
Columns("G:G").Select et Key1:=Range("G1") me posant le même problème.
tu peux utiliser une variable numérique pour la colonne, disons x CopyToRange:Îlls(1, x)
meilleurs voeux à toi également isabelle
Bonjour à toutes et tous. Sans oublier les traditionnels voeux.
Je débute en VBA et bloque devant les problèmes suivants:
Je filtre des données avec la syntaxe Sheets("Env_Mat").Range("A2:B64999").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:B2"), CopyToRange:=Range("F1"), Unique:=True
Puis je trie les datas de la 2ème colonne avec Columns("G:G").Select Selection.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Mais je souhaite évoluer vers la droite avec une boucle de type compteur. Et c'est là que le bât blesse: CopyToRange:=Range("F1") semble refuser une référence du type R1C1 que j'arrive à incrémenter, Columns("G:G").Select et Key1:=Range("G1") me posant le même problème.
Quelqu'un peut-il m'aider sur ce coup ?
Merci d'avance
PG
Chui Perdu
Bonjour,
Merci Isabelle. Ca marche au petit poil.
@+
"isabelle" a émis l'idée suivante :
bonjour PG,
tu peux utiliser une variable numérique pour la colonne, disons x CopyToRange:Îlls(1, x)
Bonjour,
Merci Isabelle.
Ca marche au petit poil.
@+
"isabelle" a émis l'idée suivante :
bonjour PG,
tu peux utiliser une variable numérique pour la colonne, disons x
CopyToRange:Îlls(1, x)
