Copier une plage de données
Résolu
senecartour
Messages postés
324
Date d'inscription
Statut
Membre
Dernière intervention
-
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
senecartour Messages postés 324 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Copier une plage de données
- Fuite données maif - Guide
- Comment copier une vidéo youtube - Guide
- Supprimer les données de navigation - Guide
- Super copier - Télécharger - Gestion de fichiers
- Trier des données excel - Guide
2 réponses
Bonjour senecatour
1) le Range("B2" & ilignecourante) dans la boucle ne peut fonctionner,
ce serait Range("B" & ilignecourante) mais on a une boucle infinie car les cellules ne sont jamais vides
2) pourquoi une boucle Do While ? Si le tableau commence toujours en B2 mais peut être de largeur et de hauteur variable deux boucles For suffisent :
Cdlmnt
1) le Range("B2" & ilignecourante) dans la boucle ne peut fonctionner,
ce serait Range("B" & ilignecourante) mais on a une boucle infinie car les cellules ne sont jamais vides
2) pourquoi une boucle Do While ? Si le tableau commence toujours en B2 mais peut être de largeur et de hauteur variable deux boucles For suffisent :
Sub test()
Dim lignefin, colonnefin As Long
lignefin = Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row
colonnefin = Sheets("Feuil1").Range("B2").End(xlToRight).Column
For icolonnecourante = 2 To colonnefin
For ilignecourante = 2 To lignefin
Sheets("Feuil1").Cells(ilignecourante, icolonnecourante).Select
Selection.Copy Destination:=Sheets("Feuil2").Cells(ilignecourante, icolonnecourante)
Next
Next
End Sub
Cdlmnt