XL 2016 pb de date avec un userform

jcf6464

XLDnaute Impliqué

• 17 Octobre 2022

• #2

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 17 Octobre 2022

• #3

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

 

Vote positif 0 Vote négatif

V

vincent300689

XLDnaute Nouveau

• 17 Octobre 2022

• #4

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 17 Octobre 2022

• #5

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

 

Vote positif 0 Vote négatif

V

vincent300689

XLDnaute Nouveau

• 17 Octobre 2022

• #6

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

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 17 Octobre 2022

• #7

Remplacer

VB:

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

par

Code:

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

Bon courage

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Octobre 2022

• #8

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é

 

Dernière édition: 17 Octobre 2022

Vote positif 0 Vote négatif

V

vincent300689

XLDnaute Nouveau

• 17 Octobre 2022

• #9

JM27 à dit:

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é

Cliquez pour agrandir...

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é

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 17 Octobre 2022

• #10

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif