Première cellule vide = mois

Salut le forum,

comment puis-je, à l'ouverture d'un fichier (Sub Workbook_open()), inscrire le mois désiré dans la cellule G1?

Le mois désiré est le premier qui a une cellule vide sous son nom. La plage AD2:AO2 est constituée des 12 mois et la plage sous cette dernière est la plage référence.

Donc, pour janvier (AD2), si la cellule en dessous est vide, on inscrit janvier en G1. Sinon, on passe à février et ainsi de suite.

Quand il s'inscrit une donnée dans la cellule correspondante à décembre, le bouton BTNnouveau doit devenir valide et G1 doit être vide.

Merci pour votre aide.

Salut,

Testes cette macro:

Sub mois()

Dim ValeurCellule As String

Range("AD2").Select
Do
        If ActiveCell.Value = "Décembre" Then
                Exit Sub
        Else
                ValeurCellule = ActiveCell.Offset(1, 0).Value
                Select Case ValeurCellule

                Case Is = ""
                Range("G1").Value = ActiveCell.Value
                Exit Sub

                Case Else
                ActiveCell.Offset(0, 1).Select

                End Select
        End If
Loop

End Sub

C'est un petit début....

Souri84

Salut souri84, merci pour ton code.

Cependant, il fonctionne comme je le désire si je le modifie le code comme ceci :

Sub mois()

Dim ValeurCellule As String

Range("AD2").Select
Do
        If ActiveCell.Value = "" Then
        Range("G1").Value = ""

                Exit Sub
        Else
                ValeurCellule = ActiveCell.Offset(2, 0).Value
                Select Case ValeurCellule

                Case Is = ""
                Range("G1").Value = ActiveCell.Value
                Exit Sub

                Case Else
                ActiveCell.Offset(0, 1).Select

                End Select
        End If
Loop

End Sub

Sinon, je n'obtiens jamais l'affichage du mois de décembre. Et si décembre a une valeur désignée, plus rien n'est affiché de cette façon.

Il ne reste qu'à rendre actif le bouton BTNnouveau. Comment désigne-t-on un bouton sur une feuille si le code n'est pas dans la feuille directement?

Encore merci pour votre aide.