NEXT non lu

[gimli]

Bonjour,

j'ai un soucis que je n'avais encore jamais rencontré, j'ai deux FOR imbriqués et un des NEXT n'est pas lu. Ce qui fausse le résultat.

voici tout le code de mon bouton:

Private Sub CommandButton1_Click()
Dim NbSitesIC, NbLignesIncMaj As Integer


NbSitesIC = 0
NbLignesIncMaj = Sheets("Incidents majeurs (ext)").Cells(65536, 3).End(xlUp).Row

'on va rajouter les incidents collectifs à la page "Incidents majeurs" à la suite de ceux déja présents.
For num1 = 2 To 9
For num2 = NbLignesIncMaj + 1 To 50

Chaine = Sheets("Inc.Collectifs").Range("E" & num2).Value

For i = 1 To Len(Chaine)

If Mid(Chaine, i, 1) = ";" Then

NbSitesIC = NbSitesIC + 1 'le +1 est pour l'incrémentation

End If

Next i

Sheets("Incidents majeurs (ext)").Range("A" & num1).Value = Sheets("Inc.Collectifs").Range("C" & num2).Value
Sheets("Incidents majeurs (ext)").Range("B" & num1).Value = Sheets("Inc.Collectifs").Range("D" & num2).Value
Sheets("Incidents majeurs (ext)").Range("C" & num1).Value = Sheets("Inc.collectifs").Range("E" & num2).Value
Sheets("Incidents majeurs (ext)").Range("D" & num1).Value = Sheets("Inc.Collectifs").Range("F" & num2).Value
Sheets("Incidents majeurs (ext)").Range("E" & num1).Value = Sheets("Inc.Collectifs").Range("G" & num2).Value
Sheets("Incidents majeurs (ext)").Range("F" & num1).Value = Sheets("Inc.Collectifs").Range("H" & num2).Value
Sheets("Incidents majeurs (ext)").Range("G" & num1).Value = Sheets("Inc.Collectifs").Range("I" & num2).Value
Sheets("Incidents majeurs (ext)").Range("H" & num1).Value = Sheets("Inc.Collectifs").Range("K" & num2).Value
Sheets("Incidents majeurs (ext)").Range("J" & num1).Value = Sheets("Inc.Collectifs").Range("M" & num2).Value
Sheets("Incidents majeurs (ext)").Range("L" & num1).Value = NbSitesIC + 1
DureeTotaleHeure = Sheets("Incidents majeurs (ext)").Range("H" & num1).Value * Sheets("Incidents majeurs (ext)").Range("L" & num1).Value
Sheets("Incidents majeurs (ext)").Range("M" & num1).Value = DureeTotaleHeure
Sheets("Incidents majeurs (ext)").Range("N" & num1).Value = DureeTotaleHeure
NbSitesIC = 0

Next num2

Next num1

End Sub

En effet, après test au pas à pas (avec F8) je vois bien que le Next num2 n'est pas lu. Sauriez-vous pourquoi ?

Merci d'avance

Bonne journée à tous 🙂

Gimli

 

[GeoTrouvePas]

Re : NEXT non lu

J'adore ce genre de soucis ^^ mais tu aurais pas un petit fichier exemple histoire de pouvoir étudier plus facilement le fonctionnement de ces boucles ?

Merci

 

[tototiti2008]

Re : NEXT non lu

Bonjour Gimli,

peut-être simplement en déclarant num1 et num2 en Integer ou Long

 

[gimli]

Re : NEXT non lu

Bonjour GeoTrouvePas, tototiti2008, le forum,

j'ai essayé en déclarant num1 et num2, ça ne change rien 🙁
voici un petit fichier exemple 😉

merci à vous 🙂

 

[camarchepas]

Re : NEXT non lu

Bonjour,

For num2 = NbLignesIncMaj + 1 To 50

a mon humble avis Nblignesincmaj +1 est supérieur à 50 et donc il passe de suite derrière le next associé:

Sur ton fichier exemple la boucle fonctionne bien, c'est peut être ce qu'il y a dans la boucle qui cloche

 

[GeoTrouvePas]

Re : NEXT non lu

Merci pour le fichier.
Je m'y pencherai dessus d'ici ce soir

 

[GeoTrouvePas]

Re : NEXT non lu

Apparement non çamarchepas. J'ai cru que c'était le cas comme toi et j'ai mis un msgbox juste après le "For num2 = NbLignesIncMaj + 1 To 50". Il s'est bien affiché quelques centaines de fois, j'en ai usé ma touche Entrée 😀

 

[gimli]

Re : NEXT non lu

Re,
je me suis trompé dans mon code, il faut inverser les boucles num1 et num2 .
Je cherche en fait a copier les lignes de "Inc.Collectifs" à la suite de celles de la page "Incidents majeurs (ext)".

 

[Efgé]

Re : NEXT non lu

Bonjour à tous,
Pas certain du résultat attendu .Donc a tester.

Private Sub CommandButton1_Click()
Dim NbSitesIC, NbLignesIncMaj, num1, num2 As Integer
NbSitesIC = 0
With Sheets("Incidents majeurs (ext)")
NbLignesIncMaj = .Cells(65536, 3).End(xlUp).Row
For num1 = 2 To 9
    num2 = .Cells(65536, 3).End(xlUp).Row
    Chaine = Sheets("Inc.Collectifs").Range("E" & num2).Value
        For i = 1 To Len(Chaine)
            If Mid(Chaine, i, 1) = ";" Then NbSitesIC = NbSitesIC + 1
        Next i
    .Range("A" & num1).Value = Sheets("Inc.Collectifs").Range("C" & num2).Value
    .Range("B" & num1).Value = Sheets("Inc.Collectifs").Range("D" & num2).Value
    .Range("C" & num1).Value = Sheets("Inc.collectifs").Range("E" & num2).Value
    .Range("D" & num1).Value = Sheets("Inc.Collectifs").Range("F" & num2).Value
    .Range("E" & num1).Value = Sheets("Inc.Collectifs").Range("G" & num2).Value
    .Range("F" & num1).Value = Sheets("Inc.Collectifs").Range("H" & num2).Value
    .Range("G" & num1).Value = Sheets("Inc.Collectifs").Range("I" & num2).Value
    .Range("H" & num1).Value = Sheets("Inc.Collectifs").Range("K" & num2).Value
    .Range("J" & num1).Value = Sheets("Inc.Collectifs").Range("M" & num2).Value
    .Range("L" & num1).Value = NbSitesIC + 1
    DureeTotaleHeure = .Range("H" & num1).Value * .Range("L" & num1).Value
    .Range("M" & num1).Value = DureeTotaleHeure
    .Range("N" & num1).Value = DureeTotaleHeure
    NbSitesIC = 0
Next num1
End With
End Sub

Cordialement

 

[camarchepas]

Re : NEXT non lu

Re ,
(Bonjour Efgé),

Un peu dans le même style et aussi dans le flou :

 

[mercant76]

Re : NEXT non lu

erreur, désolé

 

[gimli]

Re : NEXT non lu

Bonjour a tous,

effectivement efgé, ta macro ne répond pas à mes attentes, mais je te remercie de m'aider.
Camarchepas, ta macro est parfaite, c'est exactement le résultat que j'attendais, merci beaucoup !
Merci à tous de m'avoir aidé 🙂

Bonne journée à vous

Gimli