Excel-VBA: Ignorez les lignes cachées dans une boucle for

Je cherchais mon problème … mais je ne pouvais pas find quelque chose de bon.

J'essaie de copyr des valeurs de la feuille 1 à la feuille 2 .. Dans la feuille 1 ("xy"), il n'y a pas de lignes cachées. Dans la feuille 2 ("Adresse"), il y a.

J'utiliserais une boucle pour faire cela:

end = cells(rows.count, 1).end(xlUp).row Row = 1 For i = 11 To end Sheets("xy").Select Cells(Row, 19).Copy Sheets("Adress").Select Cells(i, 19).PasteSpecial xlPasteValues Row = Row + 1 Next i 

Le problème est que la boucle utilise toujours les lignes cachées dans sheet2 ("Adress") … Comment puis-je les ignorer?

• Comment convertir la date lisible en unix-timestamp?
• Trouver la première cellule vide dans une colonne en utilisant VBA sans boucle
• Masquer les lignes si la cellule contient une colonne contenant un certain text ou l'autofiltrage d'un champ unique avec 4 critères
• Passer des collections d'une forme d'user à une autre Formulaire d'user
• Comment écrire une formule IF pour les conditions IF multiples

Merci de votre aide 🙂

• Le script obtient une erreur lorsque VBE n'est pas ouvert
• Supprimer les sauts de ligne de contenu tsv
• Lors de l'export du rapport vers Excel, le file xls par défaut est limité à 64k lignes
• Mise en surbrillance des lignes en double dans Excel
• OleDbException: Aucune valeur donnée pour un ou plusieurs parameters requirejs. Requête de mise à jour. Excel C #

 end = cells(rows.count, 1).end(xlUp).row Row = 1 For i = 11 To end If Not Worksheet("Adress").Cells(i, 19).hidden Then Worksheet("Adress").Cells(i, 19) = Worksheet("xy").Cells(Row, 19) Row = Row + 1 End If Next i