Contenu récent par Magzonex

Re : Tansférer une valeur dans un textBox..Réglé.. Allo Merci beaucoup Grand Chaman Excel ... ces en plien se que je voulais... Merci encore :D

Bonjours. j'aimerais savoir si ses possible de prendre une valeur dans la feuil1 (I47) et a l'ouverture d'un userform Grandlivre s'affiche cette valeur dans TextBox6 comment fait on ?? Private Sub TextBox6_Change() Grandlivre.TextBox6 = Feuil1.Range("I47") End Sub j'ai essaier avec...

Re : Besoin d'aide pour faire mon bilan Allo Merci David, mais sa marche pas .. pour le moment je mets sa de coté .... trop a apprendre pour se que je veux en faire.:( Un gars bien décourager;;;;:( Merci quand meme .

Re : Besoin d'aide pour faire mon bilan Allo oui et serais intéressant si plusieur personne pouvais nous aider ... cars plus de 400 personne on vue se message et seulement 2 on pu m'aider jusqu'a présent Merci David et for_rum bonne soirée

Re : Besoin d'aide pour faire mon bilan Allo voici se que j'aimerais que la fonction éxécute ... mais il faudrais l'adapter bien sur Private Sub CommandButton2_Click() If Cells(7, 5) > Cells(7, 8) Then MsgBox "La date de fin doit être supérieure à la date de Début": Exit Sub If...

Re : Besoin d'aide pour faire mon bilan Allo dans cette fonction il vérifie que la date du début est plus petite que la date de fin Private Sub CommandButton2_Click() If Cells(7, 5) > Cells(7, 8) Then MsgBox "La date de fin doit être supérieure à la date de Début": Exit Sub Call...

Re : Besoin d'aide pour faire mon bilan Allo j'ai réussi a modifier se code et la tout marche bien Private Sub CommandButton1_Click() With Feuil3 fin = .Cells(65536, 2).End(xlUp).Row + 1 .Cells(fin, 1) = TextBox1 TextBox1 = "" For Bn = 2 To 12 If Bn < 12 Then .Cells(fin, Bn) =...

Re : Besoin d'aide pour faire mon bilan Allo Enfin de conte on a crier victoire trop vite car il y a un bug la valeur du textbox11 reste en text clair sur ma feuil BD1 mais on y est presque Merci encore .... On n'est sur le bon chemin

Re : Besoin d'aide pour faire mon bilan Allo Merci Fo_rum ...mais j'ai du corriger une petite erreur tu avais mi 2 To13 mais ses 2 To12 la ces OK Private Sub CommandButton1_Click() With Feuil3 fin = .Cells(65536, 2).End(xlUp).Row + 1 .Cells(fin, 1) = TextBox1 TextBox1 =...

Re : Besoin d'aide pour faire mon bilan Allo Ça marche presque .... si je n'inscrie pas de commentaire tout marche bien ... mais si je met un commentaire sa plante 1 To 12 , 12 étant la fin et mon commentaire ... on ne dois pas le convertir on y est presque ... merci encore David...

Re : Besoin d'aide pour faire mon bilan Allo j'ai essaier de modifier Private Sub CommandButton1_Click() With Feuil3 fin = .Cells(65536, 2).End(xlUp).Row + 1 For i = 1 To 12 .Cells(fin, i) = Controls("Textbox" & i): Controls("Textbox" & i) = ""...

Re : Besoin d'aide pour faire mon bilan Allo j'ai fais se que tu m'as dits Private Sub CommandButton1_Click() Sheets("BD1").Range("B" & ComboBox1.ListIndex + 2).Value = CDbl(TextBox1) Sheets("BD1").Range("C" & ComboBox1.ListIndex + 2).Value = CDbl(TextBox2)...

Re : Besoin d'aide pour faire mon bilan Allo David Et je met sa ou le Sheets("BD1").Range("B" & ComboBox1.ListIndex + 2).Value = CDbl(TextBox1) j'ai cette fonction pour modifier ma base de donnée ... a part le CDbl ... Private Sub CommandButton1_Click()...

Re : Besoin d'aide pour faire mon bilan Allo bon j'ai résolue mon problème en tout simplement mis des bordure dans ma feuil BD1 se que j'avais oublier de faire et la tout est ok pour les bordures. mon autre problème ses que les valeurs ( nombre de mes textbox) sont envoier a la feuil BD1...

Re : Besoin d'aide pour faire mon bilan Allo j'ai fais se que tu m'as dit .. enfin je crois ... mais je sais pas trop quois faire avec.... ça ressemble tu as ça... Sub Macro1() ' ' Macro1 Macro ' ' Range("A10:M16").Select Selection.Copy ActiveWindow.SmallScroll...