Discussion :

[idir.17]

Bonjour,

je suis désolé de vous déranger avecune question qui parait aussi basique mais je n'arrive pas à copier le contenu d'une cellule sachant que c'est une valeur vers une autre. J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Valeur as string
Dim Cel as Range
Dim Cel2 as Range
Valeur=Cel.Offset(i,1).Value
Cel2.Offset(Compteur2,21).Value=Valeur

mais aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cel.Offset(i,1).Copy Cel2.Offset(Compteur2,21)

Idir

[vuong1]

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Cells(Compteur2,21)=Cells(i,1)

sans oublier de déclarer Compteur2 et i.

[idir.17]

i et Compteur 2 sont déjà déclarés.
Le truc c'est que j'ai déjà défini Cel et Cel2 car les 2 cellules ne proviennent pas du même classeur.
Donc j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cel.Offset(i,1)=Cel2.Offset(Compteur2,21)

Et ca ne marche pas

[SfJ5Rpw8]

...
Le truc c'est que j'ai déjà défini Cel et Cel2 car les 2 cellules ne proviennent pas du même classeur....

Comment ?

[idir.17]

Comment ?

En fait Cel est defini comme tel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Cel as Range
Set Cel= Workbooks(Nom_Classeur_VAB).Worksheets("Feuil1").Range("B1")

et Cel2 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Cel2 as Range
Set Cel2= Workbooks(Nom_Classeur_VarPN).Worksheets(Nom_Feuil_VarPN).Range("B1")

Et voila...
Je veux donc copier la valeur d'une cellule du workbooks VAB vers VarPn

[SfJ5Rpw8]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cel2.Offset(Compteur2,21)=Cel.Offset(i,1)

du moment que Compteur2 .. et i .. soit inférieur ou égal à (65536 - 2 , le 2 de B2) et supérieur ou égal à -1