Probleme de selection de données VBA
Résolu
Feudora
Messages postés
82
Date d'inscription
Statut
Membre
Dernière intervention
-
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un petit soucis avec ma macro VBA
Je l'ai écrite dans la feuille Feuil 2 ou en cliquant sur un bouton que j'ai mis cela va me créer une nouvelle feuille nommée XXX avec de nouvelles données. J'aimerai y créer un graphique mais pour cela je dois donner à excel une plage de données j'utilise cette macro pour cela :
Sauf que cela me selectionne les cellules de Feuil2 et non de la feuille XXX (ceque je voudrais)
J'espere avoir été assez clair
Si quelqu'un peut m'aider
Merci
J'ai un petit soucis avec ma macro VBA
Je l'ai écrite dans la feuille Feuil 2 ou en cliquant sur un bouton que j'ai mis cela va me créer une nouvelle feuille nommée XXX avec de nouvelles données. J'aimerai y créer un graphique mais pour cela je dois donner à excel une plage de données j'utilise cette macro pour cela :
With ActiveSheet
Set x = Range(Cells(Cells(22, 8) + 6, 2), Cells(Cells(22, 8) * 5 + 16, 2))
Set y = Range(Cells(Cells(22, 8) + 6, Nbtrain + 2), Cells(Cells(22, 8) * 5 + 16, Nbtrain + 2))
End With
Sauf que cela me selectionne les cellules de Feuil2 et non de la feuille XXX (ceque je voudrais)
J'espere avoir été assez clair
Si quelqu'un peut m'aider
Merci
1 réponse
-
Bonjour,
Je pense que vous avez oublié d'utiliser votre syntaxe avec With.
Du coup le code prend la feuille 2 et pas l'ActiveSheet actuellement.
Moi j'écrirais le code ainsi :
With ActiveSheet Set x = .Range(Cells(Cells(22, 8) + 6, 2), Cells(Cells(22, 8) * 5 + 16, 2)) Set y = .Range(Cells(Cells(22, 8) + 6, Nbtrain + 2), Cells(Cells(22, 8) * 5 + 16, Nbtrain + 2)) End With
Donc avec des "." devant Range.
Cordialement.
