Sheets("TT").Range("A &i:B" & i).Copy ??

PascalXLD

XLDnaute Barbatruc

• 24 Juillet 2008

• #16

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

re

perso je placerai toutes macros dans des modules tu n'auras plus le pbe

 

Vote positif 0 Vote négatif

R

rjcb

XLDnaute Occasionnel

• 24 Juillet 2008

• #17

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

Heu oui mais je ne vois pas trop comment faire.

je viens de creer un module, j'ai copié tout ma macro dedans, mais comment associé cela au bouton ?.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Juillet 2008

• #18

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

re

et bien comme tu faisais

sur le clic du bouton tu appelles la macro et il trouvera

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 24 Juillet 2008

• #19

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

rjcb à dit:

Heu oui mais je ne vois pas trop comment faire.

je viens de creer un module, j'ai copié tout ma macro dedans, mais comment associé cela au bouton ?.

Cliquez pour agrandir...

click droit sur le bouton affecter macro..

 

Vote positif 0 Vote négatif

R

rjcb

XLDnaute Occasionnel

• 24 Juillet 2008

• #20

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

Oui,

Quand je fais clic droit sur le bouton que je viens de créer, je fais visualiser le code, je retombe dans le truk des macro, pas dans la section module. 😱

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Juillet 2008

• #21

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

re

imaginons que tu as une macro qui s'appelle toto dans un module et bien sur le clic de ton bouton dans ta feuille tu fais

Private Sub CommandButton1_Click()
toto
End Sub

 

Vote positif 0 Vote négatif

R

rjcb

XLDnaute Occasionnel

• 24 Juillet 2008

• #22

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

Ok c'est bon je viens de réussir, Vous allez me prendre pour un boulet...

Par contre ca bloque toujours à:

Code:

 Sheets("Base").Range("A2").Select

pourtant cela m'a lair basique ..;

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 24 Juillet 2008

• #23

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

re

de tête c'est plutot

sheets("Base").select
range("A2").select

 

Vote positif 0 Vote négatif

R

rjcb

XLDnaute Occasionnel

• 24 Juillet 2008

• #24

Re : Sheets("TT").Range("A &i:B" & i).Copy ??

Ok, merci pour l'info.

Mais j'ai toujours un pb sur ce truk:

Code:

    If Condition = False Then
    Sheets("TT").Range("A" & i & ":B" & i).Copy 'copie la cellule D
    Sheets("Macro").Range("A" & k & ":B" & k).Select 'selectionne la cellule en C
    ActiveSheet.Paste 'colle
    Application.CutCopyMode = False '"sort" du coller
    
    Sheets("TT").Range("A" & i & ":B" & i).Copy 'copie la cellule D
    'Sheets("Base_01_fix_voice_announcement").Select
   ' Range("A" & col_base + i).Select
   ' ActiveSheet.Paste 'colle
   ' Application.CutCopyMode = False '"sort" du coller
    
    k = k + 1
    End If

Lorsque cette ligne est en coment aucun pb mais cela ne faait pas tout ce que je veux.
Lorsque de la décommente cela bug mais au niveau de

Sheets("Macro").Range("A" & k & ":B" & k).Select 'selectionne la cellule en C

Bizarre ....

Je vous rejoins mon fichier au cas ou ...

 

Pièces jointes

• PRBT_EN_f.zip

  36.8 KB · Affichages: 18
• PRBT_EN_f.zip

  36.8 KB · Affichages: 16
• PRBT_EN_f.zip

  36.8 KB · Affichages: 18

Vote positif 0 Vote négatif