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
blutch
Salutations Excel...lent,
Comme toi, je n'ais pas trouvé l'option pour bloquer la zonedeliste, mais as tu essayé de créer la zone directement à partir de VBA après validation par password ?
C'est juste une idée de secours en attendant certainement une meilleure solution.
A bientôt Blutch
Salutations Excel...lent,
Comme toi, je n'ais pas trouvé l'option pour bloquer la zonedeliste,
mais as tu essayé de créer la zone directement à partir de VBA
après validation par password ?
C'est juste une idée de secours en attendant certainement une
meilleure solution.
Comme toi, je n'ais pas trouvé l'option pour bloquer la zonedeliste, mais as tu essayé de créer la zone directement à partir de VBA après validation par password ?
C'est juste une idée de secours en attendant certainement une meilleure solution.
A bientôt Blutch
Excel...lent
Salut Blutch,
Put... qu'est ce qu'on peut être boulet dès fois ! ! ! lol Pourquoi j'y avais pas pensé ? ? -)))
C'est une excellente idée et en plus je viens de le faire ( ou plutot l'editeur VBA ) et ça marche !
Tiens regarde ça ressemble à ça :
Sub zaza() ActiveSheet.DropDowns.Add(597.75, 75.75, 90.75, 20.25).Select Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Height = 16.5 Selection.ShapeRange.Width = 60# With Selection .Placement = xlMove .PrintObject = False End With With Selection .ListFillRange = "listnom" .LinkedCell = "$A$4" .DropDownLines = 8 .Display3DShading = False .OnAction = ThisWorkbook.Name & "!AffNoms" End With Selection.ShapeRange.IncrementLeft -27.75 Selection.ShapeRange.IncrementTop -52.5 End Sub
Merci pour ton aide.
Marc
Salut Blutch,
Put... qu'est ce qu'on peut être boulet dès fois ! ! ! lol Pourquoi j'y
avais pas pensé ? ? -)))
C'est une excellente idée et en plus je viens de le faire ( ou plutot
l'editeur VBA ) et ça marche !
Tiens regarde ça ressemble à ça :
Sub zaza()
ActiveSheet.DropDowns.Add(597.75, 75.75, 90.75, 20.25).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 16.5
Selection.ShapeRange.Width = 60#
With Selection
.Placement = xlMove
.PrintObject = False
End With
With Selection
.ListFillRange = "listnom"
.LinkedCell = "$A$4"
.DropDownLines = 8
.Display3DShading = False
.OnAction = ThisWorkbook.Name & "!AffNoms"
End With
Selection.ShapeRange.IncrementLeft -27.75
Selection.ShapeRange.IncrementTop -52.5
End Sub
