Aide Pour Marco de Copie Cellule Non Vide

Bonjour a tous,

n'ayant jamais touché au fonction macros de Excel je sollicite les pro de ce forum pour avoir un peu d'aide ^^

j'ai crée un tableau avec une macro ( récupérer par ici après moult recherche ... ) et je voulais :

qu'il copie dans la feuil2 nommé MISE EN FORME DEVIS VENTE , toute les ligne de Feuil1 ( SAISIE ) a conditions que la colonne C de la ligne soit non vide et copie en A10 et suivant toute les ligne.

jusque la tant bien que mal j'ai a peu prés réussi mais j'aimerai qu'il copie uniquement les colonne A a D et pas tout pour ne pas détruire ma mise en forme sur la nouvelle feuille !

est-ce possible et comment ???

ci joint mon fichier

Merci a vous en tout cas !

SALUT

SVP explique mieu par un resultat exprimé

Re,

alors en fait je voudrais que toute les ligne dans lesquels la colonne C est rempli soit copié dans l'onglet MISE EN FORME mais uniquement les 4 première colonne, pas toute la ligne...désolé c'est compliqué a expliqué en effet !

SALUT

Encore pas compris

lol,

ci joint le résultat voulu, en rouge les celulle copier depuis le premier feuillet vers le deuxième.

• chaque ligne avec la colone C rempli est copier dans la nouvelle feuille
• seul les colonnes A-D sont copier,
• les valeurs des cellules sont copié, pas les formules ETC ( collage special : texte )

Merci !

SALUT

J'OCCUPE UN AUTRE POSTE "le travail" alors désolé pour le retard

une rapide

Sub Copier2()
Dim c, derlig, WsSAISIE, WsMISE
Set WsSAISIE = Worksheets("SAISIE")
Set WsMISE = Worksheets("MISE EN FORME DEVIS VENTE")

derlig = WsSAISIE.Range("C" & Rows.Count).End(xlUp).Row
'MsgBox derlig
        For Each c In WsSAISIE.Range("C2:C" & derlig)
            If Not IsEmpty(c) Then
            With WsMISE
             .Range("a" & .Range("A" & 1000).End(xlUp).Row + 1 & ":d" & .Range("A" & 1000).End(xlUp).Row + 1).Value = _
             Range("A" & c.Row & ":D" & c.Row).Value
            End With
            End If
        Next c

   End Sub

Et une autre lente

Sub Copier()
Dim c, derlig
derlig = Worksheets("SAISIE").Range("C" & Rows.Count).End(xlUp).Row
       ' MsgBox derlig
        For Each c In Worksheets("SAISIE").Range("C2:C" & derlig)
            If Not IsEmpty(c) Then
            With Worksheets("MISE EN FORME DEVIS VENTE")
            'Application.CutCopyMode = False
            Range("A" & c.Row & ":D" & c.Row).Copy
             'Destination:=.Range("A" & .Range("A" & 1000).End(xlUp).Row + 1),PasteSpecial Paste:=xlPasteFormats
            .Range("A" & .Range("A" & 1000).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues  ', Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
            End With
            End If
        Next c

   End Sub

dit moi si vous convient

c'est juste parfait !

merci beaucoup