selection pour copy

Le
Fredy
Bonjour à 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éponses.
Fredy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #16439151
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 !!!!
Fredy
Le #16439861
re Bonjour,
Merci à FFO pour ce bout de code.
ça fonctionne.
fredy
Publicité
Poster une réponse
Anonyme