PB Macro xls

[euro.speed]

Bonjour,

J'ai crée un code à l'aide d'une macro qui fonctionne :
==============================================
Sub Macro9()
'
' Macro9 Macro
' Macro enregistrée le 27/10/2006 par
'

'
Sheets("Matrice").Select
Range("A6😀6").Select
Selection.Copy
Sheets("AH").Select
Range("A4").Select
ActiveSheet.Paste
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub
=====================================================

mon pb est le suivant. Quand je copie/colle ce code pour l'associer à un bouton je n'arribe pas à l'exécuter.

Le message d'erreur est : "la méthode de la classe Range à échoué"

QQ'un a-t-il une idée ?

Merci

 

[RICO1972]

Re : PB Macro xls

Sheets("Matrice").Select
Range("A6😀6").Select
Selection.Copy
Sheets("AH").Select
Range("A4").Select => à supprimer
ActiveSheet.Paste => à supprimer
Range("A8").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
remplace par :
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseEnd Sub

 

[Dull]

Re : PB Macro xls

salut euro.speed, le Forum

Pour associer ton Bouton à une macro

Private Sub Commandbutton1_Click()
Macro9
end Sub

Edit:Salut Rico1972... Pas vu

 

[euro.speed]

Re : PB Macro xls

merci pour ta réponse, mais j'ai tjrs le même message d'erreur. Voici mon code :
========================
Private Sub CommandButton2_Click()

Sheets("Matrice").Select
Range("A6😀6").Select
Selection.Copy
Sheets("AH").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub
==========================

copier/coller simplement c'est une étape, mais en fait je dois transposer mes données.

 

[euro.speed]

[Résolu] : PB Macro xls

Merci à RICO1972 et Dull,

Finalement, j'opte pour la méthode de DULL qui marche bien

 

[Dull]

Re : PB Macro xls

Re le fil,

je vois pas ou est le problème 😕

essai

RE EDIT: Puréech'uitrèslentaujourdhui()

 

[euro.speed]

Re : PB Macro xls

Le pb c'était que je n'appelais pas la macro9.
j'avais copié le contenu de la macro9 directement dans la cmde du bouton et là dans ce cas, ça marche pas !

je ne sais pas pouquoi ?

 

[Robert]

Re : PB Macro xls

Bonjour le fil, bonjour le forum,

Une explication du pourquoi ça ne marchait pas... La macro est dans un composant Module tandis que le bouton se trouve dans le composant WorkSheet. Quand à partir du bouton tu demandes à agir sur un autre onglet (donc un autre composant WorkSheet) que celui où il se trouve, il te faut spécifier à chaque fois Activesheet.Range au lieu de Range. Ton code initial devient :

Private Sub CommandButton1_Click()
Sheets("Matrice").Select
activeSheet.Range("A6:D6").Select
Selection.Copy
Sheets("AH").Select
Activesheet.Range("A4").Select
ActiveSheet.Paste
Activesheet.Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Avec évidemment les corrections des collègues que je n'ai pas reprises ici.

Autre propposition (j'ai considéré que le bouton se trouvait dans l'onglet Matrice) :

Private Sub CommandButton1_Click()'au clic du bouton
Dim dest1 As Range, dest2 As Range'déclare les variables ddest1 et dest2
 
With Sheets("Feuil3")
    Set dest1 = .Range("A4") 'définit la variable dest1
    Set dest2 = .Range("A8") 'définit la variable dest2
End With
 
Range("A6:D6").Copy Destination:=dest1 'copie et colle dans dest1
Range("A6:D6").Copy 'copie
dest2.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True 'dans dest2 colle en transposant
End Sub

 

[euro.speed]

Re : PB Macro xls

Merci Robert pout ton explication, tout est clair maintenant 😎