Liste déroulante dans plusieurs cellules

mromain

XLDnaute Barbatruc

• 8 Avril 2009

• #2

Re : Liste déroulante dans plusieurs cellules

bonjour Fred92 et bienvenue sur le forum

voici un bout de code qui a l'air de répondre à ton PB :

Code:

With ThisWorkbook.Sheets("Frais généraux")
    For i = 1 To 300 Step 3
        .Cells(i, 1).Validation.Delete
        .Cells(i, 1).Validation.Add xlValidateList, xlValidAlertStop, xlBetween, "=Comptes"
    Next i
End With

a+

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 8 Avril 2009

• #3

Re : Liste déroulante dans plusieurs cellules

Bonjour,

-Il faut définir Comptes avec 1 colonne
-Activer la macro
-Modifier Comptes avec 2 colonnes

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

F

Fred92

XLDnaute Nouveau

• 8 Avril 2009

• #4

Re : Liste déroulante dans plusieurs cellules

Bonjour mromain,

Je te remercie pour ta réponse. Je vais essayer le code immédiatement et te tenir informé.

Merci et bonne journée.

Fred92

 

Vote positif 0 Vote négatif

F

Fred92

XLDnaute Nouveau

• 8 Avril 2009

• #5

Re : Liste déroulante dans plusieurs cellules

Bonjour Boisgontier,

Je te remercie aussi pour ta réponse.

Je souhaiterais éviter toute modification en dehors de la macro.

Ne peut on donc pas dans ce cas nommer la liste déroulante directement dans la macro, placer ensuite cette liste dans les différentes cellules de la feuille "Frais généraux" et d'effectuer pour finir cette modification de largeur de colonnes?

Je vous remercie par avance pour vos réponses respectives

Fred92

 

Vote positif 0 Vote négatif

F

Fred92

XLDnaute Nouveau

• 8 Avril 2009

• #6

Re : Liste déroulante dans plusieurs cellules

Rebonjour,

Les lignes de codes apportées par Mromain fonctionnent parfaitement à condition de respecter le point soulevé par Boisgontier.

Pourriez vous me dire si il est possible de modifier le nombre de colonne de la liste déroulante directement par des lignes de code?

Je vous remercie pour vos réponses.

Fred92

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Avril 2009

• #7

Re : Liste déroulante dans plusieurs cellules

Bonjour le fil, le forum,

Le code de mromain modifié comme l'indique JB :

Code:

[COLOR="Red"]With ThisWorkbook.Sheets("Liste").Range("Comptes") [COLOR="Blue"]'ou seulement With Range("Comptes")[/COLOR]
ThisWorkbook.Names.Add "Comptes", RefersTo:=.Resize(, 1)[/COLOR]
With ThisWorkbook.Sheets("Frais généraux")
    For i = 1 To 300 Step 3
        .Cells(i, 1).Validation.Delete
        .Cells(i, 1).Validation.Add xlValidateList, xlValidAlertStop, xlBetween, "=Comptes"
    Next i
End With
[COLOR="Red"]ThisWorkbook.Names.Add "Comptes", RefersTo:=.Resize(, 2)
End With[/COLOR]

A+

 

Dernière édition: 8 Avril 2009

Vote positif 0 Vote négatif

F

Fred92

XLDnaute Nouveau

• 9 Avril 2009

• #8

Re : Liste déroulante dans plusieurs cellules

Bonjour Job75,

Je viens de prendre connaissance de ton post.

J'ai ajouté les lignes de code que tu as proposé et tout fonctionne parfaitement.

Merci pour toute l'aide et le temps que vous m'avez tous apportés 😉

Ce forum est formidable.

Très bonne journée.

Fred92

 

Vote positif 0 Vote négatif