VBA recopier cellules selon n° clients

dgeo27

XLDnaute Junior
Bonsoir,
je revient vers vous..
Je suis entrain de terminer mon petit programme de gestion pour mon activité.
Et pas moyen de faire un code VBA :/
Il me faudrait un code VBA lier à un bouton qui me permettrais de recopier plusieurs infos du clients selon une cellule (celle ou j'indique le numéro du client)

La liste client ne se trouve pas sur la même page elle se trouve sur : Listings_clients

En colonne A : le numéro du client de 1 à ....
B : nom
C : prénom
D : nom société
E : Rue et n°
F : code postal
G : ville
H : tel
I : Mail
J : n° tva

la cellule ou j'indique le n° du client à recopier est en M9 sur la page "Facture"

et sur la page facture les données sont trier de cette sorte :

C14 : Nom
D14 : Prénom
E14 : Nom de société
G14 : Rue et n°
J14 : code postal
K14 : ville
M14 : tel
N14 : Mail
P14 : TVA

Si une personne pourrais m'aider merci mille fois :)
 
Dernière édition:

fanfan38

XLDnaute Barbatruc
Bonjour dgeo27
Je me suis amusé (les programmes télé en France sont catastrophique) à revoir ton fichier...
La feuille Facture je ne m'en sers plus (peux être supprimée)
Si tu double clic sur une ligne du facturier, des devis, des clients ou sur le bouton (non imprimable) qui est sur la feuille "Vision facture" une boite de dialogue s'affiche... Je sais il y a encore du boulot... tu me dis ce que tu en penses...
A+ François
 

Pièces jointes

  • programme test - Copie.xlsm
    367.4 KB · Affichages: 103

dgeo27

XLDnaute Junior
Bonsoir à vous, merci beaucoup

fanfan38 c'est beaucoup plus de ce que je voulais mais l'idée me convient bien :)
le fait d'avoir un bouton crée facture et qu'une fenêtre apparaît c'est pas mal du tout.
Mais du coup on rentre dans un autre type de codage et la je suis nul moi en vba donc pour terminer le projet pas simple :/
Mais de ce fait je n'aurais plus besoin de la page Facture qui existe donc pour en crée une ...
A méditer ... mais merci beaucoup
 

dgeo27

XLDnaute Junior
Salut merci beaucoup,
quand je clic sur valider il me trouve des erreurs

For i = 9 To 38 Step 3
Sheets(feuille).Cells(ligfd, j).Value = Me.Controls("TextBox" & i).Value
sur la macro : Private Sub CommandButton2_Click() 'valider

puis quand je clic sur valider et que je marque rien, sa envoie une erreur différente :/ pas simple

De plus, je clic sur nouveau client
il m'affiche la page client
je fait valider il m'envoi encore une erreur....
 

marleauc

XLDnaute Occasionnel
bonsoir j'adore votre fichier c'Est vraiment ce que j'ai besoin pour mon petit commerce ..par contre j'ai un erreur apres l'avoir modifier

quand j'essai de valider il y a un erreur au textebox 41 format
 

Pièces jointes

  • facturiersonic.xlsm
    389.3 KB · Affichages: 33

Discussions similaires