multiplication

Salut
Sub cpc()
Dim i As Integer
Dim cell As Range
Do
Set cell = Range("b65535").End(xlUp)
With cell
For i = 1 To .Value - 1
Range(.Offset(1, -1), .Offset(1, 0)).Insert Shift:=xlDown
.Offset(1, -1) = .Offset(0, -1).Value
Next i
cell.Value = ""
End With
Loop Until cell.Row = 1 'ou la première ligne
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"JF" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
d4c201c439eb$ec0561d0$a001280a@phx.gbl...
Bonjour, j'ai un fichier excel avec 2 colonnes.
La première contient des codes postaux canadiens et la
seconde un chiffre.

J0B1H0 2
H0H0H0 3
...

Je veux que mon fichier final ressemble à ceci:
J0B1H0
J0B1H0
H0H0H0
H0H0H0
H0H0H0
...

Merci de votre aide!
Excel 2002

Une suggestion :

Sub Réarrangement()
Set ici = Selection
NL = ici.Rows.Count
For i = 1 To NL
For j = 1 To ici(i, 2)
k = k + 1
ici(k, 3) = ici(i, 1)
Next j
Next i
End Sub

Serge

"JF" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
d4c201c439eb$ec0561d0$a001280a@phx.gbl...
Bonjour, j'ai un fichier excel avec 2 colonnes.
La première contient des codes postaux canadiens et la
seconde un chiffre.

J0B1H0 2
H0H0H0 3
...

Je veux que mon fichier final ressemble à ceci:
J0B1H0
J0B1H0
H0H0H0
H0H0H0
H0H0H0
...

Merci de votre aide!
Excel 2002

Bonjour JF,

Une autre façon de faire :



'------------------------
Sub CodePostaux()

Dim Rg As Range, D As Range

With Worksheets("Feuil1")
'Plage où sont les codes postaux
Set Rg = .Range("A1:A3")
'Première cellule de destination
Set D = Range("D1")
End With

For Each r In Rg
D.Resize(r.Offset(, 1)) = r
Set D = D.Resize(r.Offset(, 1)).Offset(r.Offset(, 1))
Next

Set Rg = Nothing: Set D = Nothing
End Sub
'------------------------


Salutations!



"JF" <anonymous@discussions.microsoft.com> a écrit dans le message de news:d4c201c439eb$ec0561d0$a001280a@phx.gbl...
Bonjour, j'ai un fichier excel avec 2 colonnes.
La première contient des codes postaux canadiens et la
seconde un chiffre.

J0B1H0 2
H0H0H0 3
...

Je veux que mon fichier final ressemble à ceci:
J0B1H0
J0B1H0
H0H0H0
H0H0H0
H0H0H0
...

Merci de votre aide!
Excel 2002