Signaler

Besoin d'aide formule vba

Posez votre question Vanessa66430 7Messages postés samedi 4 février 2017Date d'inscription 17 février 2017 Dernière intervention - Dernière réponse le 17 févr. 2017 à 12:11 par pijaku
Bonjour à tous !!!

J'ai créer un classeur sur excel avec 4 userform et novice dans le vba j'aurais vraiment besoin d'aide donc mon classeur se compose de 5 feuilles :
- feuille1 (auto)
-feuille2 (clients)
-feuille3 (base)
-feuille4 (menu)
-feuille5 (archive)
Dans mon userform je voudrai:
Textbox18
rechercher dans (auto) colonne D et enregistrer dans feuilles (Archives ) E
pour qu'il copie toute les informations du véhicule sélectionné dans archives
Textbox17
ranger dans feuille( archive) A

Textbox1
ranger dans feuille( archive) Q
ranger dans feuille(clients)A

Textbox2
ranger dans feuille( archive) R
ranger dans feuille(clients)B

Textbox3
ranger dans feuille( archive) S
ranger dans feuille(clients)C

Textbox4
ranger dans feuille( archive)T
ranger dans feuille(clients)D

Textbox5
ranger dans feuille( archive) U
ranger dans feuille(clients)N

Textbox6
ranger dans feuille( archive)V
ranger dans feuille(clients)F

Textbox7
ranger dans feuille( archive) W
ranger dans feuille(clients)G

Textbox8
ranger dans feuille( archive) X
ranger dans feuille(clients)H

Textbox9
ranger dans feuille( archive) Y
ranger dans feuille(clients)I

Textbox10
ranger dans feuille( archive) Z
ranger dans feuille(clients) J

Textbox11
ranger dans feuille( archive) AA
ranger dans feuille(clients) K

Textbox 12
ranger dans feuille( archive) AB
ranger dans feuille(clients) L

Textbox13
ranger dans feuille( archive) AC
ranger dans feuille(clients) M

Textbox14
ranger dans feuille( archive) AD
ranger dans feuille(clients)O

Textbox15
ranger dans feuille( archive)AE
ranger dans feuille(clients)P

Textbox16
ranger dans feuille( archive)AF
ranger dans feuille(clients)Q

je vous fait un copier coller de mes codes que j'ai essayer de faire.... sa marche mais sa me le colle sur la 2eme ligne même si elle est déjà prise .....Private Sub CommandButton1_Click()
Sheets("Clients").Range("a2") = TextBox1.Text
Sheets("Clients").Range("b2") = TextBox2.Text
Sheets("Clients").Range("c2") = TextBox3.Text
Sheets("Clients").Range("d2") = TextBox4.Text
Sheets("Clients").Range("e2") = TextBox5.Text
Sheets("Clients").Range("f2") = TextBox6.Text
Sheets("Clients").Range("g2") = TextBox7.Text
Sheets("Clients").Range("h2") = TextBox8.Text
Sheets("Clients").Range("i2") = TextBox9.Text
Sheets("Clients").Range("j2") = TextBox10.Text
Sheets("Clients").Range("k2") = TextBox11.Text
Sheets("Clients").Range("l2") = TextBox12.Text
Sheets("Clients").Range("m2") = TextBox13.Text
Sheets("Clients").Range("n2") = TextBox14.Text
Sheets("Clients").Range("o2") = TextBox15.Text
Sheets("Clients").Range("p2") = TextBox16.Text
Sheets("ARCHIVE").Range("A2") = TextBox16.Text
Sheets("archive").Range("q2") = TextBox1.Text
Sheets("archive").Range("r2") = TextBox2.Text
Sheets("archive").Range("s2") = TextBox3.Text
Sheets("archive").Range("t2") = TextBox4.Text
Sheets("archive").Range("u2") = TextBox5.Text
Sheets("archive").Range("v2") = TextBox6.Text
Sheets("archive").Range("w2") = TextBox7.Text
Sheets("archive").Range("x2") = TextBox8.Text
Sheets("archive").Range("y2") = TextBox9.Text
Sheets("archive").Range("z2") = TextBox10.Text
Sheets("archive").Range("aa2") = TextBox11.Text
Sheets("archive").Range("ab2") = TextBox12.Text
Sheets("archive").Range("ac2") = TextBox13.Text
Sheets("archive").Range("ad2") = TextBox14.Text
Sheets("archive").Range("ae2") = TextBox15.Text
Sheets("archive").Range("af2") = TextBox16.Text
Sheets("archive").Range("a2") = TextBox17.Text
Unload UserForm1


