Copie d'une référence avec incrémentation x fois suivant variables

Version imprimable

09/08/2012, 21h26
lebricoleur

Copie d'une référence avec incrémentation x fois suivant variables

Bonjour à tous,
J'essaye de faire un classeur pour gérer un petit stock, je butte sur ma macro car certain produit sont livré en carton de 10 ou cinq.Le code des produits ce présente comme celui-ci C12SA445050 la lettre C défini un conditionnement de 10, I12SA445050 la lettre I un conditionnement par 5 ainsi que la lettre D.
Ce que je n'arrive pas à trouver c'est de dire à la macro si C alors recopie sur les cellules en dessous 10 fois en incrémentant de 1.
C12SA445050, C12SA445051, C12SA445052 etc.. et la même chose pour les lettres I et D.
J'ai la formule pour isoler la lettre mais je ne vois pas comment mettre ça en variable.
Si quelqu’un peut m'éclairer
Merci d'avance
09/08/2012, 21h36
Bear the french

Bonsoir,

Plusieurs "if ... then" ou un select case pour définir l'incrémentation maxi en fonction de la référence.

Puis faire une boucle "for i = 1 to incrément_maxi"

Bertrand

Bonsoir à tous,

A adapter

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
Option Explicit
Public Sub Test()
Dim Nbre As Byte
Dim Article As String
Dim i  As Long
Dim Découpage As Boolean
i = 1
Do
    Article = Range("A" & i).Value
    Découpage = False
    If Left(Article, 1) = "C" Then Nbre = 10 Else Nbre = 5
    If Right(Article, 1) = "0" Then
        If Right(Range("A" & i).Offset(1, 0), 1) <> 1 Then
            Rows(i + 1 & ":" & i + Nbre - 1).Select
            Selection.Insert Shift:=xlDown
            Range("A" & i).Select
            Selection.AutoFill Destination:=Range("A" & i & ":A" & i + Nbre - 1), Type:=xlFillDefault
            i = i + Nbre
            Découpage = True
        End If
    End If
    If Not Découpage Then i = i + 1
Loop While Range("A" & i) <> ""
End Sub

Ceci en admettant que les références sont dans la colonne A.
Cordialement.

10/08/2012, 09h33
lebricoleur

Bonjour à Bear the french et HopPopPop

Merci à vous deux pour vos réponses, pour les if....then j'avais commencé par cette solutions dans mon code mais je buttais sur l'incrémentation.
Le code de HopPopPop fonctionne bien j'ai rajouté quelque if.....then car en cas d'autre lettre autre que C,D et I le code continuais à incrémenter de 5.
Encore merci
Thierry