Discussion :

[Riilcy]

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 :

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

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

[unparia]

Bonour

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

Code :

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

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

[Riilcy]

Merci pour votre retour.


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

[Philippe Tulliez]

Bonjour,

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

[Riilcy]

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.

[Marc-L]

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, …

[Riilcy]

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.

[Riilcy]

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 :

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

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

[unparia]

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

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

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 :

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

= LIGNE()

tirée vers le bas !

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.

[Riilcy]

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.