Erreur de boucle for

Bonjour a tous ,

Une erreur toute bete je pense mais je ne vois pas , comment faire pour que ma var J ce remette à 1 une fois la boucle jusqu'a 4 terminer , je n'arrive du coup pas à boucler a l'interieur de ma deuxième boucle.

merci par avance , j'essaye en meme temps que j'apprend à optimiser au maximum mon code d'ou ma mise en variable tableau en début .

Sub correction()
Dim i, j, ii, jj, Reponse As Byte
Dim tab_RQ(15, 4)
Dim SelectFichier1, SelectFichier2 As String
Dim wbkQCM, wbkCOR As Workbook

        For i = 1 To 15 'R_Qi
            For j = 1 To 4 'Qi_j
                tab_RQ(i, j) = Range("Q" & i & "_" & j).Value2 'Q1_j
            Next
        Next
        i = j = 0

        For i = 1 To 15 'R_Qi
            Ru = Worksheets(1).Range("R_Q" & i).Value2
            For j = 1 To 4 'Qi_j
                    If tab_RQ(i, Ru) = "Vrai" Then
                        Worksheets(1).Range("Q1_" & Ru).Offset(0, 1).Value2 = 1
                    Else
                        If tab_RQ(i, Ru) = "Faux" Then
                            Range("Q1_" & j).Offset(0, 1).Value2 = 0
                        Else: Range("Q1_" & j).Offset(0, 1).Value2 = ""
                        End If
                    End If
            Next
        Next
    End Sub

Bonjour,

je ne vois pas le problème !

essaie ceci t tu verras qu'elle se remet bien à 1

(fait Crtl+G dans l'éditeur de macro)

sub test()
        For i = 1 To 15 'R_Qi
            For j = 1 To 4 'Qi_j
                debug.print i,j
            Next
        Next
end sub

Bonjour,

edit :salut Steelson

ta variable J se met automatiquement à 1 chaque fois que tu commences ta boucle

for j=1 to 4

mais je pense que tu as l'impression que ce n'est pas le cas, car il n'y a probablement rien de visible qui se passe. Selon moi, tu devrais vérifier tes tests "vrai" et "faux", probablement que ni l'un, ni l'autre n'est vrai. (soit qu'il s'agit de variable booléenne, tu dois alors tester par rapport à TRUE or FALSE en VBA, soit il s'agit de texte et tu dois alors vérifier la casse 'majuscule ou minuscule'

Salut h2so4

j'ajoute que si tu as un doute, poste un fichier simplifié

Merci beaucoup messieurs pour les infos

L'erreur est donc ailleurs arggggg

J'ai l'impression que ça ne boucle pas sur la totalité de mon tableau à 2 dimensions 1 ere boucle de 1a15 puis boucle de 1 a 4 pour chaque item de la 1er boucle .

Si correspondance ou non action.

Les actions s'arrête à la 1er boucle 1 aucune action sur les items suivants ?!!!

Du mal a comprendre pourquoi ça ne fait pas ce que je veux , je m'y remet

j'ai honte

Range("Q1_" & j)

ca va mieux comme ca

Range("Q" & i & "_" & j)

D'ou le pourquoi les actions se réalisais uniquement sur l'item 1

Bon ben ..... désolé de vous avoir dérangé , merci beaucoup pour votre aide.

Bonjour,

tu as oublié de qualifier tes cellules dans la deuxième partie de l'alternative. Les données seront écrites dans la feuille active et non dans worksheets(1) si worksheets(1) n'est pas la feuille active.

merci effectivement , dur dur le codage propre ca passais comme ca mais pour limiter les erreurs je vais tous qualifier jusqu'au workbooks .

Merci encore