Discussion :

[kristoch91]

Bonjour

J'aimerai faire apparaître un menu déroulant dans une cellule quand une fonction se fini.

comment je pourrais coder ca?

merci d'avance

[mayekeul]

Bonjour,

quand une fonction se fini.

C'est à dire?

[kristoch91]

voila une fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Target = Worksheets("Feuil1").Cells(39, 5) Then
    If etape1 = oui And etape2 = non And etape3 = non And etape4 = oui And etape5 = oui And etape6 = oui And (etape7 = non Or etape7 = oui) And etape8 = oui And etape9 = non And etape9a = non And etape9b = oui Then
        Worksheets("Feuil1").Cells(40, 2) = "Etape finale"
        Worksheets("Feuil1").Cells(41, 3) = "L'évaporateur est sousdimensionnée. " & etapeF2 & etape11
        Worksheets("Feuil1").Cells(42, 4) = ""
    ElseIf etape1 = oui And etape2 = non And etape3 = non And etape4 = oui And etape5 = oui And etape6 = oui And (etape7 = non Or etape7 = oui) And etape8 = oui And etape9 = non And etape9a = non And etape9b = non Then
        Worksheets("Feuil1").Cells(40, 2) = "Etape 10"
        Worksheets("Feuil1").Cells(41, 3) = "Les température du cycles sont-elles normales?"
        Worksheets("Feuil1").Cells(42, 4) = "Réponse :"
    End If
End If

j'aimerai qu'à la cellule (42,5) apparaissent un menu déroulant avant les deux EndIf

[mayekeul]

et quel est l'intéret de le coder?

tu pourrais betement passer par une "validation list"

[kristoch91]

enfaite il y a une succession de question et le liste n ser apour toujoru présente. elle sera présente par exempe dans ce cas quie si la question précédente est "Non".

a moins que l'ont peut faire ca avec la "validation list" comme tu le dis et dans ce cas je ne sais pasle faire.
tu pourrais expliquer dans ce cas s'il te plait.

[mayekeul]

je vais te dire en simplifié

si vrai ( donc afficher liste)

rajoute ceci

Code :

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

Range("A2").Validation.Add xlValidateList,,,"=$B$1:$B$2"

"=$B$1:$B$2" correspond a la référence de la liste

sinon

rajoute ceci

Code :

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

1
2
 
Range("A2").Validation.delete