Microsoft 365 VBA (userform) rechercher une date dans un planning, si trouvé insert une valeur dans la cellule à droite

[justine.valck]

Bonjour, débutante en VBA,
j'ai créé un Userform ("Valide") et je cherche une formule pour rechercher une date dans mon planning ( feuille : "PLANNING") et quand la date est trouvée je voudrais que le nom de mon client s'insert dans la cellule à coté.

je vous joint mon fichier.

Merci par avance de votre aide.

 

[fanfan38]

Bonjour et bienvenu sur le forum

Private Sub CommandButton1_Click()
  Dim col As Integer, lig As Integer
  With Sheets("PLANNING")
   col = 2 + ((Month(CDate(TextBox3.Text)) - 1) * 3)
   lig = Day(CDate(TextBox3.Text)) + 4
  End With
  Cells(lig, col + 1).Value = Me.TextBox1.Value
End Sub

Je n'ai pas réussi à tester il y a un appel à un autre fichier...
A+ François
PS avec le fichier qui marche

 

[justine.valck]

Bonjour et bienvenu sur le forum

Private Sub CommandButton1_Click()
  Dim col As Integer, lig As Integer
  With Sheets("PLANNING")
   col = 2 + ((Month(CDate(TextBox3.Text)) - 1) * 3)
   lig = Day(CDate(TextBox3.Text)) + 4
   plage = .Range("B5:AI35").Address(0, 0)
  End With
  Cells(lig, col + 1).Value = Me.TextBox1.Value
End Sub

Je n'ai pas réussi à tester il y a un appel à un autre fichier...
A+ François

Bonjour,

merci beaucoup, c'est ce qu'il me fallait.

bonne journée.

 

[fanfan38]

Je t'ai ajouté un calendrier avec le fichier joint au post précédent
A+ François