1 Bouton pour 2 Macros c possible??

Bonjour

Est-il possible d'exécuter ces 2 macros avec 1 seul bouton?

Sub GraphLig()                                                
Lig = Range("Feuil1!A1:A50").Find([AF49], , , xlWhole, xlByColumns).Row                        
Zone = "Feuil1!A" & Lig & ":AW" & Lig                        
Range(Zone).Copy Range("K58")                        
Application.CutCopyMode = False                        
Range("K58").Select                        
End Sub

Sub GraphsLig()                                                
Lig = Range("Feuil1!A1:A50").Find([AF49], , , xlWhole, xlByColumns).Row                        
Zone = "Feuil1!A" & Lig & ":AW" & Lig                        
Range(Zone).Copy Range("K61")                        
Application.CutCopyMode = False                        
Range("K61").Select                        
End Sub        
Merci
Crdlmt
Nonno

Salut Nonno,

pouruoi pas une seule macro?

essaie comme ca:

Sub GraphLig()
Lig = Range("Feuil1!A1:A50").Find([AF49], , , xlWhole, xlByColumns).Row
Zone = "Feuil1!A" & Lig & ":AW" & Lig
For i = 58 To 61 Step 3
Range(Zone).Copy Range("K" & i)
Range("K" & i).Select
Next i
Application.CutCopyMode = False
End Sub

@++

Merci pour ta réponse, mais!

Erreur de ma part, j'ai mis deux fois la même Macros

Sub GraphLig()                                                    
Lig = Range("Feuil1!A1:A50").Find([AF49], , , xlWhole, xlByColumns).Row                            
Zone = "Feuil1!A" & Lig & ":AW" & Lig                            
Range(Zone).Copy Range("K58")                            
Application.CutCopyMode = False                            
Range("K58").Select                            
End Sub                            

Sub GraphsLig()                                                
Lig = Range("Feuil1!A32:A60").Find([AF49], , , xlWhole, xlByColumns).Row                            
Zone = "Feuil1!A" & Lig & ":AW" & Lig                            
Range(Zone).Copy Range("K61")                            
Application.CutCopyMode = False                            
Range("K61").Select                            
End Sub

A1:A50 sur la première

A32:A60 sur la 2ème

Encore merci

Nonno

Bonjour,

Si vous voulez les lancer en même temps,

Dans une nouvelle macro

Sub 1_Bouton_2_Macros()

    GraphsLig
    GraphsLig

End Sub

Bonjour tout le monde,

Une petite correction

 Sub 1_Bouton_2_Macros()

    GraphLig
    GraphsLig

End Sub

Bonjour tout le monde,

Pas sur d'avoir compris ce que devait faire ta macro....

Un fichier test aurait été utile.....

Une autre proposition à tester....en me basant sur tes codes....

Sub test()
 Dim lig1, lig2
  With Sheets("Feuil1")
   On Error Resume Next
    lig1 = .Range("A1:A50").Find([AF49], , , xlWhole, xlByColumns).Row
     .Range("A" & lig1 & ":AW" & lig1).Copy .Range("K58")
    lig2 = .Range("A32:A60").Find([AF49], , , xlWhole, xlByColumns).Row
     .Range("A" & lig2 & ":AW" & lig2).Copy .Range("K61")
  End With
   Application.CutCopyMode = False
End Sub

Si tes 2 codes t'apportent satisfaction, la solution de m3ellem1 devrait de convenir,

Cordialement,

Merci à tous

j'y suis presque

La proposition de XORSANKUKAI me conviendrait: sauf que le copier(en feuil1) se colle sur cette même feuille

alors que je le voudrais en feuil2 (ou se trouvent AF49(liste déroulante) K58 et k61.

J'espère être assez clair.

Crdlmt

Nonno

Re,

le copier(en feuil1) se colle sur cette même feuille

alors que je le voudrais en feuil2 (ou se trouvent AF49(liste déroulante) K58 et k61.

Ah !!!! Je me disais bien que quelque chose clochait....d'où mon incompréhension....

A tester....

Sub test()
 Dim lig1, lig2

  With Sheets("Feuil2")
   .Range("K58:BG68,K61:BG61").ClearContents
  End With

  With Sheets("Feuil1")
   On Error Resume Next
    lig1 = .Range("A1:A50").Find(Sheets("Feuil2").Range("AF49"), , , xlWhole, xlByColumns).Row
     .Range("A" & lig1 & ":AW" & lig1).Copy Sheets("Feuil2").Range("K58")
    lig2 = .Range("A32:A60").Find(Sheets("Feuil2").Range("AF49"), , , xlWhole, xlByColumns).Row
     .Range("A" & lig2 & ":AW" & lig2).Copy Sheets("Feuil2").Range("K61")
  End With
   Application.CutCopyMode = False
End Sub

Cordialement,

MERCI

SUPER

Cordialement

Nonno