Passage de paramètre

Brat'ac a pensé très fort :

Bonjour,

Je n'arrive pas Í  trouver comment faire pour passer un paramètre Í  la place
la date 16/9/2022
dans la formule ci-dessous

Range("E1").Activate
ActiveCell.FormulaR1C1 > "=""16/9/2022""-WEEKDAY(""16/9/2022""-3)+7*ROW()"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E" & 54), Type:=xlFillDefault

Merci de l'aide

Trouvé !!

Brat'ac avait énoncé :

Brat'ac a pensé très fort :

Bonjour,

Je n'arrive pas Í  trouver comment faire pour passer un paramètre Í  la place
la date 16/9/2022
dans la formule ci-dessous

Range("E1").Activate
ActiveCell.FormulaR1C1 >> "=""16/9/2022""-WEEKDAY(""16/9/2022""-3)+7*ROW()"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E" & 54), Type:=xlFillDefault

Merci de l'aide

Trouvé !!

erreur de frappe

Brat'ac avait prétendu :

Bonjour,

Je n'arrive pas Í  trouver comment faire pour passer un paramètre Í  la place
la date 16/9/2022
dans la formule ci-dessous

Range("E1").Activate
ActiveCell.FormulaR1C1 > "=""16/9/2022""-WEEKDAY(""16/9/2022""-3)+7*ROW()"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E" & 54), Type:=xlFillDefault

Merci de l'aide

Trouvé

Function Ecrire_Mardi(Col As String, Nb_Mardi As Long, Debut As
String)
Range(Col).Activate
ActiveCell.FormulaR1C1 = "= " & Debut & " -WEEKDAY( " & Debut & "
-3)+7*ROW()"
Range(Col).Select
Selection.AutoFill Destination:=Range(Col & ":" & Col &
Nb_Mardi), Type:=xlFillDefault
End Function

Sub essai()
Ecrire_Mardi "G1", 54, """9/8/2022"""
End Sub

Le 19/09/22 Í  07:47, Brat'ac a écrit :

Brat'ac avait prétendu :

Bonjour,

Je n'arrive pas Í  trouver comment faire pour passer un paramètre Í  la
place la date 16/9/2022
dans la formule ci-dessous

    Range("E1").Activate
    ActiveCell.FormulaR1C1 >> "=""16/9/2022""-WEEKDAY(""16/9/2022""-3)+7*ROW()"
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E" & 54),
Type:=xlFillDefault

Merci de l'aide

Trouvé

   Function Ecrire_Mardi(Col As String, Nb_Mardi As Long, Debut As String)
     Range(Col).Activate
     ActiveCell.FormulaR1C1 = "= " & Debut & " -WEEKDAY( " & Debut & "
-3)+7*ROW()"
     Range(Col).Select
     Selection.AutoFill Destination:=Range(Col & ":" & Col & Nb_Mardi),
Type:=xlFillDefault
  End Function

Sub essai()
   Ecrire_Mardi "G1", 54, """9/8/2022"""
End Sub

Bonjour,

Ta réponse est très différente de ta demande.
Je n'ai pas tenu compte du *ROW()

Tu sais, il faut prendre le temps d'expliquer ce que l'on cherche et le
résultat que l'on veut obtenir. Demander une solution Í  partir d'une
formule qui ne fonctionne pas...il faut être devin pour trouver!

Il y avait ceci qui "répondait" Í  ta demande :

'--------------------------------------
Sub Test()

Dim D As String, Jour As Long
Dim mois As Long, Année As Long
Dim X As Long, K As Variant


'Le format date que tu as choisi doit être
'le même pour toutes des dates Í  venir
D = "16/09/2022"

'La variable K est un tableau de base 0
'chaque élément du tableau contient, le jour, mois, année
K = Split(D, "/")

Jour = K(0)
mois = K(1)
Année = K(2)

'X reçoit la date au format numérique
X = CLng(DateSerial(Jour, mois, Année))

'Ta formule, adapte le nom de la feuille selon
'le nom de l'onglet
With Worksheets("Feuil1")
.Range("E1").Formula = "=" & X & "- Weekday(" & X & "-3) + 7"
.Range("E1").Resize(54).NumberFormat = "DD/MM/YYYY"
.Range("E1").Value = Range("E1").Value
.Range("E1").AutoFill Destination:=.Range("E1:E50"), Type:=xlFillDays
End With

End Sub
'--------------------------------------

MichD

MichD a couché sur son écran :

Le 19/09/22 Í  07:47, Brat'ac a écrit :

Brat'ac avait prétendu :

Bonjour,

Je n'arrive pas Í  trouver comment faire pour passer un paramètre Í  la
place la date 16/9/2022
dans la formule ci-dessous

    Range("E1").Activate
    ActiveCell.FormulaR1C1 >>> "=""16/9/2022""-WEEKDAY(""16/9/2022""-3)+7*ROW()"
    Range("E1").Select
    Selection.AutoFill Destination:=Range("E1:E" & 54),
Type:=xlFillDefault

Merci de l'aide

Trouvé

   Function Ecrire_Mardi(Col As String, Nb_Mardi As Long, Debut As String)
     Range(Col).Activate
     ActiveCell.FormulaR1C1 = "= " & Debut & " -WEEKDAY( " & Debut & "
-3)+7*ROW()"
     Range(Col).Select
     Selection.AutoFill Destination:=Range(Col & ":" & Col & Nb_Mardi),
Type:=xlFillDefault
  End Function

Sub essai()
   Ecrire_Mardi "G1", 54, """9/8/2022"""
End Sub

Bonjour,

Ta réponse est très différente de ta demande.
Je n'ai pas tenu compte du *ROW()

Tu sais, il faut prendre le temps d'expliquer ce que l'on cherche et le
résultat que l'on veut obtenir. Demander une solution Í  partir d'une formule
qui ne fonctionne pas...il faut être devin pour trouver!

Il y avait ceci qui "répondait" Í  ta demande :

'--------------------------------------
Sub Test()

Dim D As String, Jour As Long
Dim mois As Long, Année As Long
Dim X As Long, K As Variant


'Le format date que tu as choisi doit être
'le même pour toutes des dates Í  venir
D = "16/09/2022"

'La variable K est un tableau de base 0
'chaque élément du tableau contient, le jour, mois, année
K = Split(D, "/")

Jour = K(0)
mois = K(1)
Année = K(2)

'X reçoit la date au format numérique
X = CLng(DateSerial(Jour, mois, Année))

'Ta formule, adapte le nom de la feuille selon
'le nom de l'onglet
With Worksheets("Feuil1")
.Range("E1").Formula = "=" & X & "- Weekday(" & X & "-3) + 7"
.Range("E1").Resize(54).NumberFormat = "DD/MM/YYYY"
.Range("E1").Value = Range("E1").Value
.Range("E1").AutoFill Destination:=.Range("E1:E50"), Type:=xlFillDays
End With

End Sub
'--------------------------------------

MichD

Merci du retour.