Conditions pour sortir de la procédure

Bonjour,

J'aimerais un code qui

• si ma feuiille 2 est vide
• aille sur feuille 1 pour supprimer les colones (D:O)

En espérant avoir été assez explicite

Bonjour,

Non, suis-je assez explicite ?

Plus sérieusement, déjà comment compte tu vérifier si la feuille est vide ? Cela doit se faire automatiquement ? Dès l'ouverture du fichier ? On doit appuyer sur un bouton pour lancer le code ?

N'hésite pas à préciser ce que tu veux

Bien cordialement,

Bonjour,

C'est assez compréhensible, par contre pour la partie sortir de la macro là :

faudrait détailler ???

Sortir de quelle macro ? à quel moment ce code doit-il se lancer ? une fois terminé doit-il revenir sur une feuille en particulier ?

La feuille se vide avec des copier coller vers la feuiile 1 en fonction de critères

J'aimerais stopper la boucle quand la feuille 2 est vide puis aller sur feuille 1 supprimer des colonnes avant de stopper la macro

Indique au moins le code actuel que tu utilises en boucle.

Voici la partie du code concerné

For i = 1 To 50

Sheets("Report").Select

Range("D3:O100").Select

Application.CutCopyMode = False

Selection.ClearContents

Sheets("Data").Select

If Application.CountA(Range("A:A")) = 0 Then Exit Sub

Range("A1:A300").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

'1ère ligne où commence les données

i = 1

premiereligne = i

'tu définies que la dernière ligne à chercher commence à la ligne suivante

derniereligne = i + 1

'tu boucle tant que les 2 valeurs sont égales

Do While Range("D" & derniereligne) = Range("D" & premiereligne)

'en incrémentant à chaque passage la ligne

derniereligne = derniereligne + 1