macro excell

Marsh Posté le 18-02-2004 à 14:45:39

comment rédiger une macro excell qui fasse sauter une ligne dans mon tableau chaque fois que la valeur dans une colonne est différente d'un petit nombre de valeurs préétablies???

Marsh Posté le 18-02-2004 à 14:45:39

Marsh Posté le 18-02-2004 à 15:40:50

Code :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
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
Application.EnableEvents = True
End Sub

avec les mot tutu, tata,... apres, il doit y avoir moyen de fair ca avec une liste defini sur une autre page si besoin est sans trop de dificulté

---------------
#mais-chut

Marsh Posté le 18-02-2004 à 15:45:45

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

Marsh Posté le 19-02-2004 à 09:09:18

bon ba je suppose ke je serais jamais si c etait bien ca don tu avait besoin

---------------
#mais-chut

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *