Activation cellule

Bonjour,

Quelqu'un aurais une petite solution pour moi.....

J'ai essyé , mais ca marche pas.

J'aimearis que lorsque je click sur mon bouton ma cellule a10 ou a 43 soit activé.

Si g2 (cellule teste)=a10 (cellule texte) ou a43 (cellule texte)

Quand je click sur mon bouton cela activé l'une des deux.

Si quelqu'un à la solution il me rendrais bien service....

@+

Bonsoir,

je ne comprends pas trop, peux tu etre plus clair

quel est la condition pour activer A10 ou A43 lorsque tu click sur un bouton?

cordialement

Re,

je ne sait pas si j'ai compris mais regarde cela et dis moi.

https://www.excel-pratique.com/~files/doc/SNOXybouton.xls

Cordialement

Salut le forum

Si tu penses utiliser plusieurs conditions, en complément du code de Maguetlolo

Private Sub CommandButton1_Click()
Select Case [G2]
  Case [A10]
    [A10].Activate
  Case [A43]
    [A43].Activate
  Case Else
    MsgBox ("Pas de correspondance")
End Select
End Sub

Mytå

La condition pour activer a 10 ou a 43 c'est que G2 doit être identique à l'une des 2.

Merci beaucoup,

Pb Résolu.

Re le forum

Steph033, tu n'oublies pas une petite formalité ...

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :

j'ai voulu rajouter des cellules

Si g2 (cellule teste)=a30 (cellule texte) ou a50 (cellule texte)

Cela active a30 ou a 50 en clickant sur mon bouton .

Mais cela ne fonctionne pas

Private Sub CommandButton1_Click()

If Range("G2") = Range("A10") Then

Range("A10").Activate

Else

If Range("G2") = Range("A43") Then

Range("A43").Activate

End If

End If

End Sub

Voila ce que j''avais utilisé ce qui fonctionné très bien

bonjour à tous,

J'ai mis à la suite de maguetlolo, un bouton 2

à tester

https://www.excel-pratique.com/~files/doc/SNOXybouton2.xls

Claude.

Bonjour,

cette partie la est a rajouter et modifié

Else

If Range("G2") = Range("A43") Then

Range("A43").Activate

End If

mais si tu en a beaucoup, essaie la macro a Myta.

Cordialement

Génial, ca marche....

re,

on aimerait bien savoir qu'est-ce qui marche ?

tu as eu 3 ou 4 propositions !

et pense au petit "résolu"

Claude.

Oui excusez moi ma réponse est un peu égoiste,

Voilà ce qui marche tré bien :

Private Sub CommandButton4_Click()

If Range("G2") = Range("b7") Then

Range("b7").Activate

Else

If Range("G2") = Range("b78") Then

Range("b78").Activate

Else

If Range("G2") = Range("B43") Then

Range("B43").Activate

End If

End If

End If

End Sub

Encore merci.

Re le forum

Pour éviter les if's à profusion.

Private Sub CommandButton1_Click()
Select Case [G2]
  Case [B7]
    [B7].Activate
  Case [B43]
    [B43].Activate
  Case [B78]
    [B78].Activate
  Case Else
    MsgBox ("Pas de correspondance")
End Select
End Sub

Mytå