Activation des Boutons

Le
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.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
j
Le #363088
essaie de retirer tes "selection."
Range("a1:d10").Select devrait suffire (si tu cherches à sélectionner
a1:d10)



"Grosmou" 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


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




Grosmou
Le #363051
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 ??

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



"Grosmou" 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


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








sabatier
Le #363046
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 ??

"" 404a4ec2$0$305$

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



"Grosmou" 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




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












Jean-Claude
Le #362993
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" 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


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




FxM
Le #363371
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

Publicité
Poster une réponse
Anonyme