Re : Sélection d'onglets en fonction d'ActiveSheet
Bonjour CBernardT, Bonjour Paf,
CBernardT, en effet, avec une formule cela aurait aurait aussi marché, cependant je souhaitais l'exécution lors de l'appui sur un bouton. Paf, ta solution est parfaite ! Mois j'étais parti sur une usine à gaz mais sans succès...
Sub ecrirefeuille()
ActiveSheet.Range("R2").Value = "Envoyé le"
ActiveSheet.Range("R3").Value = Format(Date, "d-mmmm-yy")
If Worksheets(ActiveSheet.Index + 1).Name <> "" Then
Worksheets(ActiveSheet.Index + 1).Select
Range("R2").Select
Range("R2").Value = "Envoyé le"
Range("R3").Select
Range("R3").Value = Format(Date, "d-mmmm-yy")
Else
Exit Sub
End If
If Worksheets(ActiveSheet.Index + 1).Name <> "" Then
If ActiveSheet.Next.Visible = True Then
Worksheets(ActiveSheet.Index + 1).Select
Range("R2").Select
Range("R2").Value = "Envoyé le"
Range("R3").Select
Range("R3").Value = Format(Date, "d-mmmm-yy")
Else
Exit Sub
End If
If Worksheets(ActiveSheet.Index + 1).Name <> "" Then
If ActiveSheet.Next.Visible = True Then
Worksheets(ActiveSheet.Index + 1).Select
Range("R2").Select
Range("R2").Value = "Envoyé le"
Range("R3").Select
Range("R3").Value = Format(Date, "d-mmmm-yy")
Else
Exit Sub
End If
End Sub
Encore merci à vous !!
Problème résolu