VBA copier cellules visibles

  • Initiateur de la discussion Initiateur de la discussion C@thy
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C@thy

XLDnaute Barbatruc
Bonjour 😉,

j'ai des colonnes masquées, comment copier ligne après ligne sans les colonnes masquées?😕

Merciiiiiiiiiiiiiii

Biz et bon ouik

C@thy
 
Re : VBA copier cellules visibles

Coucou C@thy

Pour copier ligne par ligne
Code:
For X = 1 to 10
Rows(X).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil2").Rows(X)
Next X

Pour copier une Zone
Code:
Range("A1:Z500").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil2").Range("A1")

Voili, voilà 😉
Biz
 
Re : VBA copier cellules visibles

Bonsoir C@thy, BrunoM45,

Géniale cette solution ! 😛
Merci pour ces solutions. Une question cepeandant :Et si lignes masquées, comment copier ligne après ligne sans les lignes masquées ? est-ce réalisable?

CG2000
 
Re : VBA copier cellules visibles

Bonsoir le fil,

CG20, Bruno a répondu brillamment, donc tu as la réponse à ma question (en 1er) et à la tienne (tu utilises la 2ème solution).

For X = 1 to 10
Range("A" & i :Z" & i).SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Feuil2").Range("A" & i)

Biz

C@thy
 
Dernière édition:
Re : VBA copier cellules visibles

Bonsoir le forum, bonsoir le fil,

En effet C@thy, BrunoM45 nous donne bien les deux solutions. 😱
Trop ébahi par le premier effet, je n'ai point vu le deuxième effet. 😛
Ceci-dit merci C@thy d'avoir fait ce fil et de nouveau merci à BrunoM45 pour les solutions.

CG2000
 
Re : VBA copier cellules visibles

Bonsoir à vous 2

Que de compliments 😉😛

Merci à vous ça fait toujours plaisir
love1.gif


A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Formule Excel
Réponses
4
Affichages
246
Réponses
7
Affichages
116
  • Question Question
Microsoft 365 Champs calculé TCD
Réponses
5
Affichages
157
Retour