Discussion :

[bernadin.m]

* Bonjour, *

j'ai un fichier sur lequel il y a à peu près une vingtaine de liste déroulante!
je souhaite les dupliquer sur le reste de la feuille jusqu'à l'infini ou à tout le moins sur 60 à 70 000 lignes.

j'ai trouver un code qui peu juste dupliquer une seule liste déroulante.
comment l’étendre à l'ensemble des liste de la feuille ?
quelqu'un a une idée ? merci de votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Copie()
Dim X As Byte
For X = 2 To 70000
 
ActiveSheet.Shapes("ComboBox1").Copy
    Range("A" & X).Select
    ActiveSheet.Paste
Next X
Range("A1").Select
End Sub

[Daniel.C]

Bonjour,

Tu répètes la macro sur les 19 colonnes où se situent les autres listes déroulantes ou j'ai mal compris ? Change seulement le type de variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim X As Long

Maintenant, c'est à toi de voir si tu as immédiatement besoin de ces 1 400 000 listes déroulantes. Personnellement, ça ne m'est jamais arrivé. Regarde la taille du fichier après création des listes.

[bernadin.m]

oui j'en ai besoin des toutes ces lignes, seulement après le changement de variable ça ne marche pas, il met erreur d’exécution 5 il met argument ou appel de procédure on correcte.

bon en fait les liste déroulante ont été faite par liste validation de données et non par macro. c'est peut être ça le problème.

[Daniel.C]

il met erreur d’exécution 5 il met argument ou appel de procédure on correcte.

Quelle est la ligne de code surlignée en jaune ? Est-ce qu'il s'agit d'une zone de liste déroulante des contrôles de formulaire ou un contrôle ActiveX ?

[SfJ5Rpw8]

Bonjour,

Il y as quoi dans ces listes déroulantes ? proposent-elles toutes (les 140...00) les mêmes choix ?

[bernadin.m]

Rebonjour,

le code bloque sur la ligne 5.

toutes les lites déroulantes ne sont pas identiques, les choix sont totalement différent d'une liste à l'autre.
il ya une vingtaine de liste à dupliquer.
merci

[nibledispo]

Bonjour,

S'il s'agit d'une boit de validation tu peux faire ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
' pour boites de validation contigües
Sub bv1()
    Range("A2:h2").AutoFill Destination:=Range("A2:h21")
End Sub
 
' pour boite de validation non contigües
Sub bv2()
    Range("A2").AutoFill Destination:=Range("A2:a27") 
    Range("c2").AutoFill Destination:=Range("c2:c27")
    Range("f2").AutoFill Destination:=Range("f2:f27")
    Range("h2").AutoFill Destination:=Range("h2:H27")
  ' modifier 27 à ta convenance
 
End Sub

tu peux bien entendu pour le second cas passer par un "Array" et une boucle

Attention : Cela ne vaut que si les lignes du dessous sont vierges sinon le contenu sera écrasé

Cordialement,

[bernadin.m]

c'est ça règle le problème surtout pour les listes déroulantes simples!
j'ai des listes en cascade sur lesquelles je dois travailler !