C Caterpillar Guest 17 Janvier 2003 #1 Bonjour! Je voudrais insérer avant la colonne C autant de colonnes qu'indiqué dans une cellule (par exemple A1)(maxi : 99) En mode "écriture automatique" de la macro, si j'insère, par exemple 2 colonnes, j'ai le code suivant : Columns("C").Select Selection.Insert Shift:=xlToRight Comment faire la même chose mais avec 1 à 99 colonnes à insérer? Dur pour moi. Fastoche pour vous??? J'espère avoir été claire dans la formulation de ma question. MERCI A TOUS POUR VOTRE AIDE. P.S. Ne pas joindre de fichier zippé, je ne peux pas les lire sur le forum, donc .xls SVP. MERCI Cathy
Bonjour! Je voudrais insérer avant la colonne C autant de colonnes qu'indiqué dans une cellule (par exemple A1)(maxi : 99) En mode "écriture automatique" de la macro, si j'insère, par exemple 2 colonnes, j'ai le code suivant : Columns("C").Select Selection.Insert Shift:=xlToRight Comment faire la même chose mais avec 1 à 99 colonnes à insérer? Dur pour moi. Fastoche pour vous??? J'espère avoir été claire dans la formulation de ma question. MERCI A TOUS POUR VOTRE AIDE. P.S. Ne pas joindre de fichier zippé, je ne peux pas les lire sur le forum, donc .xls SVP. MERCI Cathy
K kiorys Guest 17 Janvier 2003 #2 tres rapidement... et pas forcement puriste, mais je reprends ton code. nb_col = Cells(1, 1) For i = 1 To nb_col Columns("c:c").Select Selection.Insert Shift:=xlToRight Next + Kiorys Vote positif 0 Vote négatif
tres rapidement... et pas forcement puriste, mais je reprends ton code. nb_col = Cells(1, 1) For i = 1 To nb_col Columns("c:c").Select Selection.Insert Shift:=xlToRight Next + Kiorys
C Caterpillar Guest 17 Janvier 2003 #3 J'y avais pensé, mais boucler 99 fois dessus ça fait lourd. Vote positif 0 Vote négatif
K kiorys Guest 17 Janvier 2003 #4 Raaa... jamais content ) ecco! nb_col = Cells(1, 1) Range(Columns(1), Columns(nb_col)).Select Selection.Insert Shift:=xlToRight + Kiorys Vote positif 0 Vote négatif
Raaa... jamais content ) ecco! nb_col = Cells(1, 1) Range(Columns(1), Columns(nb_col)).Select Selection.Insert Shift:=xlToRight + Kiorys
C Caterpillar Guest 17 Janvier 2003 #5 C'est exactement ce que je voulais!!! Comme quoi, yaka d'mander! Merci. Cathy Vote positif 0 Vote négatif