Boby71C
XLDnaute Impliqué
Bonjour à tous et bonne année
Petit souci avec un menu déroulant sur Excel 97.
Le menu déroulant est bien créé, mais les flèches de choix qui devraient êtres accessibles sur le coté droit de chaque céllule, ne le sont pas.
Avez-vous déjà eu le problème, et comment le résoudre?
ci-joint un petit fichier. Dans mon fichier final, le menu déroulant est créé par VBA don voici le code.
=================================================
'création liste déroulante
Dim celder As Variant
celder = 5
While celder < 9
If Cells(celder, premX - 1).Value = "" Then
Cells(celder, premX - 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$E$6:$E$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
celder = celder + 1
Wend
Cells(8, da - 1).Value = "Sous-Traitant"
=================================================
Merci pour votre aide.
@+
Petit souci avec un menu déroulant sur Excel 97.
Le menu déroulant est bien créé, mais les flèches de choix qui devraient êtres accessibles sur le coté droit de chaque céllule, ne le sont pas.
Avez-vous déjà eu le problème, et comment le résoudre?
ci-joint un petit fichier. Dans mon fichier final, le menu déroulant est créé par VBA don voici le code.
=================================================
'création liste déroulante
Dim celder As Variant
celder = 5
While celder < 9
If Cells(celder, premX - 1).Value = "" Then
Cells(celder, premX - 1).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$E$6:$E$12"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
celder = celder + 1
Wend
Cells(8, da - 1).Value = "Sous-Traitant"
=================================================
Merci pour votre aide.
@+