Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 pb de date avec un userform

vincent300689

XLDnaute Nouveau
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 ?
 

Gégé-45550

XLDnaute Accro
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

XLDnaute Nouveau
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
 

JM27

XLDnaute Barbatruc
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:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…