Syntaxe msgr box
Bonsoir le forum,
Je souhaiterais adapter cette macro pour les semaines
Private Sub Workbook_Open()
Application.AskToUpdateLinks = True
With Feuil1.[E3]
If IsEmpty(.Value) Then .Value = CDate(InputBox("Veuillez rentrer le numéro de la semaine", "Ouverture " & Me.Name, date))
End With
End Sub
Quelle syntaxe adoptée svp?
Merci
Bonjour Monreno076
Pour une semaine, donc 7 jours, pour moi la syntaxe est :
Si le lundi est en E3
Private Sub Workbook_Open()
Dim Rng As Range
Application.AskToUpdateLinks = True
' Semaine en lignes
For Each Rng In Feuil1.[E3:E7]
' Semaine en Colonnes
'For Each Rng In Feuil1.[E3:K3]
If IsEmpty(Rng.Value) Then
Rng.Value = CDate(InputBox("Veuillez rentrer le numéro de la semaine", "Ouverture " & Me.Name, Date))
End If
Next Rng
End SubA+
Bonjour Bruno45
juste pour saluer Bruno que je n'ai pas croisé depuis depuis .......
bonne journée et bon weekend à vous tous
a+
Papou
Salut Papou
Effectivement tu as l’œil et le bon
Mon boulot d'auto-entrepreneur en plus du reste me prend beaucoup (trop) de temps
Bon week-end à toi et à tous ceux qui liront
Bonjour à tous.
Ca ne fonctionne pas.
Cdlt
Salut Moreno076
Qu'est-ce qui ne fonctionne pas, tu as un message d'erreur ?
Tu peux nous mettre le fichier a dispo ?
A+
Merci c'est bon