Boite de Dialogue pour chaque cellule remplie

Bonjour,

Ce matin j'ai eu une aide précieuse de la part de membre du forum ! Vraiment génial

J'ai une idée qui ne devrait pas être trop difficile a mettre en oeuvre

Je voudrais que pour chaque cellule non vide d'une plage de donnée, ces cellule deviennent des cellule a choix multiple issue d'une liste

je vous joint le fichier de suite

Bonjour,

Tu as oublié de mettre ton fichier, ça va donc être plus compliqué de t'aider.

cordialement,

Voici le fichier

Pour selectionner les cellules non vide j'utilise ce code

Sub SelectionNonVides()

For Each c In Range("B1:D6")

If c <> "" Then

c.Select

Exit For

End If

Next

For Each c In Range("B1:D6")

If c <> "" Then

Range(Selection.Address + "," + c.Address).Select

End If

Next

End Sub

Essai ce code (il se lance automatiquement quand tu modifies une valeur de la plage A2:E6):

Dans un module, place:

Sub Liste()
'liste déroulante

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$H$10:$H$12"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

et dans la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:E6")) Is Nothing Then
Target.Select
Call Liste
End If
End Sub

je te joins le fichier

Merci pour tout c'est pas trop mal tout ca !

c'est même parfait