Z_cool HFR profile rating:⭐⭐⭐⭐ | de meme kil est possible de definir une liste de mot differente par colone :
Code :
- Private Sub Worksheet_Change(ByVal Target As Range)
- Application.EnableEvents = False
- Select Case Target.Column
-
- Case 1
- Mypos = InStr(Target.Text, "toto" )
- Mypos = Mypos + InStr(Target.Text, "tutu" )
- Mypos = Mypos + InStr(Target.Text, "tata" )
- If Mypos > 0 Then
- cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
- End If
- case 2
- Mypos = InStr(Target.Text, "papa" )
- Mypos = Mypos + InStr(Target.Text, "maman" )
- Mypos = Mypos + InStr(Target.Text, "tata" )
- If Mypos > 0 Then
- cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
- End If
- End Select
- Application.EnableEvents = True
- End Sub
|
Message édité par Z_cool le 19-02-2004 à 09:09:31 ---------------
#mais-chut
|