Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Activation des Boutons

Activation des Boutons

5 réponses
Avatar
Grosmou
Bonsoir tous le monde
Je suis débutant et donc je vous prie de m'excuser de mes difficultés de
comprenures.

Voilà mon pb:
J'ai créer des boutons auxquels j'ai fais des référence de plage

Private Sub CommandButton2_Click()

Sheets(2).Select
Selection.Range("a1:d10").Activate

End Sub

Private Sub CommandButton3_Click()
Sheets(2).Select
Selection.Range("a15:d17").Activate

End Sub

Private Sub CommandButton4_Click()
Sheets(2).Select
Selection.Range("a19:d20").Activate
End Sub

Private Sub CommandButton5_Click()
Sheets(2).Select
Selection.Range("a25:d26").Activate
End Sub
Le pb c'est que lorsque je clique sur le bouton 1; je vais dans la plage de
référence mais dès que je clique sur un autre bouton j'atterris ailleurs où
je n'ai pas placer de référence. Pourquoi . Merci d'avance.
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
j
essaie de retirer tes "selection."
Range("a1:d10").Select devrait suffire (si tu cherches à sélectionner
a1:d10)



"Grosmou" a écrit dans le message de news:
u#
Bonsoir tous le monde
Je suis débutant et donc je vous prie de m'excuser de mes difficultés de
comprenures.

Voilà mon pb:
J'ai créer des boutons auxquels j'ai fais des référence de plage

Private Sub CommandButton2_Click()

Sheets(2).Select
Selection.Range("a1:d10").Activate

End Sub

Private Sub CommandButton3_Click()
Sheets(2).Select
Selection.Range("a15:d17").Activate

End Sub

Private Sub CommandButton4_Click()
Sheets(2).Select
Selection.Range("a19:d20").Activate
End Sub

Private Sub CommandButton5_Click()
Sheets(2).Select
Selection.Range("a25:d26").Activate
End Sub
Le pb c'est que lorsque je clique sur le bouton 1; je vais dans la plage
de

référence mais dès que je clique sur un autre bouton j'atterris ailleurs
où

je n'ai pas placer de référence. Pourquoi . Merci d'avance.




Avatar
Grosmou
Merci,
Mais j'ai retiré les Selection mais il me dit alors "Erreur d'exécution
1004. La méthode Select de la Classe Range a échoué ??

Que faire ??

"" a écrit dans le message news:
404a4ec2$0$305$
essaie de retirer tes "selection."
Range("a1:d10").Select devrait suffire (si tu cherches à sélectionner
a1:d10)



"Grosmou" a écrit dans le message de news:
u#
Bonsoir tous le monde
Je suis débutant et donc je vous prie de m'excuser de mes difficultés de
comprenures.

Voilà mon pb:
J'ai créer des boutons auxquels j'ai fais des référence de plage

Private Sub CommandButton2_Click()

Sheets(2).Select
Selection.Range("a1:d10").Activate

End Sub

Private Sub CommandButton3_Click()
Sheets(2).Select
Selection.Range("a15:d17").Activate

End Sub

Private Sub CommandButton4_Click()
Sheets(2).Select
Selection.Range("a19:d20").Activate
End Sub

Private Sub CommandButton5_Click()
Sheets(2).Select
Selection.Range("a25:d26").Activate
End Sub
Le pb c'est que lorsque je clique sur le bouton 1; je vais dans la plage
de

référence mais dès que je clique sur un autre bouton j'atterris ailleurs
où

je n'ai pas placer de référence. Pourquoi . Merci d'avance.








Avatar
sabatier
essaie de rajouter ActiveSheet. devant tes Range("A1:D10") peut-être?

ActiveSheet.Range("A1:D10").Select

je subodore que la proc de ton bouton n'est pas écrite dans le module de
la feuille où tu travailles...
HTH
jps


Grosmou a écrit:
Merci,
Mais j'ai retiré les Selection mais il me dit alors "Erreur d'exécution
1004. La méthode Select de la Classe Range a échoué ??

Que faire ??

"" a écrit dans le message news:
404a4ec2$0$305$

essaie de retirer tes "selection."
Range("a1:d10").Select devrait suffire (si tu cherches à sélectionner
a1:d10)



"Grosmou" a écrit dans le message de news:
u#

Bonsoir tous le monde
Je suis débutant et donc je vous prie de m'excuser de mes difficultés de
comprenures.

Voilà mon pb:
J'ai créer des boutons auxquels j'ai fais des référence de plage

Private Sub CommandButton2_Click()

Sheets(2).Select
Selection.Range("a1:d10").Activate

End Sub

Private Sub CommandButton3_Click()
Sheets(2).Select
Selection.Range("a15:d17").Activate

End Sub

Private Sub CommandButton4_Click()
Sheets(2).Select
Selection.Range("a19:d20").Activate
End Sub

Private Sub CommandButton5_Click()
Sheets(2).Select
Selection.Range("a25:d26").Activate
End Sub
Le pb c'est que lorsque je clique sur le bouton 1; je vais dans la plage


de

référence mais dès que je clique sur un autre bouton j'atterris ailleurs


où

je n'ai pas placer de référence. Pourquoi . Merci d'avance.












Avatar
Jean-Claude
Salut,
Et en utilisant des références absolues
Exemple
Private Sub CommandButton2_Click()

Sheets(2).Select
Selection.Range("$a$1:$d$10").Activate
end sub
A+
Jc
"Grosmou" a écrit dans le message de
news:u%
Bonsoir tous le monde
Je suis débutant et donc je vous prie de m'excuser de mes difficultés de
comprenures.

Voilà mon pb:
J'ai créer des boutons auxquels j'ai fais des référence de plage

Private Sub CommandButton2_Click()

Sheets(2).Select
Selection.Range("a1:d10").Activate

End Sub

Private Sub CommandButton3_Click()
Sheets(2).Select
Selection.Range("a15:d17").Activate

End Sub

Private Sub CommandButton4_Click()
Sheets(2).Select
Selection.Range("a19:d20").Activate
End Sub

Private Sub CommandButton5_Click()
Sheets(2).Select
Selection.Range("a25:d26").Activate
End Sub
Le pb c'est que lorsque je clique sur le bouton 1; je vais dans la plage
de

référence mais dès que je clique sur un autre bouton j'atterris ailleurs
où

je n'ai pas placer de référence. Pourquoi . Merci d'avance.




Avatar
FxM
Bonjour,

sabatier wrote:
essaie de rajouter ActiveSheet. devant tes Range("A1:D10") peut-être?

ActiveSheet.Range("A1:D10").Select

je subodore que la proc de ton bouton n'est pas écrite dans le module de
la feuille où tu travailles...


et/ou que le .takefocus du bouton n'est à pas à false ..

@+
FxM