Probleme de selection de données VBA
Résolu
Feudora
Messages postés
81
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
A voir également:
- Probleme de selection de données VBA
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Barre de données excel pourcentage 100 ✓ - Forum Excel
- Trier des données excel - Guide
- Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
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 :
Donc avec des "." devant Range.
Cordialement.
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.