Recherche date textbox dans les colonnes de la feuille

bonsoir le forum?

Je travaille sur un fichier de planning.

Je bute sur un petit problème qui n'en sera sûrement pas un pour vous.

Lorsque j'entre une date dans la textbox1 de mon userform, j'aimerais en cliquant sur le bouton, aller chercher la

colonne où se trouve cette fameuse date.

J'espère être clair.

Merci pour le moment

Salut bidochon34800,

Private Sub CommandButton1_Click()
'
With Worksheets("Mois")
    .Columns(4 + DateDiff("d", CDate(.Cells(5, 4)), CDate(Me.TextBox1.Text))).Select
End With
'
End Sub

Private Sub TextBox1_Change()
'
Texte = Me.TextBox1.Text
Select Case Len(Texte)
    Case 2, 5
        Me.TextBox1.Text = Texte & "/"
End Select

End Sub

A+

bonsoir

et merci de la rapidité....

C'est exactement ce que je voulais. J'ai transféré le code dans mon fichier et tout fonctionne.

Merci encore, je passe le sujet en résolu.

salut curulis57,

Juste une petit bémol, j'ai un décalage entre la date de la textbox et la sélection de la colonne (pas grand chose mais 2 oui 3 colonnes). Pouvez-vous y remédier ?

Merci

Salut Bidochon,

je n'avais pas remarqué les cellules vides dans ton planning, causes du décalage !

Quelle idée ! Quelle est leur utilité ?

A+

c'est pas volontaire !

re,

j'ai supprimé les colonnes vides et tout est nickel,

merci