Discussion :

[guirafe]

Bonjour,
En cherchant dans les forums j'ai trouvé une fonction en VBA qui répond à mes attentes, celle de remettre à blanc une liste déroulante (cellule E11) lorsque l'on modifie ou vide une 1ère liste déroulante (cellule D11). Je souhaiterai mettre effectuer cette même fonction sur un 2ème groupe de listes mais je n'arrive pas à adapter la formule, j'ai essayer de la dupliquer mais erreur sous vba.
Ne comprenant pas grand chose au vba, pourriez-vous m'aider SVP ?
Je vous joins mon fichier?

[Invité]

Bonjour,

Je ne sais pas si ce code correspond à votre demande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Not Intersect(Target, Range("D11:D12")) Is Nothing Then
        Select Case Target
               Case "Capitalisation", "Référentiel", ""
                    Target.Offset(0, 1).Value = ""
        End Select
    End If
 
End Sub

Cordialement.

[78chris]

Bonjour

Evite de fusionner inutilement des cellules : cela met le souk en manuel mais complique aussi souvent nettement le VBA...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D11:D12")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then MsgBox "Saisie multiple non autorisée": Exit Sub
    On Error GoTo 1
    X = Target.Value
    Application.EnableEvents = False
    Application.Undo
    If X = Target Then
        Exit Sub
    Else
        Target.Offset(0, 1) = ""
    End If
    Target = X
1     Application.EnableEvents = True
 
   End Sub

Edit : coucou Eric. Plus rapide que moi ! J'ai 2 petits contrôles en plus mais on est en phase...

[Invité]

J'ai 2 petits contrôles en plus mais on est en phase...

Salut Chris,

J'avais vu que tu regardais le sujet. Effectivement, il vaut mieux ajouter tes contrôles.

Cordialement.

[guirafe]

Bonjour à tous,
Je vous remercie pour vos réponses rapides mais en copiant vos codes sous VBA, je n'arrive pas à les faire fonctionner. Avec le code d'Eric j'ai un message d'erreur "Sub ou function non définie" et pareil avec celui de chris.
Je prends note d'éviter les fusions de cellules.

[Invité]

Je vous remercie pour vos réponses rapides mais en copiant vos codes sous VBA, je n'arrive pas à les faire fonctionner. Avec le code d'Eric j'ai un message d'erreur "Sub ou function non définie" et pareil avec celui de chris.

Regardez si cela fonctionne avec ce fichier Pièce jointe 222943

Cordialement.

[guirafe]

C'est parfait, un grand merci car j'ai passé plusieurs heures à chercher au hasard, il faut vraiment que je me mette au langage VBA.