saisi obligatoire d'une cellule

Dernière réponse : 19 Septembre 2007 18:12 dans Programmation

wilcat

19 Septembre 2007 12:43:10

Bonjour

Je cherche une astuce pour qu’un utilisateur saisisse une cellule obligatoirement dans un classeur Excel « 2003 »

Je m’explique

L’utilisateur saisi une info type « EXCE » dans « A1 » je veux qu’il soit obligé de saisir un code sous forme de menu déroulant dans « B1 » par ex « AZER » ou « QSDF » ou « WXCV »

Par contre si dans « A1 » le code est différent, il n y a pas d’obligation de remplir « B1 »

Merci d’avance pour votre aide.

Will

Autres pages sur : saisi obligatoire cellule

| Etre averti des réponses
| Alerter

Répondre à wilcat

Lassé par la pub ? Créez un compte

OmaR

Expert Programmation

19 Septembre 2007 13:28:42

Bonjour,

Je saurais pas le faire en VBA mais en algorithmique :
SI A1 != '' ET B1 == '' ALORS
ECRIRE('Il faut spécifier un code');
FIN SI

Tu t'y connais un peu en VBA ou pas ?

| Alerter

Répondre à OmaR

showie

19 Septembre 2007 18:12:51

Salut

et avec un truc comme ça

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If (Me.Cells(1, 1).Value <> "")  Then
        If ((ActiveSheet.Cells(1, 1).Value = "EXCE") Or (ActiveSheet.Cells(1, 1).Value = "AZER") Or (ActiveSheet.Cells(1, 1).Value = "QSDF") Or (ActiveSheet.Cells(1, 1).Value = "WXCV")) Then
            Cells(1, 2).Validation.Delete
            truc = Cells(1, 2).Validation.Add(xlValidateList, 1, 1, "=test")
        Else
            Cells(1, 2).Validation.Delete
            Cells(1, 2).Value = ""
            Me.Range("B1").Activate
        End If
    End If
End Sub

Mais il faut que tu es définie "test" comme une list sur ton classeur d'abord

euh j'espère que ça marche j'ai pas testé dit moi si tu as des soucis avec

| Alerter

Répondre à showie

Lassé par la pub ? Créez un compte

Répondre Créer un nouveau sujet

Tom's guide dans le monde