[Excel] Macro de copie de lignes
Fermé
Mickily
-
14 mai 2008 à 16:06
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 14 mai 2008 à 17:09
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 - 14 mai 2008 à 17:09
A voir également:
- [Excel] Macro de copie de lignes
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Copiez la ligne indiquant aux moteurs de recherche de ne pas référencer la page. ✓ - Forum Référencement
- Copie cachée - Guide
4 réponses
Castor
Messages postés
17747
Date d'inscription
mardi 3 juillet 2001
Statut
Modérateur
Dernière intervention
11 mars 2015
136
14 mai 2008 à 16:14
14 mai 2008 à 16:14
Salut
Peux-tu nous mettre une copie de ton code ici? Cela sera plus facile de débugger un code existant que de partir de zéro
Peux-tu nous mettre une copie de ton code ici? Cela sera plus facile de débugger un code existant que de partir de zéro
C'est juste une macro vu que j'y connait pas grand chose
Sub Bouton2_QuandClic()
'
' Bouton2_QuandClic Macro
' Macro enregistrée le 14/05/2008 par PAU
'
'
Range("A7:BF7").Select
Selection.Copy
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A11").Select
End Sub
Merci d'avance
Sub Bouton2_QuandClic()
'
' Bouton2_QuandClic Macro
' Macro enregistrée le 14/05/2008 par PAU
'
'
Range("A7:BF7").Select
Selection.Copy
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A11").Select
End Sub
Merci d'avance
Castor
Messages postés
17747
Date d'inscription
mardi 3 juillet 2001
Statut
Modérateur
Dernière intervention
11 mars 2015
136
14 mai 2008 à 16:58
14 mai 2008 à 16:58
Sub Bouton2_QuandClic()
'
' Bouton2_QuandClic Macro
' Macro enregistrée le 14/05/2008 par PAU
'
'
Range("A7:BF7").Select
Sélectionne la ligne 7 (tu parlais pas de la 1 ?)
Selection.Copy
Range("A10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Colle tout dans la ligne 10
Range("A11").Select
End Sub
Puis sélectionne la ligne 11
Jamais tu ne change la ligne d'arrivée.
Il te faudrait une boucle du style (j'ai plus la syntaxe exacte en VBA)
$ligne = 10 (ligne de départ)
while cell("A".$ligne) is not empty
$ligne = $ligne+1
loop
Range("A" . $ligne).Select
Que tu mets après ton "Selection.Copy"
Ce ne sont que des pistes, pas du code "tel quel"
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
14 mai 2008 à 17:09
14 mai 2008 à 17:09
Bonjour
Sub copierligne()
Dim derlig As Long
derlig = Columns(1).Find("", Range("A9")).Row
Range("A7:BF7").Copy Range("A" & derlig & ":BF" & derlig)
End Sub
Sub copierligne()
Dim derlig As Long
derlig = Columns(1).Find("", Range("A9")).Row
Range("A7:BF7").Copy Range("A" & derlig & ":BF" & derlig)
End Sub