Problème incrémentation macro

Version imprimable

11/07/2012, 21h05
phnguyen

Problème incrémentation macro

Bonjour, j'essai depuis hier matin de faire une macro pour incrémenter les chiffres d'une colonne par rapport à une autre case de façon continue je vais essayer de vous décrire ça, j'ai regarder de long en large votre forum, jy ai trouvé beaucoup d'astuce mais pas le meme probleme.

A B
2328 1000
2328 1000
3328 1001
3328 1001
3328 1001
4328 1002
4328 1002
4328 1002
4328 1002

Le résultat devra être ce que j'ai dans la colonne B ( les chiffres 1001,1002)
Je voudrais par rapport à la colonne A et par rapport au chiffre le plus à gauche par exemple ici on a dans l'ordre 2 2 puis 3 3 3 et 4 4 4 il faudrait que les chiffres dans la colonne B par exemple au tout début une fenêtre qui nous demande de définir le chiffre de départ et ensuite de copier 2 fois si c'est 2 de copier 3 fois si c'est 3 et ainsi de suite tout en incrémentant le résultat.

J'avais commencé avec des formules pour ensuite les intégrer mais je m'en sort pas, avec les fonction Gauche décaler et si mais je n'y arrive pas, si quelqu'un pouvait se pencher dessus merci
12/07/2012, 11h00
gFZT82

Bonjour,

Pas bien compris :koi:

Citation:

au tout début une fenêtre qui nous demande de définir le chiffre de départ

Quel chiffre de départ ? celui de la colonne A (2328) ou celui de la colonne B (1000) ?
Est-ce que la colonne A est pré-remplie comme tu le montres dans ton exemple ?
Si c’est le cas, il suffit d’incrémenter en colonne B à chaque changement de chiffre en colonne A.
Et si le chiffre en colonne A ne change pas, il suffit de copier le même chiffre en colonne B.

Cordialement.
12/07/2012, 13h09
phnguyen

1 pièce(s) jointe(s)

Bonjour la colonne A est déja pré remplies, j'ai un peu avancé, je vous met le fichier ce sera plus clair, donc actuellement le chiffre de départ est défini, ce que j'aimerai faire c'est avoir lorsqu'on clique sur le bouton une fenêtre qui apparait et qui nous demande la valeur à partir de quelle chiffre on pourrait commencer merci pour votre aide

Essaie avec code

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
Private Sub CommandButton1_Click()
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim i As Integer 'déclare la variable i (Incrément)
Dim n As Integer 'déclare la variable x (incrément)
Dim g As Byte 'déclare la variable g (première carcactère à Gauche)
Dim Ligne As Long
    i = InputBox("Veuillez saisir le nombre initial", , 1000) 'initialise la variable i
    With Sheets("Feuil1") 'prend en compte l'onglet ("Feuil1")
        dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée de la colonne 1 (A)
        Ligne = 1
        While .Range("A" & Ligne) <> ""
            g = Left(.Range("A" & Ligne), 1) 'définit le premier caractère à gauche g de la cellule A1
            If g > 1 Then
                For n = 1 To g
                    .Range("A" & Ligne).Offset(0, 1) = i
                    Ligne = Ligne + 1
                Next n
                i = i + 1
            Else
                .Range("A" & Ligne).Offset(0, 1) = ""
                Ligne = Ligne + 1
            End If
        Wend
    End With 'fin de la prise en compte de l'onglet "Feuil1"
End Sub

Cordialement.

12/07/2012, 20h43
phnguyen

merci nickel