format date textbox-feuille

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ya_v_ka

XLDnaute Impliqué
Salut tout le monde,

Eh oui un revenant, je ne passe plus très souvent par ici... mais étant coincé j'ai repensé à vous ! (oups)

ci joint un fichier épuré avec mon problème, j'ai passé une journée de recherches ici pour transféré une date de textebox sur excel et pouvoir la reprendre sur textbox en date... sans succés.

alors si quelqu'un peut me sortir de là je lui en serais gré... MERCI d'avance

Ya'v
 

Pièces jointes

Re : format date textbox-feuille

Salut
J ai du loupé queq chose mais on va essayer

et comme ca ca va pas ?

Private Sub CommandButton2_Click()

With Worksheets("Board")
.Unprotect ""
.Range("a1") = UFKategorien.TBKat1.Value
.Range("a2") = UFKategorien.TBKat2.Value
.Range("a3") = UFKategorien.TBKat3.Value
.Range("a4") = UFKategorien.TBKat4.Value
.Range("a5") = UFKategorien.TBKat5.Value
.Range("a6") = UFKategorien.TBKat6.Value
.Range("b1") = UFKategorien.TBvon1.Value
.Range("b2") = UFKategorien.TBvon2.Value
.Range("b3") = UFKategorien.TBvon3.Value
.Range("b4") = UFKategorien.TBvon4.Value
.Range("b5") = UFKategorien.TBvon5.Value
.Range("b6") = UFKategorien.TBvon6.Value
.Range("c1") = UFKategorien.TBbis1.Value
.Range("c2") = UFKategorien.TBbis2.Value
.Range("c3") = UFKategorien.TBbis3.Value
.Range("c4") = UFKategorien.TBbis4.Value
.Range("c5") = UFKategorien.TBbis5.Value
.Range("c6") = UFKategorien.TBbis6.Value
End With
Unload Me
End Sub

puis

Private Sub UserForm_Initialize()

With Worksheets("Board")
TBKat1 = .Range("a1")
TBKat2 = .Range("a2")
TBKat3 = .Range("a2")
TBKat4 = .Range("a4")
TBKat5 = .Range("a5")
TBKat6 = .Range("a6")
TBvon1 = .Range("b1")
TBvon2 = .Range("b2")
TBvon3 = .Range("b3")
TBvon4 = .Range("b4")
TBvon5 = .Range("b5")
TBvon6 = .Range("b6")
TBbis1 = .Range("c1")
TBbis2 = .Range("c2")
TBbis3 = .Range("c3")
TBbis4 = .Range("c4")
TBbis5 = .Range("c5")
TBbis6 = .Range("c6")
End With
End Sub

j ai du passer a cote de queq chose sinon tu
l aurais vu
a+
 
Re : format date textbox-feuille

salut ya_v_ka, yojema

je suis nouveau dans la programation VBA, et je n'ai jamais utilisé les formulaires. mais j'ai une question idiote, le format textbox, comme son nom l'indique c'est un format texte, il n'y a pas une conversion en format date à faire ?

je suis le fil, pour apprendre
merci de votre patience

bonne nuit
 
Re : format date textbox-feuille

Hello

Malheureusement bien que la cellule contienne un joli nombre tel que 22.04.1966 ou 22/04/1966 il est au format texte, impossible de créer une comparaison numérique avec ca... (pour vérifier il est alligné à gauche dans la cellule, alors qu'une date serait à droite !)

Ya'v
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour