Re : ConditionS sur des cellules.
bonjour,
tu peux ajouter une petite procédure événementiel (tu te place sur l'inglet de ta feuille/bouton droit/ajout code) l'exemple envoie un message dans la bar de statut et re-selectionne la cellule
Private Sub Worksheet_Change(ByVal Saisie As Range)
c = Saisie.Column ' Numéro de la colonne
l = Saisie.Row ' Numéro de la ligne
If Cells.Value(1, 9) = "I" Then ' I en "I1"
If c <= 3 Then
For i = 1 To Len(Saisie.Value)
If Mid(Saisie.Value, i, 1) < "A" Or Mid(Saisie.Value, i, 1) > "Z" Then
Application.StatusBar = "erreur colonne " & c & " ligne " & l
Saisie.Select
Exit Sub
End If
Application.StatusBar = "OK colonne " & c & " ligne " & l
Next
End If
End If
'application.enableevents=True
End Sub
GIBI