AIRDEUG
Messages postés3Date d'inscriptionmardi 30 juin 2009StatutMembreDernière intervention30 janvier 2010
-
18 oct. 2009 à 16:45
AIRDEUG
Messages postés3Date d'inscriptionmardi 30 juin 2009StatutMembreDernière intervention30 janvier 2010
-
20 oct. 2009 à 12:57
Bonjour;
j'ai une feuille ou je fais la saisie des codes produit qui se repétent souvent, j'aimerai les regrouper ainsi la sommation de ses quantités dans une seule ligne (chaque code touché)par un macro.
autre pb, j'aimerai les copiés et les coller dans une autre feuille ou j'insere à la derniere ligne un tableau de calcul.
merci d'avance.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 18 oct. 2009 à 18:19
Salut
Quelle version de Excel ?
Sous 2003 et plus, quand tu fais "Fichier" + "Nouveau", tu as un lien vers les modèles "online".
Parmi eux, plusieurs modèles liés à la facturation.
A défaut d'utiliser ces modèles, tu y trouveras toutes les astuces nécessaires.
Sinon, pour faire apparaitre que les références d'une même famille, il te suffit de créer un filtre sur la colonne Famille : Tu cliques sur l'entête de ta colonne + Menu "Données", "Filtrer", "Filtre automatique".
Quant au copier/coller, le forum regorge de réponses à cette question : suffit de chercher "dernière cellule" pour trouver par exemple <cette réponse>
Pour le copier/coller, un enregistrement manuel de macro te fournira le code.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
AIRDEUG
Messages postés3Date d'inscriptionmardi 30 juin 2009StatutMembreDernière intervention30 janvier 2010 20 oct. 2009 à 12:57
Bonjour à tous en particulier pour jack;
je travail sous excel 2003 et j'ai un pb le lien vers les modèles "online" ne fonctionne pas, j'essai de faire une application de saisi des codes ,projet et OT (mot technique de mon travail) qui engendre automatiquement le compte comptable et la facture.
je donne un exemple de ma 1ére question;
voila la saisie au depart:
le resultat doit etre comme suit:
code libelle qtité PU TVA Total
e300 xxxxxxx 14 2 6% 29.68
e200 yyyyyyy 7 5 18% 41.3
merci de m'aider en utilisant un macro.
ce resultat je dois le copier de la feuille de saisie à la feuille "facture" en copiant la 1ére ligne puis la 2éme etc . Voila je me bloque j'essai avec ce qui suit magré que j'avance pas:
for i=9 to ???????
for j=11 to ???????
Sheets("FACTURE").Cells(i, 1).Value = LineCount + i - 8
Sheets("FACTURE").Cells(i, 2).Value = Sheets("SAISIE").Cells(j, 21).Value
Sheets("FACTURE").Cells(i, 3).Value = Sheets("SAISIE").Cells(j, 24).Value
Sheets("FACTURE").Cells(i, 4).Value = Sheets("SAISIE").Cells(j, 25).Value
Sheets("FACTURE").Cells(i, 5).Value = Sheets("SAISIE").Cells(j, 26).Value
Sheets("FACTURE").Cells(i, 6).Value = Sheets("SAISIE").Cells(j, 27).Value
Sheets("FACTURE").Cells(i, 7).Value = Sheets("SAISIE").Cells(j, 28).Value
Next j
Next i
* j'insere à la derniere ligne un tableau de calcul.
Sheets("facture").Select
Set plage = Sheets("facture").Range("a8").CurrentRegion
i = plage.Rows.Count
For j = 1 To i
With Worksheets(1)
.Range(.Cells(j, 1), _
.Cells(j, 7)).Borders.LineStyle = xlContinuous
End With
Sheets("calcul").Select
Range("A1:G9").Select
Selection.Copy
Sheets("facture").Select
Cells(i + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False