Cellules de formulaires

Bonjour tout le monde!

J’ai fait un feuille formulaire d'admission a un programme de nouveau clients dans un classeur "x".

J’ai associé à ce classeur 2 feuilles d'un autre classeur "liste de clients"

ce qui me donne Feuil1, Feuil1(2), et Feuil2(2).

Dans ma feuil1 qui est le formulaire (du même nom),j'ai 3 cellules que je dois copier sur ma feuille

feuil1(2). Donc,

feuil1 (cellule D8) vers Feuil1(2) (cellule C2 a 700) nom du client

feuil1 (cellule D19) vers Feuil1(2) (cellule A2 a 700) model de la machine

feuil1 (cellule D20) vers Feuil1(2) (cellule B2 a 700) numéro de série de la machine

sur la feuil1(2) les cellules C,A,D commence à 2 et vas jusqu’à 700 au fur et à mesure que j'inscrit

un client.

lorsque le formulaire est compléter toutes les cellules que j'ai entré des infos se vide.

donc les données qui ont été copier dans ma feuil1(2) en cellule C,A,D doivent rester et

dans les cellules suivantes s'inscriront les nouveaux clients qui seront entrer dans le formulaire

à nouveau.

j'ai essayé tellement de chose que je coure après ma queue.

En espérant d'être assez claire.

J'ai joint une copie de mon classeur si cela peut vous aidez

Merci!

Salut,

Laisse donc ta queue tranquille, malheureux !

Essaie le fichier joint, et modifie "B65336" par la colonne que tu souhaites, qui définira la dernière ligne non remplie

Bonjour Soumzoum!

merci d'avoir pris le temps de bien vouloir m'aider.

Jai fait une erreur, j'aurais du mettre le fichier au complet (avec macro). Le problème est que dans la feuille formule, de D8 a I8, D19 a I19 et D21 a I21 les cellules ne sont plus fusionnées et le texte n'est plus centrer. Le formulaire doit s'effacer de toutes information entrer, voir la macro.

si je fusionne les cellules ça ne fonctionne plus.

en gros c'est ça!

je mets le fichier mais complet cette fois si.

merci encore!

Remplace ton code par celui-ci (j'ai laissé tes clearcontents)

Sub Bouton8_Cliquer()
derlig = ActiveWorkbook.Sheets("Feuil1 (2)").Range("B65336").End(xlUp).Row
Sheets("Feuil1").Cells(8, 4).Copy
Sheets("Feuil1 (2)").Cells(derlig + 1, 3).PasteSpecial Paste:=xlPasteValues
Sheets("Feuil1").Cells(19, 4).Copy
Sheets("Feuil1 (2)").Cells(derlig + 1, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Feuil1").Cells(21, 4).Copy
Sheets("Feuil1 (2)").Cells(derlig + 1, 2).PasteSpecial Paste:=xlPasteValues

[D6:i6,D8:i8,c5 ,e5 ,g5 ,i5,D10:i10,D11:G11,i11,D13:i13,D15:i15,D17:i17,D19:i19,D21:i21,F23 ,i23,D25:i25,E27 ,G27 ,I27,D29:i29,D31:i31,F33 ,i33,F35 ,i35,D37:i37,F39 ,i39,B41:F41,b43:d43,b43:d43,B44:d44,g43:i43].ClearContents

End Sub

bonjour !

tout fonctionne très bien et au risque de me répéter mille fois merci.