ConditionS sur des cellules.

[azzouzze]

Bonjour,

Je cherche à imposer un type de remplissage des cellules pour faire un "template".
Si en I1 tu met un "I" alors en A1, B1 et C1 tu ne peux que mettre des lettres "A...Z" ( et en majuscule;
Si en I1 tu met C ou V ou O alors tu peux mettre ce que tu vex en A1, B1 et C1.

Sinon je voudrais faire une interface utilisateur pour permettre de remplir la feuille de facon plus propre.

Merci d'avance.

 

[GIBI]

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