Discussion :

[info009]

Bonjour,

J'ai besoin dans mon code d'imbriquer deux boucles for. Le problème qui se pose est que je travail sur deux fichiers, et si j'utilise les variables i et j pour le premier fichier, je pourrai pas le faire pour le deuxième, sinon il me généré une erreur.

Est ce qu'il existe une solutions pour ce problème ?

Merci.

[clementmarcotte]

Bonjour

Bonjour,
Est ce qu'il existe une solutions pour ce problème ?

Merci.

Je suppose que oui; mais il y a une pénurie de boules de cristal. Il faudrait que tu fournisses plus d'informations sur le besoin et les problèmes. Et même le code...

[info009]

D'accord, c'est un peu compliqué d'expliquer le code puisque ce n'est qu'un bout de code du programme.

' wb1 n'est pas le classeur sur lequel le code est executé
Set wb1 = Workbooks.Open(chemin1)

' ws1 est une feuille de wb1
Set ws1 = Worksheets("Feuil1")

' je compte le nombre de cellule non vide de A
nbrcellule = 0

For Each cel In Range("A:A")

If cel > "" Then

nbrcellule = nbrcellule + 1
End If

Next cel

' je recupere la valeur de chaque cellule de A de wb1 qui correspond a une colonne dans le fichier dans lequel j'execute mon code
For i = 2 To nbrcellule


nom_feuil = ws1.Cells(i, 1)

' J'active feuille par feuille pour executer le reste du programme

ThisWorkbook.Worksheets(nom_feuil).Activate

'Copie des Entete

ws1.Cells(i, 3) = enTete



'Copie des indices
'Boucle sur les lignes

For i = IndiceDebutAnnee To IndiceFinAnneee
'Boucle sur les colonnes
For j = 2 To 13

If wsCurrent.Cells(i, j).Value = 1 Then
test = 1
End If

If test = 1 Then


wsTMP.Cells(currentRow, 2) = wsCurrent.Cells(i, j) * 100
currentRow = currentRow + 1

Else: currentRow = currentRow + 1
End If

Next
Next

Donc vu que j'utilise deux fois la boucle for mais pas pour le meme classeur, il me renvoie une errreur, et je n'arrive pas a trouve une solution pour cela.

[info009]

alors j'ai remplacé le premier i avec un k et sa marche.

Par contre j'ai une erreur au niveau de

if wsCurrent.Cells(i,j).Valule =1

L'erreur est erreur automation 800401a8

[Menhir]

J'ai besoin dans mon code d'imbriquer deux boucles for. Le problème qui se pose est que je travail sur deux fichiers, et si j'utilise les variables i et j pour le premier fichier, je pourrai pas le faire pour le deuxième, sinon il me généré une erreur.

Est ce qu'il existe une solutions pour ce problème ?

Dans le premier tu mets i1, j1, dans le second tu mets i2, j2.

Tu peux aussi déclarer tes variables en Private pour éviter que chaque module influe sur l'autre.

Petite précision : dans une boucle For, tu n'es pas obligé d'utiliser i et j. Si tu veux mettre "Bonjour" comme nom de variable, rien ne t'en empêche.

[info009]

Merci, c'est une erreur de débutant

Merci pour ces informations.

[Menhir]

Par contre j'ai une erreur au niveau de

Code :

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

if wsCurrent.Cells(i,j).Valule =1

Après la condition d'un If, on doit mettre un Then.
Voir l'aide VBA Excel pour la syntaxe complète.

[info009]

Non dans le code le then y est, c'était une autre faute que j'ai pu corriger.

Merci.

[Menhir]

Autrement dit, tu nous demandes de trouver une erreur dans un code qui ne correspond pas à ce que tu as ?