Bonsoir a tout le forum,
voila mon projet avabce a gd pas grace a vous,
mais il y a un petit souci.
j ai une feuille nommé client (Nom, adresse, CP, ville, fax)
je voudrais dans ma feuille devis à l aide d'un bouton nommé client
incrementé dans les cellules de ma feuille devis
Nom = D6
adresse = D7
CP = D8 etc
mon bouton ouvre un userform nommée choixclient, et demande de choisir dans une liste déroulante le nom du client
A partir du nom choisit en fait c'est de regrouper dans la feuille devis son adresse, son CP, sa ville et son fax
Pour avoir les données en colonne (et non en ligne comme j'ai fait dans le fichier en PJ ).
Code:
Private Sub CommandButton2_Click()
Dim c As Range
Dim plg As Range
If ComboBox1.Value = "" Then
MsgBox "Tous les champs doivent être complétés", vbCritical + vbOKOnly, "ATTENTION"
Me.ComboBox1.SetFocus
Exit Sub
End If
Set plg = Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
Set c = plg.Find(ComboBox1.Value)
If Not c Is Nothing Then
c.Resize(1, 5).Copy
Sheets("Feuil2").Range("D5").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
End If
Unload Me
End Sub
Pour avoir les données en colonne (et non en ligne comme j'ai fait dans le fichier en PJ ).
Code:
Private Sub CommandButton2_Click()
Dim c As Range
Dim plg As Range
If ComboBox1.Value = "" Then
MsgBox "Tous les champs doivent être complétés", vbCritical + vbOKOnly, "ATTENTION"
Me.ComboBox1.SetFocus
Exit Sub
End If
Set plg = Sheets("Feuil1").Range("A2:A" & Sheets("Feuil1").Range("A65536").End(xlUp).Row)
Set c = plg.Find(ComboBox1.Value)
If Not c Is Nothing Then
c.Resize(1, 5).Copy
Sheets("Feuil2").Range("D5").PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
End If
Unload Me
End Sub
mais il semblerait que la combobox1 ne prends pas les valeurs
Set plg = Sheets("base client").Range("A2:A" & Sheets("base client").Range("A653565").End(x1up).Row)
pour mon projet ma feuille 1 s'appelle base client, ma feuille2 devis
mais donnée à copier en base client sont en D4,E4,F4,G4,H4,I4
cordialement
PS: le fichier est trop lourd pour le mettre ici
Le nom des clients sont dans la colonne D de la feuille "base client" et commencent en D4. Les éléments à copier vont de la colonne D à H.
(Nom en D, Adresse en E, CP en F, Ville en G, Fax en H)
Qui y a t'il dans la colonne I ? Le téléphonne
Pour copier aussi le contenu de la colonne I, il faudra modifier cette ligne comme ceci : remplacer le 5 par 6
Le nom des clients sont dans la colonne D de la feuille "base client" et commencent en D4. Les éléments à copier vont de la colonne D à H.
(Nom en D, Adresse en E, CP en F, Ville en G, Fax en H)
Qui y a t'il dans la colonne I ? Le téléphonne
Pour copier aussi le contenu de la colonne I, il faudra modifier cette ligne comme ceci : remplacer le 5 par 6