Débutant en macro, besoin aide

JNP

XLDnaute Barbatruc

• 13 Juillet 2012

• #2

Re : Débutant en macro, besoin aide

Bonjour Coucoud et bienvenue ,
A tester

Code:

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

 

Vote positif 0 Vote négatif

F

flyonets44

XLDnaute Occasionnel

• 13 Juillet 2012

• #3

Re : Débutant en macro, besoin aide

Bonjour
voici ton fichier avec la macro copieselective
Cordialement
flyonets

 

Pièces jointes

• projet.xls

  29 KB · Affichages: 49
• projet.xls

  29 KB · Affichages: 51
• projet.xls

  29 KB · Affichages: 53

Vote positif 0 Vote négatif

C

coucoud

XLDnaute Nouveau

• 13 Juillet 2012

• #4

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

 

Vote positif 0 Vote négatif

C

coucoud

XLDnaute Nouveau

• 13 Juillet 2012

• #5

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 13 Juillet 2012

• #6

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

 

Vote positif 0 Vote négatif

C

coucoud

XLDnaute Nouveau

• 13 Juillet 2012

• #7

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 14 Juillet 2012

• #8

Re : Débutant en macro, besoin aide

Re ,
Comme ceci par exemple ,

Code:

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

 

Vote positif 0 Vote négatif

C

coucoud

XLDnaute Nouveau

• 14 Juillet 2012

• #9

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

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 15 Juillet 2012

• #10

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

Code:

Private Sub Workbook_Open()Call Test2
End Sub

Bonne suite

 

Vote positif 0 Vote négatif