Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel liste deroulante

liste deroulante

8 réponses
Avatar
Benoit
Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
JB
Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:
Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle  mais sans succes;

merci


Avatar
Benoit
Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre, au lieu de prendre A,B,C inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci


"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:
Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci


Avatar
JB
Bonsoir,

Le nom de la liste est MaListe (qui peut être une liste dynamique):

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=maliste"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 20:54, "Benoit" wrote:
Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre,  au lieu de prendre A,B,C  inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci

"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
    For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
      If c.Value = "A" Then
        With c.Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlert Stop,
Operator:= _
         xlBetween, Formula1:="A,B,C"
         .IgnoreBlank = True
         .InCellDropdown = True
         .InputTitle = ""
         .ErrorTitle = ""
         .InputMessage = ""
         .ErrorMessage = ""
         .ShowInput = True
         .ShowError = True
        End With
      End If
     Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:



Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Benoit
merci bien
mais je n'arrive pas à ecrire correctement le chemin de ma liste
qui se trouve dan un classeur X , un onglet Y dans des cellules A1:A20.

merci

"JB" a écrit dans le message de news:

Bonsoir,

Le nom de la liste est MaListe (qui peut être une liste dynamique):

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=maliste"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 20:54, "Benoit" wrote:
Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre, au lieu de prendre A,B,C inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci

"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:



Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
JB
Si la liste est sur un autre classeur ouvert X.XLS

Créer un nom de champ:
Insertion/Nom/Définir:
=[X.XLS]Y!$A$1:$A$20

JB

On 4 mar, 22:03, "Benoit" wrote:
merci bien
mais je n'arrive pas à ecrire correctement le chemin de ma liste
qui se trouve dan un classeur X , un onglet Y  dans des cellules A1:A20.

merci

"JB" a écrit dans le message de news:

Bonsoir,

Le nom de la liste est MaListe (qui peut être une liste dynamique):

Sub essai()
    For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
      If c.Value = "A" Then
        With c.Validation
         .Delete
         .Add Type:=xlValidateList, AlertStyle:=xlValidAlert Stop,
Operator:= _
         xlBetween, Formula1:="=maliste"
         .IgnoreBlank = True
         .InCellDropdown = True
         .InputTitle = ""
         .ErrorTitle = ""
         .InputMessage = ""
         .ErrorMessage = ""
         .ShowInput = True
         .ShowError = True
        End With
      End If
     Next c
End Sub

JB

On 4 mar, 20:54, "Benoit" wrote:



Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre, au lieu de prendre A,B,C inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci

"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:

Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
Benoit
Bonjour,
je n'arrive toujours pas à inclure ma liste tirée d'une feuille Excel pour
la mettre dans un menu déroulant.
j'ai un arret sur la macro.
pourtant j'ai suivi toute les instructions,
je comprend pas trop ce qui se passe!!!

merci

"JB" a écrit dans le message de news:

Si la liste est sur un autre classeur ouvert X.XLS

Créer un nom de champ:
Insertion/Nom/Définir:
=[X.XLS]Y!$A$1:$A$20

JB

On 4 mar, 22:03, "Benoit" wrote:
merci bien
mais je n'arrive pas à ecrire correctement le chemin de ma liste
qui se trouve dan un classeur X , un onglet Y dans des cellules A1:A20.

merci

"JB" a écrit dans le message de news:

Bonsoir,

Le nom de la liste est MaListe (qui peut être une liste dynamique):

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=maliste"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 20:54, "Benoit" wrote:



Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre, au lieu de prendre A,B,C inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci

"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:

Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




Avatar
JB
Bonjour,

Les 2 classeurs doivent être ouverts:

http://cjoint.com/?dhihpViKNL
http://cjoint.com/?dhihQqTxFf

http://boisgontierjacques.free.fr/pages_site/donneesvalidation.htm#ListeAutr eOnglet

JB

On 7 mar, 00:35, "Benoit" wrote:
Bonjour,
je n'arrive toujours pas à inclure ma  liste tirée d'une feuille Exc el pour
la mettre dans un menu déroulant.
j'ai un arret sur la macro.
pourtant j'ai suivi toute les instructions,
je comprend pas trop ce qui se passe!!!

merci

"JB" a écrit dans le message de news:

Si la liste est sur un autre classeur ouvert X.XLS

Créer un nom de champ:
Insertion/Nom/Définir:
=[X.XLS]Y!$A$1:$A$20

JB

On 4 mar, 22:03, "Benoit" wrote:



merci bien
mais je n'arrive pas à ecrire correctement le chemin de ma liste
qui se trouve dan un classeur X , un onglet Y dans des cellules A1:A20.

merci

"JB" a écrit dans le message de news:

Bonsoir,

Le nom de la liste est MaListe (qui peut être une liste dynamique):

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=maliste"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 20:54, "Benoit" wrote:

Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre, au lieu de prendre A,B,C inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci

"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:

Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules q ui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





Avatar
Benoit
Ouf ça y est !!! j'ai trouvé
merci pour tes classeurs et ta macro essai qui m'ont permis de résoudre le
probléme du à un classeur fermé

encore merci pour ton aide

@ bientôt


"JB" a écrit dans le message de news:

Bonjour,

Les 2 classeurs doivent être ouverts:

http://cjoint.com/?dhihpViKNL
http://cjoint.com/?dhihQqTxFf

http://boisgontierjacques.free.fr/pages_site/donneesvalidation.htm#ListeAutreOnglet

JB

On 7 mar, 00:35, "Benoit" wrote:
Bonjour,
je n'arrive toujours pas à inclure ma liste tirée d'une feuille Excel pour
la mettre dans un menu déroulant.
j'ai un arret sur la macro.
pourtant j'ai suivi toute les instructions,
je comprend pas trop ce qui se passe!!!

merci

"JB" a écrit dans le message de news:

Si la liste est sur un autre classeur ouvert X.XLS

Créer un nom de champ:
Insertion/Nom/Définir:
=[X.XLS]Y!$A$1:$A$20

JB

On 4 mar, 22:03, "Benoit" wrote:



merci bien
mais je n'arrive pas à ecrire correctement le chemin de ma liste
qui se trouve dan un classeur X , un onglet Y dans des cellules A1:A20.

merci

"JB" a écrit dans le message de news:

Bonsoir,

Le nom de la liste est MaListe (qui peut être une liste dynamique):

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="=maliste"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 20:54, "Benoit" wrote:

Bonsoir,

ça marche impeccable et c'est exactement ce que je voulais !!!
mille mercis!!
par contre, au lieu de prendre A,B,C inscrits dans la macro,

puis je avoir à acces à une liste deja prete dans une feuille ?
car c'est une liste évolutive ;

merci

"JB" a écrit dans le message de news:

Bonjour,

Sub essai()
For Each c In [A1:D20].SpecialCells(xlCellTypeConstants, 23)
If c.Value = "A" Then
With c.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:="A,B,C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
Next c
End Sub

JB

On 4 mar, 13:31, "Benoit" wrote:

Bonjour,

j'ai un tableau avec differentes données

je voudrais mettre une liste déroulante pour toutes les cellules qui
contiennet le caractere "A" par le biais d'une macro.

Est ce réalisable ??

j'ai essayé d'associer cette instruction avec la mise en forme
conditionnelle mais sans succes;

merci- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -