J'espère que cette vidéo vous plaira, si c'est le cas, lâchez un like. N'hésitez pas à vous abonner à la chaîne pour retrouver et être informé de tous les nouveaux tutoriels. Abonnez-vous : ua-cam.com/users/unmecenbaskets
Cool, enfin un mec qui parle clair ! Le souci majeur avec l'informatique et la programmation c'est que ceux qui explique ne sont plus débutant depuis longtemps. Une formule ce n'est pas que des caractères, mais ceux qu'il y a autour pour qu'elle fonctionne. Merci à toi, et je m'abonne
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!
@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.
Bonjour, tout nouveau je viens de voir votre vidéo qui m'a énormément servie. Dans une TextBoxPrénom, je voudrais que la première lettre soit automatiquement en majuscule. Vous nous avez expliqué comment avoir tout en majuscule ou en minuscule. Merci d'avance .
concernant le format de la textbox. J'ai une textbox que je entre des montants avec un point Ex: 1.25 pour faire des calculs. Lorsque je charge le userform et que le montant de ma cellule est en format avec un point il apparaît dans ma textbox avec une virgule. et lorsque je fait modifier il remet le montant avec une virgule. ce qui fait que le calcul ne se fait plus. A tu un moyen de forcer ma textbox à charger avec un point
merci pour le tuto mais j'ai encore une question :) est ce qu'ont peux mettre un format aussi pour un label? Exemple mettre le résultat d'une somme en valeur monétaire dans la label
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.
Bonsoir "le mec en baskets", Tout d'abord, un tout grand merci pour ce tuto sur la mise en forme des TextBox. Je débute dans la programmation VAB et j'apprécie énormément. Cependant, mon problème de départ, était d'extraire des dates hors d'une liste excel (2013) en utilisant un module de saisie, et de faire apparaitre que l'annnée ("YYYY") de la date sélectionnée. Existe t'il une mise en forme de la TextBox adéquate ? Merci d'avance. François
Bonjour Un Mec En Baskets, J’ai parcouru pas mal de vos vidéos et j’y ai appris beaucoup, félicitation pour la clarté de vos cours. J’ai une question à vous poser ; je me suis fait un fichier Excel de suivi de comptes bancaires avec un formulaire. J’ai formaté plusieurs TextBox afin qu’elles ne reçoivent soit que des nombres, soit que des caractères alphanumériques, suivies d’un message d’erreur. Or, lorsque le message s’affiche et que j’appuie sur Entrée, le curseur passe automatiquement sur le TextBox suivant, ce qui m’oblige à re cliquer sur la TextBox entrer la bonne valeur. Avez-vous une astuce pour que le curseur se remette ou reste dans la TextBox tant que l’on n’a pas entré la bonne valeur ? Je cherche sur Internet depuis des semaines et ne trouve rien. Bravo encore pour votre chaine. Bernard
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
Bonsoir, excellent Tuto pour moi qui débute !! J'ai une question: Quand je clique sur mon bouton, si mon textbox1 est vide, mssage d'erreur (via VBOKOnly par exemple), du coup OK, et retour au formulaire sans effacer ce que j'ai déjà saisi. Merci pour votre aide Private Sub CommandButton1_Click() Dim derligne As Integer ' bouton Ventilation derligne = Sheets("Janvier").Range("a65536").End(xlUp).Row + 1 Cells(derligne, 1) = TextBox1.Value Cells(derligne, 3) = ComboBox2.Value Cells(derligne, 5) = TextBox6.Value Cells(derligne, 6) = TextBox5.Value Unload UserForm1 UserForm1.Show End Sub
merci infiniment je m'abonne directement
Exactement le tutoriel qu'il me fallait ! Thanks !
J'espère que cette vidéo vous plaira, si c'est le cas, lâchez un like.
N'hésitez pas à vous abonner à la chaîne pour retrouver et être informé de tous les nouveaux tutoriels.
Abonnez-vous : ua-cam.com/users/unmecenbaskets
Cool, enfin un mec qui parle clair !
Le souci majeur avec l'informatique et la programmation c'est que ceux qui explique ne sont plus débutant depuis longtemps.
Une formule ce n'est pas que des caractères, mais ceux qu'il y a autour pour qu'elle fonctionne.
Merci à toi, et je m'abonne
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
Bonjour
Merci pour ta vidéo très claire et sans prise de tête. Juste une petite question après tes i instructions or tu ne mets pas end if?
Salut Guillaume super ton tuto
Un grand merci Claire net et précis
Hum!! fait moi confiance (mdr)
excellant tuto continue comme ça
Ok, je te fait confiance !! Merci
trop bien encore une fois
Le mec en sabots dit merci au Mec en Baskets. Cette explication vaut 10 pages de VBA écrites par des grosses têtes
Bonjour, merci ton tuto m'a vraiment aidé .Cependant j'aimerai savoir comment je pourrai imposer un retour à la ligne sur le textbox
Bonjour !
Comment faire un retour chariot svp?
Merci!
Bonjour, tout nouveau je viens de voir votre vidéo qui m'a énormément servie.
Dans une TextBoxPrénom, je voudrais que la première lettre soit automatiquement en majuscule.
Vous nous avez expliqué comment avoir tout en majuscule ou en minuscule.
Merci d'avance .
merci de votre tuto
mais pouvez vs nous faire un tuto sur setfocus, comment faire pour blocker la touche tabulation avec condition
concernant le format de la textbox.
J'ai une textbox que je entre des montants avec un point Ex: 1.25 pour faire des calculs.
Lorsque je charge le userform et que le montant de ma cellule est en format avec un point il apparaît dans ma textbox avec une virgule. et lorsque je fait modifier il remet le montant avec une virgule. ce qui fait que le calcul ne se fait plus.
A tu un moyen de forcer ma textbox à charger avec un point
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
merci pour le tuto
mais j'ai encore une question :)
est ce qu'ont peux mettre un format aussi pour un label?
Exemple mettre le résultat d'une somme en valeur monétaire dans la label
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.
ua-cam.com/video/RyEkQdoMYmw/v-deo.html
Bonsoir "le mec en baskets",
Tout d'abord, un tout grand merci pour ce tuto sur la mise en forme des TextBox.
Je débute dans la programmation VAB et j'apprécie énormément.
Cependant, mon problème de départ, était d'extraire des dates hors d'une liste excel (2013) en utilisant un module de saisie,
et de faire apparaitre que l'annnée ("YYYY") de la date sélectionnée.
Existe t'il une mise en forme de la TextBox adéquate ?
Merci d'avance.
François
Une vidéo sur power query
Bonjour Un Mec En Baskets,
J’ai parcouru pas mal de vos vidéos et j’y ai appris beaucoup, félicitation pour la clarté de vos cours. J’ai une question à vous poser ; je me suis fait un fichier Excel de suivi de comptes bancaires avec un formulaire. J’ai formaté plusieurs TextBox afin qu’elles ne reçoivent soit que des nombres, soit que des caractères alphanumériques, suivies d’un message d’erreur. Or, lorsque le message s’affiche et que j’appuie sur Entrée, le curseur passe automatiquement sur le TextBox suivant, ce qui m’oblige à re cliquer sur la TextBox entrer la bonne valeur. Avez-vous une astuce pour que le curseur se remette ou reste dans la TextBox tant que l’on n’a pas entré la bonne valeur ? Je cherche sur Internet depuis des semaines et ne trouve rien.
Bravo encore pour votre chaine.
Bernard
Bonjour, quelle rapidité pour répondre, excellent, pro, chouette !!
Question, quel code dois je insérer ?
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
Bonsoir, excellent Tuto pour moi qui débute !!
J'ai une question:
Quand je clique sur mon bouton, si mon textbox1 est vide, mssage d'erreur (via VBOKOnly par exemple), du coup OK, et retour au formulaire sans effacer ce que j'ai déjà saisi. Merci pour votre aide
Private Sub CommandButton1_Click()
Dim derligne As Integer
' bouton Ventilation
derligne = Sheets("Janvier").Range("a65536").End(xlUp).Row + 1
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 3) = ComboBox2.Value
Cells(derligne, 5) = TextBox6.Value
Cells(derligne, 6) = TextBox5.Value
Unload UserForm1
UserForm1.Show
End Sub
Bonjour Xavier, et merci. Mais du coup, c'est quoi la question ?
If --> endif