Discussion :

[zouille]

salut a tous

Vola ,dans mon projet de devis , j aimerais a un moment, pouvoir effacer, grace a un bouton , les 7 dernieres lignes de mon devis ( information concernant le payement ) qui ne doivent pas figurer sur la facture ( qui est généré a partir du devis).

Comment faire , sachant que le devis n'a jamais la meme longueur ?

J'aimerais aussi pouvoir modifier une cellule ( ligne 47) mais comment faire sachant qu'elle peut descendre si devis plus long?

Merci a tous

[Invité]

Salut,

Pas clair, et il manque plein d'infos. Comment s'édite ton devis DataReport, CristalReport, les données viennent d'où une table de Base de Donnée, d'un tableau ?

Starec

[jacma]

Vola ,dans mon projet de devis , j aimerais a un moment, pouvoir effacer, grace a un bouton , les 7 dernieres lignes de mon devis ( information concernant le payement ) qui ne doivent pas figurer sur la facture ( qui est généré a partir du devis).

Euh, ne serait-ce pas plutôt l'inverse? Généralement les info concernant le règlement figurent obligatoirement sur une facture, non?
Ceci étant, je m'y prends autrement. J'ai un champ dans la table indiquant s'il s'agit d'un devis ou d'une facture. En fonction de son contenu, je paramètre une édition (ou un écran) pour n'afficher que les champs voulus en fonction du contexte.

[zouille]

bon , mon projet comporte 2 parties
1- la creation du devis
2- Recherche d'un devis pour creation facture

l'osque je selectionne mon devis ( userform "selection") il s'ouvre et un second userform "gene" s'affiche me demandant si je veux "voir le devis" ou "générer la facture" qd je choisi "generer facture" il effectue une coie du devis en modifiant qq case ( remplace DEVIS par FACTURE, ajout une ligne concenant la tva , et doit supprimer les 7 dernieres ligne )


C'est pour supprimer les 7 derniere que je bloque, car en fonction du devis selectionné, ces ligne ne sont pas au meme endroit

Ci joint mon fichier : MON DEVIS


merci bien

[zouille]

donc voila , apres plusieur recherche j'ai trouvé ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub sup_lig_2()
Dim num_ligne As Byte
 
Application.Goto Sheets("feuil1").Range("A65536")
Selection.End(xlUp).Select
Selection.Offset(-6, 0).Select
For i = 1 To 7
    num_ligne = ActiveCell.Row
    Rows(num_ligne).Delete
Next i
End Sub

ce qui me permet de supprimer les 7 derniere ligne de mon devis
Par contre je n'arrive pas a l integrer dans mon code.
Mon bouton "valider " contient deja du code vba , alors je ne sais pas comment l'incruster dedans
J'ai essayer en renommant function sup_lig_2 et faire un appel , mais ca ne marche pas
Comment faire ?

merci a vous