C
Christophe
Guest
Bonjour,
L’autre jour Creepy m’a donné la réponse à ma question qui était de traduire la phrase suivante en vba.
Si la première ligne vide est <50 lancer la macro 1 sinon lancer la macro 2. Sa solution marche très bien mais j’avais oublié de préciser que j’aimerai que le traitement s’applique à toutes les feuilles du classeur (163) et je ne sais pas comment faire pour activer la feuille suivante
Public Sub test()
Dim Fin As Integer
Fin = Sheet1.Range('A1').End(xlUp).Row + 1
For Each Sheet In ActiveWorkbook.Sheets
If Fin < 50 Then
Call Macro1
Else
Call Macro2
End If
Next
End Sub
Mon For Each Sheet... ne marche pas, ma macro tourne toujours sur la feuille 1??
Merci de votre aide
L’autre jour Creepy m’a donné la réponse à ma question qui était de traduire la phrase suivante en vba.
Si la première ligne vide est <50 lancer la macro 1 sinon lancer la macro 2. Sa solution marche très bien mais j’avais oublié de préciser que j’aimerai que le traitement s’applique à toutes les feuilles du classeur (163) et je ne sais pas comment faire pour activer la feuille suivante
Public Sub test()
Dim Fin As Integer
Fin = Sheet1.Range('A1').End(xlUp).Row + 1
For Each Sheet In ActiveWorkbook.Sheets
If Fin < 50 Then
Call Macro1
Else
Call Macro2
End If
Next
End Sub
Mon For Each Sheet... ne marche pas, ma macro tourne toujours sur la feuille 1??
Merci de votre aide