Largueur de mes Listes Déroulantes EXCEL
Fermé
psychoman
Messages postés
30
Date d'inscription
mercredi 17 octobre 2007
Statut
Membre
Dernière intervention
14 février 2008
-
14 févr. 2008 à 14:24
psychoman Messages postés 30 Date d'inscription mercredi 17 octobre 2007 Statut Membre Dernière intervention 14 février 2008 - 14 févr. 2008 à 15:08
psychoman Messages postés 30 Date d'inscription mercredi 17 octobre 2007 Statut Membre Dernière intervention 14 février 2008 - 14 févr. 2008 à 15:08
Bonjour,
EXCEL 2007
J'ai codé en VBA pour afficher des listes déroulantes quand je change de cellule pour certaines colonnes.
La largeur de mes listes déroulantes n'arrive pas avec la largeur des colonnes, et le texte ne dépasse pas la largeur des colonnes.
comment faire pour que la largeur des listes déroulantes soit fixe a la largeur de chaque colonne.
merci.
Vince.
EXCEL 2007
J'ai codé en VBA pour afficher des listes déroulantes quand je change de cellule pour certaines colonnes.
La largeur de mes listes déroulantes n'arrive pas avec la largeur des colonnes, et le texte ne dépasse pas la largeur des colonnes.
comment faire pour que la largeur des listes déroulantes soit fixe a la largeur de chaque colonne.
merci.
Vince.
A voir également:
- Largueur de mes Listes Déroulantes EXCEL
- Liste déroulante excel - Guide
- Excel liste déroulante en cascade - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
1 réponse
psychoman
Messages postés
30
Date d'inscription
mercredi 17 octobre 2007
Statut
Membre
Dernière intervention
14 février 2008
9
14 févr. 2008 à 15:08
14 févr. 2008 à 15:08
Dans ce code , est-ce possible de définir la largeur de la liste de validation
''Définir l a variable qui contient la liste
strPlage = "=SPEC"
''Dans la cellule activée, on définie la liste qui correspond à la plage récupérée dans strPlage
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
xlBetween, Formula1:=strPlage
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "VALEUR NON STANDARD"
.InputMessage = ""
.ErrorMessage = "VOULEZ VOUS GARDER LA VALEUR NON STANDARD ENTRÉE ?"
.ShowInput = True
.ShowError = True
End With
merci
''Définir l a variable qui contient la liste
strPlage = "=SPEC"
''Dans la cellule activée, on définie la liste qui correspond à la plage récupérée dans strPlage
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
xlBetween, Formula1:=strPlage
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "VALEUR NON STANDARD"
.InputMessage = ""
.ErrorMessage = "VOULEZ VOUS GARDER LA VALEUR NON STANDARD ENTRÉE ?"
.ShowInput = True
.ShowError = True
End With
merci