Probleme de selection de données VBA

Résolu/Fermé

Feudora Messages postés 81 Date d'inscription mardi 5 juillet 2016 Statut Membre Dernière intervention 2 décembre 2016 - 3 août 2016 à 13:37
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 3 août 2016 à 16:51

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 :

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
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
Célia doit nettoyer le tableau ci-dessous pour l’ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau

1 réponse

Réponse 1 / 1

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
3 août 2016 à 16:51

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.

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Exemple de base de données access

Erreur d'exécution 13 Incompatibilité de type

erreur d'execution 9, l'indice n'appartient pas à la sélection

Bonjour, impossible de trouver le pilote Acquisition de données PCI

Discussions similaires

Newsletters