Discussion :

[kisscool943]

Bonjour à tous,

Voici mon petit souci sur lequel je plante depuis plusieurs jours.

J'ai une liste de client que je fais pour chaque envoie de colis.

Mon fichier se présente comme cela:

A      B        C             D        E     F      G
NOM    ADRESSE  CODE POSTAL   VILLE    1     /      2 (NOMBRE DE cARTON)

Se que j'aimerais s'est que lorsque j'ai plus d'un carton, une ligne s'ajoute en dessous et copie le nom adresse etc... du client que j'ai déjà entrer.

Ce qui m'évitera de devoir entrer 50x le même client etc...

Est-ce que vous penser qu'il y a une solution à mon problème?


Je vous remercie d'avance pour votre aide.

[jfontaine]

Bonjour,

Pas d'autre solution que de passer par une macro.

En restant positionné sur la ligne de saisie du premier colis, lancer cette macro
en G le nombre de colis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Copierligne()
Dim i As Integer
 
If Range("G" & ActiveCell.Row + 1).Value = "" Then
 
    Range("A" & ActiveCell.Row & ":G" & ActiveCell.Row).Copy
 
    Range("A" & ActiveCell.Row + 1 & ":A" & ActiveCell.Row + Range("G" & ActiveCell.Row).Value - 1).PasteSpecial
 
End If
 
End Sub