Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/09/2011, 12h11   #1
 
Femme
Inscription : septembre 2011
Messages : 1
Détails du profil
Informations personnelles :
Sexe : Femme

Informations forums :
Inscription : septembre 2011
Messages : 1
Points : -1
Points : -1
Par défaut Comment doubler des lignes automatiquement dans excel?

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.
kisscool943 est déconnecté   Envoyer un message privé Réponse avec citation 01
Vieux 08/09/2011, 15h26   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 895
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 895
Points : 7 179
Points : 7 179
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 :
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
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est actuellement connecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h56.


 
 
 
 
Partenaires

Hébergement Web