Problèmes de boucle For nextRésolu

Question

Bonjour,

Je suis sur excel 2003, et j'ai un probl&#232;me sur mes boucle for ...next. Ma macro doit mettre &#224; jour &#224; partir d'une liste mes feuilles si le num&#233;ro dans la liste ne correspond pas elle cr&#233;e une nouvelle feuille et fait les mises &#224; jour. 
Le probl&#232;me est qu'elle trouve la feuille, la met &#224; jour  et en cr&#233;&#233; une nouvelle.
 
Mes feuilles de calcul sont tri&#233;s en fonction de leurs position dans la liste.

Private Sub CommandButton3_Click()


Dim name As String
Dim Found As Integer



    For i = Find_LC("Titres") + 1 To TotalChantier() + 6
        Worksheets("Liste des Chantiers").Activate
        name = Worksheets("Liste des Chantiers").Range(Find_LC("ColNumero") & i)
        
        Found = 0
        For j = 5 To Sheets.Count
            If Worksheets(j).name = name Then
                Found = 1
                sheetname = ActiveSheet.name
                Mise2
                Worksheets(sheetname).Activate
                    If Found = 1 Then
                        Exit For
                    End If
            Else
                If Found = 0 Then
                'MsgBox ("test")
                new_sheet
                Mise3
                Found = 1
                    If Found = 1 Then
                         Exit For
                    End If
                End If
            End If
         Next j
     Next i
     
 End Sub

Merci d'avance
[?] Estelle[8D]

cs_CanisLupus · Accepted Answer

Salut,

Essaie &#231;a :


Dim name As String
Dim Found As Integer

    For i = Find_LC("Titres") + 1 To TotalChantier() + 6
        Worksheets("Liste des Chantiers").Activate
        name = Worksheets("Liste des Chantiers").Range(Find_LC("ColNumero") & i)

        Found = 0
        For j = 5 To Sheets.Count
            If Worksheets(j).name = name Then
                Found = 1
                sheetname = ActiveSheet.name
                Mise2
                Worksheets(sheetname).Activate
            End If
         Next j

         If Found = 0 Then
           'MsgBox ("test")
           new_sheet
           Mise3
        End If
   Next i

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

J'ai oubli&#233; un exit for apr&#232;s Worksheets(sheetname).Activate, en effet, une fois trouv&#233;, ce n'est plus la peine de continuer la boucle.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

fitzjames · Answer

Bonjour,

Merci pour la mise &#224; jour de mes Feuilles la macro marche inpec il ne me cr&#233;&#233; plus de nouvelle feuille mais si je cr&#233;&#233; une ligne dans ma liste il ne me cr&#233;er pas de nouvelle feuille. il ne passe pas dans la boucle : 

If Found = 0 Then
           'MsgBox ("test")
           new_sheet
           Mise3
        End If

merci d'avance
[?] Estelle[8D]

cs_CanisLupus · Answer

Si &#231;a ne passe pas dans cette boucle, c'est que les feuilles existent d&#233;j&#224; ou qu'il y a un probl&#232;me au niveau de :

    For i = Find_LC("Titres") + 1 To TotalChantier() + 6
        Worksheets("Liste des Chantiers").Activate
        name = Worksheets("Liste des Chantiers").Range(Find_LC("ColNumero") & i)

comme je ne sais pas ce que renvoient Find_LC("Titres"), TotalChantier() et Find_LC("ColNumero"), je ne peux pas te dire.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

fitzjames · Answer

Bonjour,

c pas moi qui est fait c macros je les ai r&#233;cuper&#233;es dans un autre fichier :
*******************************************************************
Function Find_LC(name As String)
' Permet de r&#233;cup&#233;rer la colonne d'un titre de colonne pass&#233; en param&#232;tre (d&#233;clar&#233; dans la feuille de param&#232;tres).
' Exemple : Find_LC("Domaine") renvoie B  => la colonne B s'intitule "Domaine"
' Permet de r&#233;cup&#233;rer la ligne des titres dans l'onglet "Liste des chantiers"
' Exemple : Find_LC("Titres") renvoie 6   => la ligne 6 contient les titres des colonnes


    Dim chemin As String
    Dim cellule As String
    Dim feuille As String


    'Recupere la valeur d'un nom pr&#233;d&#233;fini
    chemin = Mid(ActiveWorkbook.Names(name).Value, 2)
    feuille = Left(chemin, InStr(chemin, "!") - 1)
    cellule = Mid(chemin, InStr(chemin, "!") + 1)
    Find_LC = Worksheets(feuille).Range(cellule).Value
End Function
********************************************************************
Function TotalChantier()
' Permet de connaitre le nombre total de chantiers


    Dim j As Integer
    
    j = 0
    For i = 1 To Sheets.Count
        If Worksheets(i).Cells(3, 2).Value = "Architecte :" And Worksheets(i).name <> "Mod&#232;le" Then
            j = j + 1
        End If
    Next i
    TotalChantier = j
    
End Function
*********************************************************************
Ceux sont des param&#232;tres qui se trouve dans une feuille de calcul
"Titres" = 7 
"ColNumero"= E qui Correspond &#224; la position de colonne dans la liste 

J'esp&#232;re que c plus explicite
Merci encore
[?] Estelle[8D]

Problèmes de boucle For next

5 réponses

Discussions similaires