NEXT non lu

gimli · 22 Juin 2010

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 · 22 Juin 2010

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 · 22 Juin 2010

Re : NEXT non lu

Bonjour Gimli,

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

gimli · 22 Juin 2010

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 · 22 Juin 2010

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 · 22 Juin 2010

Re : NEXT non lu

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

GeoTrouvePas · 22 Juin 2010

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 · 22 Juin 2010

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é · 22 Juin 2010

Re : NEXT non lu

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

Code:

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 · 22 Juin 2010

Re : NEXT non lu

Re ,
(Bonjour Efgé),

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

mercant76 · 22 Juin 2010

Re : NEXT non lu

erreur, désolé

gimli · 22 Juin 2010

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

NEXT non lu

gimli

XLDnaute Occasionnel

GeoTrouvePas

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

gimli

XLDnaute Occasionnel

Pièces jointes

camarchepas

XLDnaute Barbatruc

GeoTrouvePas

XLDnaute Impliqué

GeoTrouvePas

XLDnaute Impliqué

gimli

XLDnaute Occasionnel

Efgé

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Pièces jointes

mercant76

XLDnaute Impliqué

gimli

XLDnaute Occasionnel

Discussions similaires

NEXT non lu

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency