Création d'un formulaire... je suis nul

dpe_fr · 12 Juillet 2006

Bonjour en ce bon matin !

Je suis nul, malgré tous les exemples tests sur le forum, je n'arrive pas à créer un formulaire pour remplir 2 cases seulement///...

Je vais essayer de joindre l 'exemple de ma feuille :

En fait je voudrais insérer avec le formulaire la date colonne B (ca commence a ligne 6) et Weight en colonne C (ligne 6 aussi... ) ca paraît bête mais le VBA, je trouve ca super compliqué!

Quelqu'un peut t il m aider la dessus et m expliquer brièvement le code utilisé ??

Merci beaucoup !

Bonne journée ensoleillée à tous et toutes

PS : j'ai lu le tuto pour attacher un fichier mais je n'y arrive pas quand même ... ou est le bouton pour l'attacher ??

porcinet82 · 13 Juillet 2006

Re : Création d'un formulaire... je suis nul

re,

Je viens de faire les modif sur le code. Il te suffit de remplacer le code présent sur le fichier que je t'ai proposé par celui la et ca devrait fontionner :

PHP:

Private Sub CommandButton1_Click()
Dim cel As Range, dat As Date, lig&
For Each cel In Range("B6:B42")
    dat = cel
    If dat = Me.TextBox2 Then
        cel.Offset(0, 1).Value = Val(Me.TextBox1.Value)
        Exit Sub
    End If
Next cel
'si la date n'est pas le tableau, on crée une ligne supplémentaire
lig = Range("B65536").End(xlUp).Row
Range("B" & lig & ":F" & lig).Copy
Range("B" & lig + 1).Select
Selection.PasteSpecial Paste:=xlFormats
Range("B65536").End(xlUp)(2).Value = Date
Range("B65536").End(xlUp).Offset(0, 1).Value = Val(Me.TextBox1.Value)
Application.CutCopyMode = False
End Sub
Private Sub TextBox2_Change()
Dim cel As Range, dat As Date
Me.TextBox2 = Format(Me.TextBox2, "dd/mm/yyyy")
For Each cel In Range("B6:B42")
    dat = cel
    If dat = Me.TextBox2 Then
        Me.TextBox1.Value = cel.Offset(0, 1).Value
        Exit Sub
    End If
Next cel
End Sub
Private Sub UserForm_Initialize()
Me.TextBox2.Enabled = False
Me.TextBox2 = Date
End Sub

Pense également a supprimer la combo du USF et a mettre un second Textbox a la place (et vérifie que son nom est Textbox2).

@+

dpe_fr · 13 Juillet 2006

Re : Création d'un formulaire... je suis nul

Ca marche nickel... merci beaucoup !!

je suis en train de modifier le code un peu entatonnant pour que les formules se copient aussi a droite quand la valeur est rentrée...

je te tiens au courant !

Bonne journée et emrci beaucoup encore pour ta gentillesse et ta grande patience!!

Ciao

Did

dpe_fr · 13 Juillet 2006

Re : Création d'un formulaire... je suis nul

j y arrive pas....

j'aimerai maintenant que les formules des colonnes D, E , F et G se rajoutent quand la valeur de la colonne C est saisie par le formulaire ...

j'ai du mal vraiment avec le VBA ca demande enormément de temps je pense pour apprendre...

Merci pour ton aide,

Did

porcinet82 · 13 Juillet 2006

Re : Création d'un formulaire... je suis nul

re,

Tiens je t'ai modifier le code (avec l'aide de Brigitte) pour que cela fonctionne :

PHP:

Private Sub CommandButton1_Click()
Dim cel As Range, dat As Date, lig&
For Each cel In Range("B6:B42")
    dat = cel
    If dat = Me.TextBox2 Then
        cel.Offset(0, 1).Value = Val(Me.TextBox1.Value)
        GoTo fin:
        Exit Sub
    End If
Next cel
'si la date n'est pas le tableau, on crée une ligne supplémentaire
lig = Range("B65536").End(xlUp).Row
Range("B" & lig & ":F" & lig).Copy
Range("B" & lig + 1).Select
Selection.PasteSpecial Paste:=xlFormats
Range("B65536").End(xlUp)(2).Value = Date
Range("D" & lig & ":F" & lig).Copy
Range("D" & lig + 1).Select
Selection.PasteSpecial Paste:=xlFormulas
fin:
'dans tout les cas, on copie le contenu du Textox
Range("B65536").End(xlUp).Offset(0, 1).Value = Val(Me.TextBox1.Value)
Application.CutCopyMode = False
End Sub

J'ai pensé à un truc, si tu veux que le USF se fermer lorsque tu click sur le bouton Valider, il te suffit de rajouter Unload Userform1 juste avant End Sub dans le code ci-dessus.

Voili, voilou,

@+

dpe_fr · 13 Juillet 2006

Re : Création d'un formulaire... je suis nul

hello, ca marche vraiment très bien... j'ai juste changé la ligne

Range("D" & lig & ":F" & lig).Copy en remplaçant le F par G pour avoir les formules de G en plus...

Je te remercie beaucoup toi ainsi que brigitte pour votre précieuse aide et je vous tiens au courant pour l'achèvement du projet

Bon week end prolongé

Didier

Brigitte · 13 Juillet 2006

Re : Création d'un formulaire... je suis nul

Arf ce qu'il faut pas entendre :

Tiens je t'ai modifier le code (avec l'aide de Brigitte) pour que cela fonctionne :

Hervé va pas en croire ses oreilles et il aura raison. C'est gentil Romain, mais vraiment, je n'ai fait que te conseiller, pour le peu qui te manquait, d'utiliser...

L'enregistreur de macros...

Si si je vous promets... Vous croyez pas qu'avec la chaleur qu'il fait, c le moment que je vais choisir pour me mettre au VBA ?

😱 🙄

Création d'un formulaire... je suis nul

dpe_fr

Guest

porcinet82

XLDnaute Barbatruc

dpe_fr

Guest

dpe_fr

Guest

porcinet82

XLDnaute Barbatruc

dpe_fr

Guest

Brigitte

XLDnaute Barbatruc

Discussions similaires

Création d'un formulaire... je suis nul

dpe_fr

Guest

porcinet82

XLDnaute Barbatruc

dpe_fr

Guest

dpe_fr

Guest

porcinet82

XLDnaute Barbatruc

dpe_fr

Guest

Brigitte

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency