Gestion Boucles For Imbriquées

[Taroohn]

Bonjour à tous,

Je rencontre une difficulté toute bête avec une double boucle For/Next imbriquée:

Voici le code:

Sub mon_sub
Dim i as Integer
Dim j as Integer
Dim k as Integer
Dim m as Integer
Dim textual_infos(24)

For k = 1 To 24
        For m = 7 To 30

         If Cells(1, m).Value = "" Then
            Cells(1, m).Value = textual_infos(k)         
         
         Else If Cells(1, m).Value = textual_infos(k) Then
            
         Else 
            Cells(1, m).Interior.Color = 255
         End If
         
         Next m
Next k

Le soucis est qu'avec ces boucles imbriquées, lorsque le code arrive à "Next m", il remonte à la ligne "For m", du coup, la valeur de k ne change pas.

Comment faire pour que la valeur de K et de M augmentent de 1 à chaque "tour de boucle" ?

Merci d'avance.
Taroohn

 

[Eric 45]

Re : Gestion Boucles For Imbriquées

Bonjour à tous

Essaye ceci :

m=7	'valeur de m au départ de la boucle k=1

For k = 1 To 24
        'For m = 7 To 30    'à supprimer

         If Cells(1, m).Value = "" Then
            'Do something         
         Else If Cells(1, m).Value = une_certaine_valeur Then
            'Do other thing
         Else 
            'Do nothing
         End If
         
m=m+1
         'Next m   'à supprimer
Next k

Si j'ai bien compris, je n'ai pas testé

Eric

 

[Paritec]

Re : Gestion Boucles For Imbriquées

bonjour taroohn le forum
bon alors là il faudrait savoir ce que tu veux faire ta valeur K est de 1 à 24 et M de 7 à 30
si tu veux que K=1 et M = 5 (exemple) ou 10 mais si tu veux lier les deux lorsque K =2 M =6 c'est ce que tu veux?????
dans l'attente de ta réponse
a+
papou🙂

 

[Taroohn]

Re : Gestion Boucles For Imbriquées

merci Eric45, je test cela.

Paritec,

je voudrais qu'au premier tour de boucle : k =1 et m=7
puis au second, k=2 et m= 8
puis au troisième, k=3 et m = 9
(...)
puis au 24ème : k=24 et m=30

 

[Paritec]

Re : Gestion Boucles For Imbriquées

Re bonjour a tous,
oui donc la proposition d'Eric et bonne c'est sur
a+
papou🙂

 

[Taroohn]

Re : Gestion Boucles For Imbriquées

Effectivement, ca marche !
Merci à vous deux pour votre réponse si rapide.

Taroohn