Transférer des lignes
Fermé
lolio
-
29 mai 2018 à 10:55
altashy Messages postés 36 Date d'inscription mercredi 3 janvier 2018 Statut Membre Dernière intervention 1 juin 2018 - 1 juin 2018 à 10:12
altashy Messages postés 36 Date d'inscription mercredi 3 janvier 2018 Statut Membre Dernière intervention 1 juin 2018 - 1 juin 2018 à 10:12
A voir également:
- Transférer des lignes
- Transferer photo android vers pc - Guide
- Transferer licence windows - Guide
- Figer des lignes excel - Guide
- Transferer iphone vers iphone - Guide
- Comment transférer de l'argent sur paypal - Guide
2 réponses
altashy
Messages postés
36
Date d'inscription
mercredi 3 janvier 2018
Statut
Membre
Dernière intervention
1 juin 2018
2
29 mai 2018 à 15:25
29 mai 2018 à 15:25
Salut,
essaye avec ça:
Sub copyLigne()
Dim cpt As Integer
cpt = 1
Sheets("Feuil2").Activate 'activer la feuil2
Cells.ClearContents
Sheets("Feuil1").Activate 'activer la feuil1
nbliF1 = Cells(Sheets("Feuil1").Rows.Count, "A").End(xlUp).Row 'nombre de ligne de la feuil1
For i = 1 To nbliF1
If Cells(i, 2) = 0 Then 'cas pour cellules B1, B2, B3.....
Rows(i).Copy 'copy la ligne
Sheets("Feuil2").Activate 'activer la feuil2
Rows(cpt).Select
ActiveSheet.Paste
cpt = cpt + 1
End If
Next
Application.CutCopyMode = False
End Sub
essaye avec ça:
Sub copyLigne()
Dim cpt As Integer
cpt = 1
Sheets("Feuil2").Activate 'activer la feuil2
Cells.ClearContents
Sheets("Feuil1").Activate 'activer la feuil1
nbliF1 = Cells(Sheets("Feuil1").Rows.Count, "A").End(xlUp).Row 'nombre de ligne de la feuil1
For i = 1 To nbliF1
If Cells(i, 2) = 0 Then 'cas pour cellules B1, B2, B3.....
Rows(i).Copy 'copy la ligne
Sheets("Feuil2").Activate 'activer la feuil2
Rows(cpt).Select
ActiveSheet.Paste
cpt = cpt + 1
End If
Next
Application.CutCopyMode = False
End Sub
lolio85
Messages postés
3
Date d'inscription
mardi 29 mai 2018
Statut
Membre
Dernière intervention
30 mai 2018
29 mai 2018 à 23:48
29 mai 2018 à 23:48
Merci beaucoup pour vos effort mail malheureusement il y a qualque chose qui cloche. En effet, voila ce que ça donne 
lolio85
Messages postés
3
Date d'inscription
mardi 29 mai 2018
Statut
Membre
Dernière intervention
30 mai 2018
29 mai 2018 à 23:49
29 mai 2018 à 23:49
et le resultat
altashy
Messages postés
36
Date d'inscription
mercredi 3 janvier 2018
Statut
Membre
Dernière intervention
1 juin 2018
2
1 juin 2018 à 10:12
1 juin 2018 à 10:12
Rajoute : Sheets("Feuil1").Activate
apres : ActiveSheet.Paste
apres : ActiveSheet.Paste
Modifié le 29 mai 2018 à 16:24
Il faut absolument éviter d'utiliser .Select et .Activate, c'est une des premières sources d'erreur sous VBA !!!
Éviter aussi d'utiliser le presse papier.
30 mai 2018 à 11:22