macro excel Fermé

Question

Bonjour,

j'essaie de faire un dossier suivi fournisseur sur Excel.
j'ai une feuille liste des fournisseur, une feuille saisie, une feuille liste des factures.

a partir de la feuille saisie veux alimenter ma feuille "liste des factures", j'ai donc mis en place une macro qui me copie tout ce ke j'ai mis dans ma "feuille saisie" vers ma feuille "liste des factures" puis efface tout ce ke j'avais sur ma feuille "saisie".

je voudrais faire en sorte que ma deuxieme saisie s'enregistre sur la deuxième ligne de ma feuille "liste des facture".

y a t il quelqu'un qui eut m'aiderµ??????????

helppppppppppppppp

marjo

ps voici ma macro

Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 21/02/2007 par EL HAJJI
'
' Touche de raccourci du clavier: Ctrl+Maj+W
'
    Range("D3").Select
    Selection.Copy
    Sheets("Liste Facture").Select
    Range("B2").Select
    ActiveSheet.Paste
    Sheets("Saisie").Select
    Range("D7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste Facture").Select
    Range("D2").Select
    ActiveSheet.Paste
    Sheets("Saisie").Select
    Range("D9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste Facture").Select
    Range("E2").Select
    ActiveSheet.Paste
    Sheets("Saisie").Select
    Range("D11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste Facture").Select
    Range("F2").Select
    ActiveSheet.Paste
    Sheets("Saisie").Select
    Range("D13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste Facture").Select
    Range("G2").Select
    ActiveSheet.Paste
    Sheets("Saisie").Select
    Range("D15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Liste Facture").Select
    Range("H2").Select
    ActiveSheet.Paste
    Sheets("Saisie").Select
    Range("D3").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("D7").Select
    Selection.ClearContents
    Range("D9").Select
    Selection.ClearContents
    Range("D11").Select
    Selection.ClearContents
    Range("D13").Select
    Selection.ClearContents
    Range("D15").Select
    Selection.ClearContents
End Sub

gbinforme · Answer

bonjour

Je te propose de remplacer ta macro par la suivante :

'insertion d'une ligne pour copie en ligne 2
    Sheets("Liste Facture").Range("A1").EntireRow.Insert
'copie de la colonne D sur la line 2 en transposant
    Sheets("Saisie").Range("D2:D21").Copy
    Sheets("Liste Facture").Range("B2").PasteSpecial Paste:=xlPasteAll, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
'effacement colonne D de saisie
    Sheets("Saisie").Range("D2:D21").ClearContents


elle permet de mettre en ligne 2 ta saisie de la colonne D
en conservant les saisies précédentes sur les lignes suivantes.

il faut certainement adapter un peu ta feuille de saisie mais c'est plus clair comme fonctionnement et tu peux rajouter des zones facilement.

marjo51 · Answer

merci gbinform,

g encore un petit souci

j'aimerai selection une ou plusieur ligne sur une feuille
et pouvoir coller que 2 cellules de cette selection pour les coller sur une autre feuille.
puis mettre cette ligne en couleur quand la manipe est faite
est-ce possible????

je te remercie d'avance de ta réponse

gbinforme · Answer

bonjour

Ce que tu veux faire est certainement possible,
mais comme tu l'exposes c'est trop confus pour te donner une piste.

reformules plus précisément les phases de la procédure :
- tu sélectionnes : comment ?
- les 2 cellules sont-elles sur les mêmes colonnes toujours ?
- si tu sélectionnes plusieurs lignes y a-t-il toujours deux cellules par ligne ?
- le collage sur l'autre feuille est-il incrémental ?
- sur quelle ligne se fait-il ?  la dernière ou la 2 ?
- la ligne collée est mise en couleur mais la précédente que devient-elle ?

merci de tes précisions.

Macro excel

3 réponses

Discussions similaires