ConditionS sur des cellules.

azzouzze

XLDnaute Junior
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

XLDnaute Impliqué
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000