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

justine.valck · 1 Juin 2023

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 · 1 Juin 2023

Bonjour et bienvenu sur le forum

VB:

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 · 1 Juin 2023

fanfan38 à dit:
Bonjour et bienvenu sur le forum

VB:

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 · 1 Juin 2023

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

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

justine.valck

XLDnaute Nouveau

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

justine.valck

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Discussions similaires