Liste à choix multiples

[Laurent24]

Bonjour à toutes et à tous,

Je travaille sur Excel 2010
Je sèche sur un tableau Excel que je suis en train de refaire.
J'avais insérer via le Développeur des cases à coches sur ces 3 feuilles qui se décalaient à l'enregistrement.
Phénomène inexpliqué... Pas trouvé de solution, ni d'exemple similaire sur la toile.
J'ai donc entrepris de supprimer ces cases pour créer des listes déroulantes.
Fastidieux travail : 1 page par colonne, création de formules, validation des données dans les cellules recevant ces listes etc...
Mon souci : pas de souci pour les cellules où je n'ai qu'un choix.
Je saisis les premières lettres, je clique sur le triangle au bas de la cellule et je choisis.
Pb : j'ai une colonne où je veux inclure plusieurs choix dans la liste proposée.
J'aimerais que ces choix se succèdent ou qu'ils apparaisent dans ma cellule les uns au dessus des autres.

Bref je bidouille depuis des années (sans formation) sur Excel mais là j'atteind mes limites...

Merci de votre aide.

Laurent

 

[Lone-wolf]

Bonjour Laurent

Normalement dans les propriétés(cases à coché), tu as ceci

 

[Laurent24]

Ok merci.
Sachant que j'en avais une centaine et que je les ai toutes supprimé, là n'est plus mon problème.
Sachant qu'un clic droit "propriétés" sur une centaine de cases va me prendre des heures !
Mais merci quand même !

 

[Lone-wolf]

Bein non Laurent. Tu les sélectionnes toutes et tu modifie.

 

[Laurent24]

Je viens de tester.
Tout se décale encore.
Bref, j'en reste à mes listes déroulantes.
Help !

 

[Lone-wolf]

Et bien si ça te dit, tu pourrait envisager une macro et la tu met le Top et Left de chaque céllules. Ensuite dans l'évenement Sheet_Activate() tu fait appel à la macro.

EDIT: une macro exemple de Jaques Boisgontier

Private Sub Worksheet_Change(ByVal Target As Range)
  Set images = Sheets("logos")
  If Target.Column = 2 And Target.Count = 1 Then
    '-- suppression
    For Each s In ActiveSheet.Shapes
      If s.Type = 13 Then
        If s.TopLeftCell.Address = Target.Address Then s.Delete
      End If
    Next s
    If Target <> "" Then
      On Error Resume Next
      images.Shapes(Target).Copy
      If Err = 0 Then
        ActiveSheet.Paste
        Selection.OnAction = "ClicImage"
        Selection.Name = "Image" & ActiveCell.Row
        largeurImage = images.Shapes(Target).Width
        HauteurImage = images.Shapes(Target).Height + 6
        Selection.ShapeRange.Left = ActiveCell.Left + ActiveCell.Width / 2 - largeurImage / 2
        Selection.ShapeRange.Top = ActiveCell.Top + 5
        Rows(Target.Row).RowHeight = HauteurImage + 10
        Target.Select
      End If
    End If
  End If
End Sub