Merci infiniment Lionel 😁👍

You probably dont care at all but does someone know a trick to log back into an Instagram account? I stupidly lost my password. I love any tips you can give me!

@Jacoby Arlo instablaster :)

@Damon Ahmed Thanks so much for your reply. I got to the site through google and I'm waiting for the hacking stuff atm. I see it takes a while so I will get back to you later with my results.

@Damon Ahmed It did the trick and I finally got access to my account again. I am so happy:D Thank you so much, you really help me out :D

Ok, je te fait confiance !! Merci

Bonjour, oui il est possible de mettre un format sur un label. La procédure sera du genre : Deux textbox, textbox1 avec une valeur, textbox2 avec une seconde valeur. Mise à jour du label par exemple lors d'un afterupdate sur la textbox2 Il ne faudra pas se contenter de ce qui suit car : Label1.caption = Textbox1.value + Textbox2.value Alors là, généralement, le sysème est assez idiot, si on saisi 5 dans la textbox1, et 2 dans la textbox 2, la label affichera 52 au lieu de 7 donc il faut biaiser en utilisant des variables Donc les variables seront les suivantes : Dim Valo1 as Double, Valo2 as double, Label as Double Valo1 = textbox1.value Valo2 = textbox2.value Label = Valo1 + valo2 Et ensuite on met en forme le label lors de l'afterupdate Textbox2 'Ce qui donnera ceci : Sub Textbox2_AfterUpdate () Dim Valo1 as Double, Valo2 as double, Label as Double Valo1 = textbox1.value Valo2 = textbox2.value Label = Valo1 + valo2 Label1.caption = Label Label1.caption = Format(Label1, "# ##0.00 €") End sub Et cela devrait fonctionner.

kzfaq.info/get/bejne/iN91nrSV1LO9nas.html

Je suppose que c'est pour la partie incrémentation via le bouton Ventilation... Donc le code que tu as mis me semble tout à fait correct, juste une petite modification à ajouter selon : avant d'incrémenter tes lignes, ajoute la mention sheets("janvier").select pour être sûr que le code te mette bien les infos sur cette page là. Car si la dernière feuille sélectionnée dans Excel était par exemple Février, les données se mettront bien sur la dernière ligne vide (du mois de janvier) mais sur le feuillet Février. Et en prime tu peux remplacer la mention Unload Userform1 par simplement Unload me. Et puis au cas où, pour la textbox1 si vide, l'idéal dans ton code Private Sub Commandbutton1_click() c'est d'ajouter tout de suite après : if textbox1.value = "" then msgbox "Vous devez obligatoirement remplir la textbox1" exit sub end if Le exit sub permettra de stopper la commande si la textbox1 est vide, et tant qu'elle sera vide l'incrémentation dans le feuillet Janvier ne pourra pas se faire. Et enfin pour conclure, qui dit un feuillet janvier, dira certainement un feuillet février, il serait donc intéressant de déterminer le nom du feuillet comme une variable, par exemple : dim mois as string mois = tu chope le mois quelque part dans excel ou dans ta userform et tu remplace dans l'ensemble de ton code par ta variable mois du coup dim derligne deviendra par exemple : dim derligne as integer derligne = sheets(mois).range("A65536").end(xlup).row + 1 Voilà, je pense avoir tout dit... :-)

Cool, merci pour toutes ces explications et solutions.Je mets en application et je reviens vers toi pour te dire où j'en suis.Très pédagogique tes conseils, bravo

Bonsoir,je reviens vers toi, car j'ai un souci avec une partie de ton tuto: Private Sub textbox3_afterupdate() 'format nombres avec 2 chiffres après la virgule TextBox3.Value = Format(TextBox3, "# ##0.00") End Sub Private Sub textbox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'saisie unique de chiffres If InStr("1234567890-,.", Chr(KeyAscii)) = 0 Then KeyAscii = 0 If KeyAscii = 46 Then KeyAscii = 44 End Sub Le format affiché est bon, mais Excel ne considère pas cela comme une valeur numérique

@@Xavier-wb7lb essaye avec textbox3.value = cdbl(format(textbox3,"# ##0.00"))

Bonjour

Salut Régis, Navré de te répondre si tardivement. As-tu trouvé une solution à ton problème ?

non pas encore

pour l'instant j'ai mi une condition avec un message de changer la virgule par un point lors de la confirmation mais c'est pas la meilleur solution

@@regisverreault est ce que tu veux m'envoyer ton fichier que j'y jettes un coup d'oeil ?

bien sur a tu un courriel pour que je puisse te l'envoyer

Bonjour Xavier, et merci. Mais du coup, c'est quoi la question ?