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

[rjcb]

Bonjour,

Je ne comprends pas que cette ligne me gènère une erreur:

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

En fait je veux copier pour la valeur de i la cellule a et b.

Merci

 

[PascalXLD]

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

re

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

 

[rjcb]

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 ?.

 

[PascalXLD]

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

 

[suistrop]

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 ?.

click droit sur le bouton affecter macro..

 

[rjcb]

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. 😱

 

[PascalXLD]

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

 

[rjcb]

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

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

pourtant cela m'a lair basique ..;

 

[PascalXLD]

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

re

de tête c'est plutot

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

 

[rjcb]

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

Ok, merci pour l'info.

Mais j'ai toujours un pb sur ce truk:

    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 ...