Discussion :

[Romhain]

Bonjour

Je voudrais savoir quelle était la syntaxe pour pouvoir récupérer la valeur d'une cellule sans la formule avec Formulalocal dans une boucle sur i.

Exemple : dans un fichier Resultats, je veux récupérer la valeur de A5 et la mettre dans X3
[Resultats!X3] = [Resultats!A5]

Mais pour une boucle ?
quand j'écris çà [Resultats!"X" & i] =[Resultats!"A" & i] ça me met erreur d'exécution 424 objet requis

Merci de votre aide.
Romhain

[halaster08]

Bonjour,

[Resultats!"X" & i] =[Resultats!"A" & i]

Code :

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

worksheets("Resultats").cells(i, 24).value =worksheets("Resultats").cells(i,1).value

[Menhir]

Ou bien :

Code :

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

Worksheets("Resultats").Range("X" & i).Value = Worksheets("Resultats").Range("A" & i).Value

ou même :

Code :

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

Worksheets("Resultats").Cells(i, "X").Value = Worksheets("Resultats").Cells(i, "A").Value

Mais s'il s'agit juste d'un transfert de valeurs, il est probable qu'un Copy et un PasteSpecial(xlPasteValues) te permettrait d'éviter une boucle et de gagner en vitesse d'exécution.
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

Par exemple, si ta copie concerne les lignes de 1 à 100 :

Code :

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

1
2
Worksheets("Resultats").Range("A1:A100").Copy
Worksheets("Resultats").Range("X1:X100").PasteSpecial(xlPasteValues)

[halaster08]

ou même :

Code :

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

Worksheets("Resultats").Cells(i, "X").Value = Worksheets("Resultats").Cells(i, "A").Value

Merci Menhir, je ne connaissais pas cette écriture.

[Invité]

Bonjour,
Je ne vois pas l'intérêt de faire une boucle!

Code :

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

Worksheets("Resultats").Range("A1:A100").value=Worksheets("Resultats").Range("X1:X100").value