Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Merci beaucoup Bruno 😎, c'est exactement ce qu'il me fallait, je copie ligne par ligne plusieurs fichiers les uns en-dessous des autres pour un même individu.

Biz et bonne journée

C@thy
 
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
 
- 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
120
  • Question Question
Microsoft 365 Champs calculé TCD
Réponses
5
Affichages
160
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…