Validation

[eliot raymond]

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

 

[skoobi]

Re : Validation

Bonjour,

Si j'ai bien compris on ne peut rien saisir dans une cellule se trouvant dans

E2:E25

tant que la cellule d'à coté (colonne D) est vide.
Ex.: si D10 vide, impossible de saisir en E10.
C'est ce que fait le code suivant:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, [E2:E25]) Is Nothing Then
  If IsEmpty(Range("D" & Target.Row).Value) Then
    Application.Undo
    Range("D" & Target.Row).Select
  End If
End If
Application.EnableEvents = True
End Sub

PS: Tiens, un "select" dans un de mes codes, ça faisait longtemps que je n'en avais plus utilisé 😛😀.

 

[eliot raymond]

Re : Validation

Bonsoir Skoobi, bonsoir forum

Merci pour petit code vais essayer un peu plus tard, sinon c'est bien ca pour la question
je te dirai si c'est ok demain
te souhaite la bonne soirée et encore merci c'est sympa

Bye Raymond

 

[eliot raymond]

Re : Validation

Re Skoobi

C'est bon ca marche ca me va bien, trouver deux minutes pour essai ca me brulai de savoir,

Skoobi je te remercie bien sympathiquement

bonne soirée a toi merci
Raymond