Discussion :

[lixou11]

Bonjour,

je cherche à créer une boucle qui permet de mettre une valeur dans une cellule si un "mot" est trouvé dans une autre cellule. mon problème est en fait de trouver la fonction permettant de demander au programme de voir si la cellule E3 par exemple contient le mot "R1" et si oui de mette la valeur 100 dans la cellule F3.

Je suis débutante en VBA ...

Merci pour votre aide.

[tomy7]

soit t actionne la macro par bouton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
If Range("E3").Value = "R1" Then
Range("F3").Value = 100
End If
End Sub

soit des que tu place code dans thisworkbook:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("E3").Value = "R1" Then
Range("F3").Value = 100
End If
End Sub

[lixou11]

Merci mais par contre mon mot "R1" est parfois contenu dans une chaine de caracteres que style R2R1R6, est-ce que cela va marcher quand même ?

[tomy7]

peut etre quelque chose comme sa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
On Error Resume Next
If Cells.Find(What:="R1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate Then
Range("F3").Value = 100
Else: MsgBox "il n'y a pas de R1 en E3"
End If
End Sub

Dis moi?

[lixou11]

En fait j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(Cells(i, 5), "R1 ") = 0 Then Cells(i, 6) = "" Else Cells(i,6)="100"

et ça marche, en tout cas merci pour votre aide !