Copier des valeurs à la 1ère ligne avec une macro
Résolu/Fermé
Benny6422
Messages postés
5
Date d'inscription
samedi 18 février 2017
Statut
Membre
Dernière intervention
18 février 2017
-
18 févr. 2017 à 15:01
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 19 févr. 2017 à 09:00
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 19 févr. 2017 à 09:00
A voir également:
- Copier des valeurs à la 1ère ligne avec une macro
- Aller à la ligne excel - Guide
- Copier une vidéo youtube - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Macro word - Guide
2 réponses
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
18 févr. 2017 à 15:52
18 févr. 2017 à 15:52
Bonjour
Essaies comme ceci
Cdlmnt
Essaies comme ceci
Sub copier_coller_xfois() Dim x As Integer Dim Cpt As Integer With Sheets("FEUIL1") x = .Range("D1").Value .Range("A1:C1").Copy End With Sheets("Feuil2").Activate With ActiveSheet For Cpt = 1 To x .Paste Destination:=.Range("A1").Offset(Cpt, 0) Next Cpt End With End Sub
Cdlmnt
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
18 févr. 2017 à 15:58
18 févr. 2017 à 15:58
Bonjour a vous deux,
Sub copier_coller_xfois()
Sub copier_coller_xfois()
With Worksheets("feuil1") 'resize(valeur de D1,nombre de colonnes)=nombre de fois 'deux application.transpose pour avoir les valeurs dans le bon ordre Sheets("Feuil2").Range("A1").Resize(.Range("D1").Value, 3) = Application.Transpose(Application.Transpose(.Range("A1:C1"))) End With End Sub
Benny6422
Messages postés
5
Date d'inscription
samedi 18 février 2017
Statut
Membre
Dernière intervention
18 février 2017
18 févr. 2017 à 17:55
18 févr. 2017 à 17:55
Bonjour,
merci ça fonctionne très bien. Ma première valeur de D1 est 4. Donc la macro copie 4 fois la même ligne.. super! mais là je voudrais ajouter une autre ligne à copier ex. 5 fois à la suite de mes 4 premières lignes. Ça marche à moitié car j'ai perdu une des 4 premières lignes déjà inscrites... voici la modification que j'ai apportée suite à votre suggestion:
Sub copier_coller_xfois()
With Worksheets("feuil1")
'resize(valeur de D1,nombre de colonnes)=nombre de fois
'deux application.transpose pour avoir les valeurs dans le bon ordre
Sheets("Feuil2").Range("A1").Resize(.Range("D1").Value, 3) = Application.Transpose(Application.Transpose(.Range("A1:C1")))
Sheets("Feuil2").Range("A65536").End(xlUp).Resize(.Range("D2").Value, 3) = Application.Transpose(Application.Transpose(.Range("A2:C2")))
End With
End Sub
Merci!
merci ça fonctionne très bien. Ma première valeur de D1 est 4. Donc la macro copie 4 fois la même ligne.. super! mais là je voudrais ajouter une autre ligne à copier ex. 5 fois à la suite de mes 4 premières lignes. Ça marche à moitié car j'ai perdu une des 4 premières lignes déjà inscrites... voici la modification que j'ai apportée suite à votre suggestion:
Sub copier_coller_xfois()
With Worksheets("feuil1")
'resize(valeur de D1,nombre de colonnes)=nombre de fois
'deux application.transpose pour avoir les valeurs dans le bon ordre
Sheets("Feuil2").Range("A1").Resize(.Range("D1").Value, 3) = Application.Transpose(Application.Transpose(.Range("A1:C1")))
Sheets("Feuil2").Range("A65536").End(xlUp).Resize(.Range("D2").Value, 3) = Application.Transpose(Application.Transpose(.Range("A2:C2")))
End With
End Sub
Merci!
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
>
Benny6422
Messages postés
5
Date d'inscription
samedi 18 février 2017
Statut
Membre
Dernière intervention
18 février 2017
18 févr. 2017 à 20:30
18 févr. 2017 à 20:30
Re,
premiere copie en A2 et la deuxieme a la suite, deux possibiltes
premiere copie en A2 et la deuxieme a la suite, deux possibiltes
Sub copier_coller_xfois() With Worksheets("feuil1") 'resize(valeur de D1,nombre de colonnes)=nombre de fois 'deux application.transpose pour avoir les valeurs dans le bon ordre 'cellule de depart A2 Sheets("Feuil2").Range("A2").Resize(.Range("D1").Value, 3) = Application.Transpose(Application.Transpose(.Range("A1:C1"))) 'Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1).Resize(.Range("D2").Value, 3) = Application.Transpose(Application.Transpose(.Range("A2:C2"))) 'ou Sheets("Feuil2").Range("A" & .Range("D1") + 2).Resize(.Range("D2").Value, 3) = Application.Transpose(Application.Transpose(.Range("A2:C2"))) End With End Sub
Benny6422
Messages postés
5
Date d'inscription
samedi 18 février 2017
Statut
Membre
Dernière intervention
18 février 2017
>
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
18 févr. 2017 à 21:43
18 févr. 2017 à 21:43
Merci beaucoup,
Ça fonctionne très bien ... j'ai régénéré un tableau de 4 lignes différentes avec des valeurs précises et c'est super!!!!!!
Autre petite question.... dans un tableau excel, est-ce qu'il y a une commande pour éliminer une ligne n'ayant aucunes valeurs sur plusieurs colonnes ou il faut passer par une macro... ex..
aaaaaa ffffff 786 ghj
000000 000 000 000
ddddd 4er4 frrt bgtr
Or la deuxième ligne est à éliminer...
Merci pour ton précieux temps..
Ça fonctionne très bien ... j'ai régénéré un tableau de 4 lignes différentes avec des valeurs précises et c'est super!!!!!!
Autre petite question.... dans un tableau excel, est-ce qu'il y a une commande pour éliminer une ligne n'ayant aucunes valeurs sur plusieurs colonnes ou il faut passer par une macro... ex..
aaaaaa ffffff 786 ghj
000000 000 000 000
ddddd 4er4 frrt bgtr
Or la deuxième ligne est à éliminer...
Merci pour ton précieux temps..
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
>
Benny6422
Messages postés
5
Date d'inscription
samedi 18 février 2017
Statut
Membre
Dernière intervention
18 février 2017
19 févr. 2017 à 09:00
19 févr. 2017 à 09:00
Bonjour,
éliminer une ligne n'ayant aucunes valeurs
Si c'était des cellules vides, un tri irait, mais autrement VBA.
Le tableau est celui dont vous copiez les lignes?
éliminer une ligne n'ayant aucunes valeurs
Si c'était des cellules vides, un tri irait, mais autrement VBA.
Le tableau est celui dont vous copiez les lignes?
18 févr. 2017 à 17:09
Merci!
18 févr. 2017 à 18:13
Cdlmnt
18 févr. 2017 à 21:34