Condition

[fabien]

Bonjour à tous!!

Voila en pleine macro, g un petit soucis!

Je voudrai, en fonction du contenu d'une cellule (du texte), écrire dans plusieurs cellules des nombres

Comment faire?

Chui un novice sur vba aider moi!! avec un exemple je pense ke ça irait!!

Merci d'avance!!
@+

 

[Pascal76]

Bonjour

Pas très explicite ta demande.
Alors est-ce quelque chose dans ce genre

Sub toto()

If Range("A1") = "tata" Then
  Range("B1") = 2
  Range("C1") = 3
Else
  Range("B1") = 10
  Range("C1") = 20
End If

End Sub

Ensuite si tu as plusieurs cas à traiter tu peux passer par "select case"

Pascal

 

[fabien]

Select case??

C a d??

 

[Pascal76]

Re

Voilà une macro avec Select Case

Sub toto()

Select Case Range("A1") '<===== En fonction de la valeur de A1 les cellules B1 et C1 prennent des valeurs différentes
Case "tata"
Range("B1") = 1
Range("C1") = 2
Case "titi"
Range("B1") = 10
Range("C1") = 20
Case "tutu"
Range("B1") = 100
Range("C1") = 200
Case Else
Range("B1") = 1000
Range("C1") = 2000
End Select

End Sub

Bon courage

Pascal

 

[fabien]

Ok! merci de m'avoir répondu!!


Bonne journée!!