eliot raymond
XLDnaute Occasionnel
Bonjour a tous et toutes , bonjour forum,
Je sèche sur un petit test surement très simple, ce code fonctionne bien sur XL 2007 mais peut etre que vous pouvez me depanner alors merci par avance
Le test est fait en colonne D2😀25 jusqu'a la pas de soucis, je souhaiterai simplement savoir comment éviter de passer a la colonne E si la précédente n'est pas renseignée
Ex: D5= rien donc je ne dois pas passer en E5 car D5 est vide
donc on reste en D5 tant que celle ci n'ai pas renseignée
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("D2😀27").Select
With Target
If .Column = 4 Then
If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents
.Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else
.ClearContents
.Select
End If
End If
Cancel = True
End With
Application.EnableEvents = True
End Sub
Si un instant de libre merci a vous de bien vouloir regarder svp
Pas de fichier je test seulement
Bonne apres midi merci
Raymond
Je sèche sur un petit test surement très simple, ce code fonctionne bien sur XL 2007 mais peut etre que vous pouvez me depanner alors merci par avance
Le test est fait en colonne D2😀25 jusqu'a la pas de soucis, je souhaiterai simplement savoir comment éviter de passer a la colonne E si la précédente n'est pas renseignée
Ex: D5= rien donc je ne dois pas passer en E5 car D5 est vide
donc on reste en D5 tant que celle ci n'ai pas renseignée
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Range("D2😀27").Select
With Target
If .Column = 4 Then
If Len(.Value) > 7 Or Len(.Value) = "" Then .ClearContents
.Select
If .Value >= "0" And .Value <= "9" Or .Value = "€" Or .Value = "," Then
Else
.ClearContents
.Select
End If
End If
Cancel = True
End With
Application.EnableEvents = True
End Sub
Si un instant de libre merci a vous de bien vouloir regarder svp
Pas de fichier je test seulement
Bonne apres midi merci
Raymond