Boucle For each cell in Range(.)

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:

---

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!

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub chargements()   Dim contrats As Range Dim cell As Range Set contrats = Range("G7:G16") 'plage d'exemple   For Each cell In contrats SuiteOperation CStr(cell(1, 1).Value) Next cell   End Sub Sub SuiteOperation(Contrat As String) autECLSession.autECLPS.SendKeys Contrat '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) :   '(...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). End Sub

---

ceci dit, vba n'est pas VBScript et il faudra remanger ton code si tu veux le faire tourner en VBScript !

Bonjour rdurupt,

Effectivement VBScript n'est pas VBA mais je n'ai que cette solution pour m'inspirer.
D'ailleurs, sur un fichier de type VBScript (fichier texte), sauriez-vous comment appeler la plage de données du fichier excel?

Quelque chose du type

Code:

---

1 2	Workbooks.Open Filename:= _ "C:\Documents and Settings\xxx\Bureau\Classeur1"

---

peut être ? (où classeur1 contient ma plage G7:G16)

Merci par avance si vous connaissez la réponse.

Vbscript n'accepte pas les types, de plus il faut déclarer tous les objets Excel!

Code:

---

1 2 3 4 5 6 7 8 9 10

dim Xls Dim Wb Dim Sh Dim plage Set xls=creatobject("Excel.application") Xls.visible=True Set wb=xls.workbooks.add Set sh =wb.sheets.add Set plage=sh.range("a1:b10") Plage ="toto"

---

Code:

---

1 2	Set wb= xls.Workbooks.Open

---

Tu peux créer des variables Dim ma variable pas de types du genre as string
De fonctions

Code:

---

1 2 3

funtion Myqfuncion(permettre) Myqfuncion = permettre End function

---

Toujours pas de typage!
Des sub

Code:

---

1 2 3

sub Mysub(paramètre) Msgbox paramètre End sub

---

Encore et toujours pas de typage

Le programme en principal toujours appelé hors d'une sub ou d'une fonction!

Mysub "Toto"