XL 2016 pb de date avec un userform

[vincent300689]

j'ai un tableau excel avec la colonne A qui a toutes mes dates

exemple a2116 le 14/10/2022

sur un userform je souhaite remplir en textbox1 la case b2116 et textbox2 ,la colonne c2116, ....

et idem pour le lendemain en colonne b2117 et c2117 pour le 15/10

suis-je clair ?

merci obiwan kenobi

comment faire ?

 

[jcf6464]

Bonjour,

1 on dis bonjour en premier,
tel est la question personne ne vous répondra,
et avec un fichier ce serais mieux,

cordialement jcf

 

[Gégé-45550]

Suggestion : Compare tes dates en colonne A avec la date du jour AUJOURDHUI(), déduis-en un indice qui te donnera le numéro de la ligne à afficher dans tes TextBox lors de l'ouverture du fichier avec la procédure Workbook_Open.
Bonne journée

 

[vincent300689]

oui , c'est bien ça le pb mais concrètement cela donne quoi ?

 

[Gégé-45550]

Comme l'a dit jcf6464, si on veut une aide efficace; on poste un fichier de test ... et, optionnellement, on salue et on remercie ceux qui s'intéressent à ta question.
Bonne journée

 

[vincent300689]

Private Sub CommandButton3_Click()
LastRowP = Worksheets("suivi des alertes").Range("A4" & "65536").End(xlUp).Row

lig = 0
Dim today As Date
today = Date
For i = 2 To LastRowP
If Range("A4" & i).Value = today Then
lig = i
Exit For
End If
Next

Sheets("suivi des alertes").Select

Range("b" & i).Value = TextBox1.Value
Range("c" & i).Value = TextBox2.Value
Range("d" & i).Value = TextBox3.Value
Range("e" & i).Value = TextBox4.Value
Range("f" & i).Value = TextBox5.Value
Range("g" & i).Value = TextBox6.Value
Range("h" & i).Value = TextBox7.Value
Sheets("graphique radar").Select
Unload Me


cela ne fonctionne pas j'ai un bug qq part
merci

 

[Gégé-45550]

Remplacer

If Range("A4" & i).Value = today Then
lig = i
Exit For
End If
Next

par

If CDate(Range("A" & i).Value) = Date Then
lig = i
Exit For
End If
Next

Bon courage

 

[JM27]

bonjour à toi aussi.

J'aurai bien répondu , mais comme je n'ai pas envie recréer le contexte et que tu ne fais pas l'effort de poster un fichier, je m'abstiendrai; désolé

 

[vincent300689]

bonjour à toi aussi.
J'aurai bien répondu , mais comme je n'ai pas envie recréer le contexte et que tu ne fais pas l'effort de poster un fichier, je m'abstiendrai; désolé

bonjour, ce n'est pas de la mauvaise volonté mais mon fichier excel étant trop gros il ne passe pas en pièce jointe

Désolé

 

[JM27]

tu peux fournir un fichier allégé avec quelques lignes anonymisées. sinon on répondra forcément à coté de la question

pour info:

LastRowP = Worksheets("suivi des alertes").Range("A4" & "65536").End(xlUp).Row