Liste à choix multiples

Laurent24 · 20 Janvier 2017

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 · 20 Janvier 2017

Bonjour Laurent

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

Laurent24 · 20 Janvier 2017

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 · 20 Janvier 2017

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

Laurent24 · 20 Janvier 2017

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

Lone-wolf · 20 Janvier 2017

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

VB:

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

Effectuez une recherche sur Excel Downloads...

Liste à choix multiples

Laurent24

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Laurent24

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Laurent24

XLDnaute Nouveau

Lone-wolf

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums