Liste déroulante en VBA

[Ilino]

Re Bonsoir
je souhaiterai convertir ce algorithme en VBA
SI C38 ="Pas de Jonction"
Alors
afficher dans la cellule C72= "Souterraine"
Sinon si C38<>"Pas de Jonction" afficher dans la cellule C72 une liste déroulante ( déja nommé, dans mon cas : nature_liaison)
Grazie

 

[Ilino]

Re : Liste déroulante en VBA

Bonsoir Forum
puis je avoir votre réponses , mon souci est exactement est comment faire une liste déroulante dans un code VBA ??
GRAZIE

 

[Staple1600]

Re : Liste déroulante en VBA

Bonsoir à tous

Ilino
1059 messages au compteur, et il te vient pas à l'idée de joindre un fichier exemple?
Un petit coup de mou, peut-être ?

 

[Ilino]

Re : Liste déroulante en VBA

Bonsoir à tous

Ilino
1059 messages au compteur, et il te vient pas à l'idée de joindre un fichier exemple?
Un petit coup de mou, peut-être ?

Sorry 😱j'ai pensé que mon souci était simple a expliquer sans exemple ...???
mais ci joint un exemple
GRAZIE

 

[Dull]

Re : Liste déroulante en VBA

Salut Ilino, l'agrafe🙂, le Forum

Peut être ce bout de code à mettre dans le Module de la Feuille

Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C38")) Is Nothing Then
    If Range("C38").Value = "Pas de Jonction" Then
        With Range("C72")
            .Validation.Delete
            .Value = "Souterraine"
        End With
            Else
        With Range("C72").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=nature_liaison"
        End With
    End If
End If
End Sub

Bonne Journée

 

[Ilino]

Re : Liste déroulante en VBA

Bonjour Dull
merci pour la réponse; mais j'ai recontré un message d'erreur d'execution 1004: Erreur definie par l'application ou l'objet ????
a ce niveau :

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=nature_liaison"

Grazie

 

[Dull]

Re : Liste déroulante en VBA

Re,

Pas de Problème chez moi
regardes le Fichier joint

Bonne Journée

 

[Ilino]

Re : Liste déroulante en VBA

Re DULL
gRAZIE
A+