Il s'agit de modifier le format de contrôle d'une liste déroulante.
Comment faire, dans une macro excel, pour indiquer dans ListFillRange un nom
de feuille excel pré défini à partir d'une cellule.
Dans l'exemple ci-dessous la cellule qui contient le nom de la feuille est
la cellule C8, mais cette macro ne fonctionne pas, pourriez-vous, svp nous
indiquer le bon code?
Sub Sélection_abrégée_NC()
'
' Sélection_abrégée_NC Macro
'
'
Dim onglet1 As Sheets
If Range("O3") = True Then
Range("c8").Select
onglet = ActiveCell.Value
onglet1 = Sheets(onglet)
ActiveSheet.Shapes("Drop Down 2").Select
Application.CutCopyMode = False
With Selection
.ListFillRange = "onglet1!$A:$D"
.LinkedCell = "Saisie!$L$3"
.DropDownLines = 8
.Display3DShading = False
End With
End If
End Sub
Merci d'avance de toute aide.
--
Cordialement,
@ La Gazelle @
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
En adaptant les noms de feuilles,d'objet et de plages :
Sub zzz() nomF = [C8] With Sheets("Feuil1").DrawingObjects("Drop Down 1") .List = Range(nomF & "!$A$1:$A$10") .LinkedCell = "Saisie!$L$3" End With End Sub
AV
En adaptant les noms de feuilles,d'objet et de plages :
Sub zzz()
nomF = [C8]
With Sheets("Feuil1").DrawingObjects("Drop Down 1")
.List = Range(nomF & "!$A$1:$A$10")
.LinkedCell = "Saisie!$L$3"
End With
End Sub
En adaptant les noms de feuilles,d'objet et de plages :
Sub zzz() nomF = [C8] With Sheets("Feuil1").DrawingObjects("Drop Down 1") .List = Range(nomF & "!$A$1:$A$10") .LinkedCell = "Saisie!$L$3" End With End Sub
