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