Microsoft 365 Déterminer la date d'un prochain jour

[ivan27]

Bonjour à tous,

Un partenaire me remet un tableau en désignant en colonne D, un jour de semaine, en anglais.
Je souhaite une formule ou un code VBA de préférence, pour indiquer en colonne ''J'' la date du prochain jour indiqué en colonne ''D''.
Merci d'avance pour votre aide.
Bien cordialement,
Ivan

 

[Compte Supprimé 979]

Bonjour Ivan27

Voici une possibilité

Sub ProchainJour()
  Dim lRow As Long, sRow As Long
  Dim sDay As String, iDay As Integer, nDay As Integer
  Dim TabDay() As String
  ' Tabelau des jours
  TabDay = Split("Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday", ",")
  ' Dernière ligne du tableau
  lRow = Range("A" & Rows.Count).End(xlUp).Row
  ' Parcourir chauqe ligne
  For sRow = 3 To lRow
    ' Si la celluel de la colonne D n'est pas vide
    If Range("D" & sRow).Value <> "" Then
      ' Récupérer le joru en anglais
      sDay = Range("D" & sRow).Value
      ' Trouver la position du jour dans la liste
      For iDay = 0 To 6
        If UCase(TabDay(iDay)) = UCase(sDay) Then Exit For
      Next iDay
    End If
    ' Calculer le prochain jour
    nDay = (7 - Weekday(Date)) + 1 + iDay + 1
    ' Inscrire la date
    Range("J" & sRow).Value = Date + nDay
  Next sRow
End Sub

@+

 

[JHA]

Bonjour à tous,
Bonjour BrunoM45,

Un essai par formule

=SI(JOURSEM(AUJOURDHUI();2)>=RECHERCHEV(RECHERCHE("zzzzz";$D$3:$D3);TableJour;2;FAUX);AUJOURDHUI()+(7-(JOURSEM(AUJOURDHUI();2)-RECHERCHEV(RECHERCHE("zzzzz";$D$3:$D3);TableJour;2;FAUX)));AUJOURDHUI()-(RECHERCHEV(RECHERCHE("zzzzz";$D$3:$D3);TableJour;2;FAUX)-JOURSEM(AUJOURDHUI();2)))

JHA

 

[ivan27]

Rebonjour,
Merci à tous les 2. Vos propositions répondent parfaitement à ma demande.
Excellente journée
Ivan