Sheets("Clients").Select

Rows("2, 2").Select
'copie de la selection
Selection.Copy
'selection d'une cellule ou tu desire coller la selection
Cells(65535, 1).End(xlUp)(2).Select
'Colle la plage copiée
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


ActiveWorkbook.Save



End Sub

Private Sub TextBox10_Change()

End Sub

'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim i As Integer

If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.TextBox1.ListIndex + 2
Ws.Cells(Ligne, "B") = TextBox2
For i = 1 To 16
If Me.Controls("TextBox" & i).Visible = True Then
Ws.Cells(Ligne, i + 2) = Me.Controls("TextBox" & i)
End If
Next i
End If
End Sub

'Pour le bouton Quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub
End Sub

Private Sub TextBox11_Change()

End Sub

Private Sub TextBox17_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Je m'excuse pour la longueur du texte mais je voulais vraiment tout bien expliquer ....
Je tiens vraiment à remercier par avance ceux qui voudront bien m'aider car c'est un projet très important pour moi et je suis vraiment novice
Encore merci pour tout .
Utile
+0
plus moins
Bonjour

Pour ta feuille clients
Dim Lig As Integer, Cptr As Byte
With Sheets("clients")
Lig = .Columns("A").Find(what:="", after:=.Cells(1, 1)).Row
For Cptr = 1 To 2
.Cells(Lig, Cptr) = Me.Controls("TexTbox" & Cptr)
Next
End With


a toi de continuer sur la fruille archives


mais à propos ce code qu'on t'as transmis est une horreur pondue par un mulet
Sheets("Clients").Select 
Rows("2, 2").Select
'copie de la selection
Selection.Copy
'selection d'une cellule ou tu desire coller la selection
Cells(65535, 1).End(xlUp)(2).Select
'Colle la plage copiée
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Donnez votre avis
Utile
+0
plus moins
Merciii beaucoup
Mais je suis vraiment nul en vba j'y comprends rien et il me manque juste ce côté là pour finir mon projet alors les codes que j'ai je les ai pris sur des exemples sur le net avec notion zéro ce que tu m'as donner je dois le copier à la suite de
Sheets("Clients").Select
C'est bien sa ?
Donnez votre avis
Utile
+0
plus moins
J'aimerais vous joindre mon projet afin que vous puissiez mieux comprendre mais je ne sais pas comment on fait
michel_m 14858Messages postés lundi 12 septembre 2005Date d'inscription ContributeurStatut 21 septembre 2017 Dernière intervention - 7 févr. 2017 à 07:39
Bonjour
Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci dans votre message

Dans l’attente
Répondre
Vanessa66430 7Messages postés samedi 4 février 2017Date d'inscription 17 février 2017 Dernière intervention - 13 févr. 2017 à 14:51
Bonjour,
désoler du retard mais je n'avais pas vue que vous m'aviez répondu, je vous remercie voici mon projet tout est mis en page mais il me manque tout le côté code vba ou je le répète je n'y comprend strictement rien de rien... je vous remercie par avance pour l'aide que vous pourrez m'apporter .
encore merci et bonne journée à tous
https://mon-partage.fr/admin/auEhrFe7/s2SaepC1/
Répondre
Vanessa66430 7Messages postés samedi 4 février 2017Date d'inscription 17 février 2017 Dernière intervention - 16 févr. 2017 à 17:39
Bonjour,
Personne ne peut m'aider ??
C'est vraiment compliquer pour moi
s'il vous plaît
Répondre
Donnez votre avis
Utile
+0
plus moins
Bonjour,

Je veux bien prendre le relais, mais il faut revoir tout le projet...
Si ça te dit, n'hésite pas.
Néanmoins ça ne se fera pas en une journée...
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !