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

rjcb

XLDnaute Occasionnel
Bonjour,

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

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

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

Merci
 

rjcb

XLDnaute Occasionnel
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 ..;
 

rjcb

XLDnaute Occasionnel
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