Discussion :

[benadry]

Bonjour,

Je crois que tout est dit dans le titre : je cherche une macro Excel qui positionnerait automatiquement une liste déroulante sur telle valeur, si une condition est remplie, tout en laissant le choix à l'utilisateur de mettre une autre valeur.

Dans le fichier test ci-joint, il faudrait que si la valeur en B4 est "OPERATEUR", la liste déroulante en B30 soit positionnée par défaut sur "I". Comme derrière, il y a des formules de calcul complexes, cela génèrerait un calcul automatique. Libre à l'utilisateur de dérouler la liste jusqu'à une autre valeur.

J'ai essayé en adaptant une macro trouvée sur : http://boisgontierjacques.free.fr/index2.htm

Ca donne ceci :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$4" And Target.Count = "OPERATEUR" And Target <> "" Then
    ' [...]
End If
End Sub

Ca s'arrête là. Le code d'origine est celui-ci :

Code :

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

Target.Offset(0, 1) = Sheets("listes").Range("choix2")(1).Offset(1, Application.Match(Target, [choix1], 0) - 1)

Je comprends à peu près comment il fonctionne, mais je n'arrive pas à l'adapter.

Si quelqu'un a une idée ...

Merci d'avance.

Bien cordialement.

[Daniel.C]

Bonjour,

Rien compris; il n'y a rien en B4 et pas de liste déroulante en B30. Explique. En plus, "Target.Count = "OPERATEUR"" n'a aucun sens.

[benadry]

Désolé pour l'erreur de frappe.

Ce n'est pas B4, mais B14.

En plus, le fichier n'est pas au bon format. En xlsx, il y a bien les listes déroulantes, mais pas en xls.

Je joins donc un nouveau fichier test au bon format.

Merci d'avance pour ton aide.

[Daniel.C]

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$B$5" And Target.Count = 1 And [B14] = "OPERATEUR" Then
        [B30] = "I"
    End If
End Sub

PS. Je teste le changement de la cellule B5.

[benadry]

Daniel,

Je viens de tester et ça fonctionne très bien.

Merci pour ton aide.


Cordialement.