Insérer une colonne VBA

Bonjour à tous,

Je suis novice en VBA et je suis là pour avoir des conseils. Je voudrais insérer quelques lignes dans un codé déjà existant.

Ce code génère un nombre x de cas (voir le code ci-dessous) et je souhaiterais insérer une colonne (A exemple) où chaque ligne (x,A en exemple) sera rempli avec le chiffre "x" jusqu’à la dernière valeur de la boucle.

En espérant avoir était assez clair. Je vous remercie par avance de votre aide.

Cordialement,

Riilcy

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Sub Macro1() ' ' Macro1 Macro Sheets("Combinatoire").Select Columns("A:K").Select Selection.ClearContents     Total = Sheets("Paramètres").Cells(4, 13) saut = 1     Nbcritere = 0 For Numcritere = 1 To 11 Step 1 If Sheets("Paramètres").Cells(4, Numcritere + 1) = "" Then Exit For Else Nbcritere = Nbcritere + 1 End If Next   For Numcritere = 1 To Nbcritere Step 1 Nb = Sheets("Paramètres").Cells(4, Numcritere + 1) Nomcritere = Sheets("Paramètres").Cells(3, Numcritere + 1) Sheets("Combinatoire").Cells(1, Numcritere) = Nomcritere   For cycl = 1 To (Total / (saut * Nb)) Step 1 For cas = 1 To Nb valeur = Sheets("Paramètres").Cells(cas + 4, Numcritere + 1) For repet = 1 To saut Sheets("Combinatoire").Cells((Nb * saut) * (cycl - 1) + saut * (cas - 1) + repet + 1, Numcritere) = valeur Next Next Next   saut = saut * Nb   Next   End Sub

---

Bonour

J'ai l'habitude de répondre en invitant à faire de petits tests --->>

Code:

---

1 2 3

Columns("D").Insert derlig = Range("B" & Rows.Count).End(xlUp).Row Range("D1:D" & derlig).Value = Range("B1:B" & derlig).Value

---

Merci pour votre retour.


Cependant, je ne vois pas trop où mettre cette partie du code ...

Bonjour,

Citation:

---

je ne vois pas trop où mettre cette partie du code ...

---

Si tu avais utilisé l'enregistreur de macros, le meilleur ami du développeur quand il ne sait pas quelle méthode ou quelle propriété utiliser pour un objet, tu ne poserais pas cette question.
Car tu aurais pu constater que le code se place à l'intérieur d'une procédure (Sub) qui elle même se trouve dans un module.

A lire de toute urgence Support de cours complet pour le VBA d'Excel

Oui, je savais qu'il fallait le mettre à l'intérieur de la procédure Sub().
Je voulais dire par rapport à mon code que j'ai mis je ne savais pas où placer le test que vous m'avez transmis.

Bonjour,

du coup ta question en appelle une autre :   est-ce vraiment ton code ?‼

Un code n'étant qu'une suite logique d'actions …

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Pas du tout je viens de le recevoir dans le cadre d'un projet et je dois faire des modifications sur ce code là.

Je sais ce qu'il génère mais étant donné que je viens de découvrir le VBA je ne vois pas du tout comment intégrée une nouvelle colonne et faire les modifications souhaitées.

J'ai utilisé un autre moyen pour ajouter une colonne.

Du coup, j'ai décalé mon tableau qui a été généré par la macro d'une colonne vers la droite et maintenant je souhaiterais juste remplir les cellules avec le numéro de ligne correspondante.

j'ai tenté un début de boucle For mais sans réel succès ...

Savez vous quels modifications dois je faire ?

Code:

---

1 2 3 4 5 6

Columns("A:A").Insert Shift:=xlToRight   For x = 1 To Total Cells(x, A).Select = "x" x = x + 1 Next

---

Citation:

---

J'ai utilisé un autre moyen pour ajouter une colonne.

---

il est fondamentalement identique à celui qui t'a été donné ...;)

Citation:

---

j'ai tenté un début de boucle For mais sans réel succès ...

Savez vous quels modifications dois je faire ?

---

Pour écrire en colonne A les N°s de lignes ? --->> C'est une plaisanterie ?
Une simple formule Excel

Code:

---

= LIGNE()

---

tirée vers le bas !:applo:

PS : je préfère passer sous silence la confusion que tu fais entre une chaîne de caractère et une variable.
Tu as TRES TRES TRES surement besoin de commencer l'étude des rudiments de chez rudiment.
Reviens ensuite au moins "armé" de cela, s'il te plait.

Une manière de le faire en VBA serait mieux mais le décalage n'est pas le moyen le plus approprié pour le code.

Je voudrais essayer un autre moyen.

Auriez vous une idée pour commencer mon tableau à la colonne B au lieu de la colonne A ?

Par après je vais insérer les numéros de lignes.