Discussion :

[nicodvn]

Bonjour à tous,

Voici mon problème.
Comme vous pouvez le constater, j'ai deux feuilles dans mon classeur : devis & facture.

Classeur1.xlsm


J'aimerai avoir un code vba qui fasse tout ca en même temps:
- Dans la feuille devis, insérer une nouvelle ligne dans mon tableau. Celle ligne aurait la mise en page de la ligne 32 (+liste déroulante) et à chaque fois que j'appuierai sur ma macro cela ajouterait à nouveau une ligne en dessous de la dernière.

- En même temps que voudrai que cela me rajoute la même chose sur facture et qu'en gros quand je rempli mon devis ça remplisse mes lignes de la facture.

J'ai essayé avec enregistrement macro et avec 1000 autres codes que j'essaye d'adapter mais toujours un problème.

[Marc-L]

Bonjour, bonjour !

Sans explication du problème, personne ne pourra répondre !

Voir les règles du forum, notamment le but de répondre à une question pour un point technique précis,
le but n'étant pas de livrer gratuitement un applicatif sur mesure, il y a des indépendants ou des sociétés pour cela …

Sinon dans un des sous-forums d'Excel il y a déjà une discussion en rapport, une p'tite recherche et voilà !

[nicodvn]

Je ne cherche pas à ce que l'on me le fasse gratuit. Il n'y a pas de soucis pour que je poste les 1000 codes que j'ai testés et que j'ai essayés d'adapter. Si je demande votre aide c'est vraiment que la je ne trouve pas.

il n'y a donc pas réellement de problème je cherche en effet une solution après tous mes essais. Je sais que vous êtes la bénévolement et je viens pas pour profiter de vous je vous l'assure mais la clairement je craque devant ce soucis

voici d’ailleurs le code sur lequel je me suis penché le plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub ajout_devis_facture()
Sheets("devis").Rows("32:32").Copy
Worksheets("devis").Range("32:32").Insert Shift:=xlDown
ActiveCell.EntireRow.ClearContents
Sheets("facture").Rows("33:33").Copy
Worksheets("facture").Range("33:33").Insert Shift:=xlDown
ActiveCell.EntireRow.ClearContents
Sheets("recap presta").Rows("16:16").Copy

Le fait qu'apres 2 insertions ce dernier m'insère en dessous de la première ligne et qu'en plus cela ne me supprime pas le texte de la cellule copié (j'ai testé clearcontent.. mais pas de résultat).
De plsu avec ce code au bout de la 2eme insertion cela me supprime mes données de la ligne précédente...
En plus, il faut que ma partie facture se remplisse automatique quand je rempli et insère sur devis mais la non plus c'est pas terrible

[Menhir]

Pour des raison de sécurité, je n'ouvre pas les pièces jointes, en particulier les XLSM et XLS.

- Dans la feuille devis, insérer une nouvelle ligne dans mon tableau. Celle ligne aurait la mise en page de la ligne 32 (+liste déroulante) et à chaque fois que j'appuierai sur ma macro cela ajouterait à nouveau une ligne en dessous de la dernière.

Pour insérer une nouvelle ligne en copiant le format de celle qui se trouvait au même endroit (par exemple si c'est la ligne 5).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

En même temps que voudrai que cela me rajoute la même chose sur facture et qu'en gros quand je rempli mon devis ça remplisse mes lignes de la facture.

Il est de mettre dans les cellules de ton onglet Facture une formule qui pointe sur la même case de ton devis.
Par exemple, si tu veux mettre dans la cellule D10 une telle formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Facture").Range("D10").FormulaR1C1 = "=Devis!RC"

Ton code marchera mieux avec un End Sub.

Le fait qu'apres 2 insertions ce dernier m'insère en dessous de la première ligne

Etant donné que tu lui indique de l'insérer sur la ligne "32" en dur, il l'insèrera forcément toujours à cet endroit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

qu'en plus cela ne me supprime pas le texte de la cellule copié (j'ai testé clearcontent.. mais pas de résultat).

Tu appliques ton clearcontent à la cellule sélectionnée mais ton code ne sélectionne aucune cellule.
Donc, il s'applique à la cellule que tu auras sélectionnée avant de lancer la macro. C'est un peu comme une pierre lancée en l'air et qui pourrait retomber sur n'importe quelle tête.

De plsu avec ce code au bout de la 2eme insertion cela me supprime mes données de la ligne précédente...

Voir l'explication précédente sur le clearcontent (on sait maintenant sur quelle tête retombe la pierre )

[Marc-L]

Pour la partie Devis, le Générateur de macros s'en acquittera aisément !

En cas de souci ou de besoin de complément, poster le code entre balises conformément aux règles du forum
en l'accompagnant d'une présentation claire et précise ne laissant pas de place à une quelconque interprétation :
une solution sera alors certainement proposée par un intervenant.

Quant à la facture, l'usage est de la créer une fois le devis validé …

Encore une fois, un cas similaire a déjà été traité dans ce forum et le demandeur a même publié la version finale.

Et sur le marché il y a des p'tits logiciels abordables de gestion commerciale.


Edit : je n'avais pas vu le précédent message avant la rédaction de celui-ci …