Bonjour =E0 tous,
Comment faire la selection pour copy_coller dans une plage
range("a1:a256").Copy
mais en ne prenant que les cellules impair ?
Merci pour toutes r=E9ponses.
Fredy
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
Salut à toi
La recopie cellule par cellule impaire avec ce code :
Toute la cellule dans Feuil2 :
Range("B1").Activate i = 0 Do While ActiveCell.Offset(i, 0).Row < 257 ActiveCell.Offset(i, 0).Copy Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) i = i + 2 Loop
Juste la valeur dans Feuil2 (plus rapide):
Range("B1").Activate i = 0 Do While ActiveCell.Offset(i, 0).Row < 256 Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0).Value = ActiveCell.Offset(i, 0).Value i = i + 2 Loop
Peut être ta solution Dis moi !!!!
Salut à toi
La recopie cellule par cellule impaire avec ce code :
Toute la cellule dans Feuil2 :
Range("B1").Activate
i = 0
Do While ActiveCell.Offset(i, 0).Row < 257
ActiveCell.Offset(i, 0).Copy
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0)
i = i + 2
Loop
Juste la valeur dans Feuil2 (plus rapide):
Range("B1").Activate
i = 0
Do While ActiveCell.Offset(i, 0).Row < 256
Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0).Value =
ActiveCell.Offset(i, 0).Value
i = i + 2
Loop
La recopie cellule par cellule impaire avec ce code :
Toute la cellule dans Feuil2 :
Range("B1").Activate i = 0 Do While ActiveCell.Offset(i, 0).Row < 257 ActiveCell.Offset(i, 0).Copy Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0) i = i + 2 Loop
Juste la valeur dans Feuil2 (plus rapide):
Range("B1").Activate i = 0 Do While ActiveCell.Offset(i, 0).Row < 256 Sheets("Feuil2").Range("A65535").End(xlUp).Offset(1, 0).Value = ActiveCell.Offset(i, 0).Value i = i + 2 Loop
Peut être ta solution Dis moi !!!!
Fredy
re Bonjour, Merci à FFO pour ce bout de code. ça fonctionne. fredy
re Bonjour,
Merci à FFO pour ce bout de code.
ça fonctionne.
fredy