Resoudre une condition en V B

bonjour et merci de prendre le temps de me repondre

je cherche a effectuer des taches differentes suite a une condition en fait je cherche a traduire en V B la phrase suivante:

si "cellulle A"=1 alors aller vers telle autre cellule et effectue des taches sinon ,aller vers telle autre groupe de cellule et faire autre chose

merci d'avance

Bonjour

un exemple

If Range("A1") = 1 Then

Range("A2").Activate

end if

apres cela depends de ce que tu veux faire

cordialement

edit ; oups! corrigé, merci Dubois

Bonsoir à tous,

En complément au code de maguetlolo,

Else correspond au Sinon

Sub essai()
    If Range("A1") = 1 Then
            Range("A2").Activate
            ActiveCell = "toto"
                '*** suite ations condition 1
        Else
            Range("B2").Activate
            ActiveCell = "bibi"
                '*** suite ations condition 2
    End If
End Sub

Ne pas oublier les guillemets "A1"

amicalement

Claude.

Salut le forum

Pour deux conditions c.est bien pour 10 ont fait quoi ?

Sub Traitement()
Select Case [A1]
Case 1
MsgBox "Traitement 1"
Case 2
MsgBox "Traitement 2"
Case 3
MsgBox "Traitement 3"
Case Else
MsgBox "Aucun Traitement"
End Select
End Sub

Mytå