Bonjour à tous et à toutes,

Dans le cadre de mon travail, j'ai besoin d'une macro correctif sous VBScript de telle sorte que pour une plage de données contenant des valeurs numériques d'un fichier excel, je puisse éxécuter une certaine opération pour chaque contenu des cellules. Il s'agîrait de quelque chose comme ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub chargements()
 
Dim contrats As Range
Dim cell As Range
Set contrats = Range("G7:G16")    'plage d'exemple
 
For Each cell In Range("G7:G16")
'Faire une opération pour chaque cellule de la plage, notamment une ligne de l'opération qui comprendrait le numéro du contrat auquel je souhaite faire un correctif (l'opération) :
autECLSession.autECLPS.SendKeys "6853740"
'(...suite opération)
'où 6853740 est le numéro de contrat. Je veux faire cette opération pour chaque contrat dont les numéros sont contenus dans la plage G7:G16 (un numéro par cellule).
Next cell
 
End sub
Ma question est par quoi remplacer "6853740" pour qu'il fasse la suite de l'opération pour chaque cellule?

Je vous remercie par avance de vos réponses!