PB Macro xls

R

RICO1972

XLDnaute Occasionnel

• 30 Octobre 2006

• #2

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Octobre 2006

• #3

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

 

Vote positif 0 Vote négatif

E

euro.speed

Guest

• 30 Octobre 2006

• #4

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.

 

Vote positif 0 Vote négatif

E

euro.speed

Guest

• 30 Octobre 2006

• #5

[Résolu] : PB Macro xls

Merci à RICO1972 et Dull,

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

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 30 Octobre 2006

• #6

Re : PB Macro xls

Re le fil,

je vois pas ou est le problème 😕

essai

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

 

Pièces jointes

• euro.speed.xls

  30.5 KB · Affichages: 31

Vote positif 0 Vote négatif

E

euro.speed

Guest

• 30 Octobre 2006

• #7

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 ?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 30 Octobre 2006

• #8

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 :

Code:

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) :

Code:

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

 

Vote positif 0 Vote négatif

E

euro.speed

Guest

• 31 Octobre 2006

• #9

Re : PB Macro xls

Merci Robert pout ton explication, tout est clair maintenant 😎

 

Vote positif 0 Vote négatif