Bonjour,
Ce code fonctionne si il y a au moins une cellule en colonne 5 d'un onglet qui est égale à "OUI".
Or j'ai certain onglets qui n'ont aucun "OUI" (non, peut etre, bientôt,...).
Comment faire sauter un onglet si ma condition n'est pas trouvée ?
Source :
Gestion des onglets et des classeurs
Merci d'avance
Ce code fonctionne si il y a au moins une cellule en colonne 5 d'un onglet qui est égale à "OUI".
Or j'ai certain onglets qui n'ont aucun "OUI" (non, peut etre, bientôt,...).
Comment faire sauter un onglet si ma condition n'est pas trouvée ?
Code:
Sub recap()
ligne = 2
For s = 2 To Sheets.Count
For lig = 2 To Sheets(s).[A65000].End(xlUp).Row
If Sheets(s).Cells(lig, 5) = "OUI" Then
Sheets(s).Rows(lig).Copy Sheets("commande").Cells(ligne, 1)
Cells(ligne, 6) = Sheets(s).Name
ligne = ligne + 1
End If
Next lig
Next
End Sub
Source :
Gestion des onglets et des classeurs
Merci d'avance