Débutant en macro, besoin aide

[coucoud]

Bonjour,

Je suis débutant sur excel et j'ai besoin pour mon boulot d'effectuer un fichier régulièrement.
Aujourd'hui, je ne fonctionne que avec des copier coller et souhaiterai automatisé mon fichier.
Explication dans fichier joint.

Je vous remercie d'avance de votre aide

 

[JNP]

Re : Débutant en macro, besoin aide

Bonjour Coucoud et bienvenue ,
A tester

Sub Test()
Dim I As Integer, J As Integer
J = 1
With Sheets("Feuil1")
    For I = 2 To .Range("A65536").End(xlUp).Row
        If Range("A" & I) = "E15" Then
            Sheets("Feuil2").Range("A" & J & ":D" & J).Value = .Range("A" & I & ":D" & I).Value
            J = J + 1
        End If
    Next I
End With
End Sub

Bonne suite

 

[flyonets44]

Re : Débutant en macro, besoin aide

Bonjour
voici ton fichier avec la macro copieselective
Cordialement
flyonets

 

[coucoud]

Re : Débutant en macro, besoin aide

Merci,

Débutant en macro, pourriez vous me détailler le language, comment copier pour mettre E12 en feuille 3 et E14 en feuil 4?
Merci

 

[coucoud]

Re : Débutant en macro, besoin aide

N'ayant jamais utilisé de macros, ou et comment entrer votre programme pour voir si cela fonctionne.
Merci de votre aide

 

[JNP]

Re : Débutant en macro, besoin aide

Re, salut Flyonets44 ,
Difficile de te répondre si tu ne dis pas à qui tu t'adresses...
Le code de Flyonets (tout en étant aussi, voir plus, efficace, suivant ton besoin, mais ne donnant pas les mêmes résultats, lui privilégie la mise en forme, moi la rapidité ) est très différent du mien, lequel t'inspire ?
Bonne soirée

 

[coucoud]

Re : Débutant en macro, besoin aide

Bonsoir JNP,

Je viens de tester ta methode, il fonctionne parfaitement et de plus j'ai trouver comment effectuer la macro avec differents tri sur différente feuille ( Perfect )
Par contre coomment faire pour récuperer les titres et les copier sur chaque feuille avant la macro ??
Merci de ton aide

 

[JNP]

Re : Débutant en macro, besoin aide

Re ,
Comme ceci par exemple ,

Sub Test2()
Dim I As Integer, J As Integer
J = 2
With Sheets("Feuil1")
    Sheets("Feuil2").Range("A1:D1").Value = .Range("A1:D1").Value
    For I = 2 To .Range("A65536").End(xlUp).Row
        If Range("A" & I) = "E15" Then
            Sheets("Feuil2").Range("A" & J & ":D" & J).Value = .Range("A" & I & ":D" & I).Value
            J = J + 1
        End If
    Next I
End With
End Sub

Bon WE

 

[coucoud]

Re : Débutant en macro, besoin aide

Slt JNP,

Impeccable, tu viens de me faire gagner des heures de travail. tu es un champion
Derniere demande, comment executer la macro automatiquement a l'ouverture du fichier ??
Bon week

 

[JNP]

Re : Débutant en macro, besoin aide

Re ,
Je vois peu l'intérêt de lancer ce type de macro à l'ouverture du fichier, mais bon ...
Dans ThisWorkbook

Private Sub Workbook_Open()Call Test2
End Sub

Bonne suite