Gros soucis avec les boucles!Résolu

Question

Bonjour, 
j'ai une macro qui fonctionne bien avec uniquement "Do While....Loop".
Entre ce "Do" et ce "Loop" il faudrait que je mette des boucles "If" (ou autres) pour écrire dans différentes "Feuil" en fonction de la valeur d'une cellule "B13" appartenant à un "DossierFactures".
Mais dès que je met une deuxième boucle "If" j'ai un message d'erreur "boucle sans DO". Et là je suis perdu!!
(je joins la macro, ce sera peut-être plus clair).
SVP aidez-moi! Merci.

Sub Test1()
ChDir "M:\MARC\Facture-Gab\Fact-Synth\"
DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")
'Début boucle trim1
  Dim j As Integer
  j = 12
  
Do While Len(DossierFactures) > 0

'ouverture dossier facture
    Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures
 If Range("B13") < 4 = True Then
'traitement data
 Dim plage As Range, desti As Range, i As Integer
 Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B" & j)
 Set plage = Range("G6, H33,I34, J35")
 For i = 1 To plage.Areas.Count
 desti.Offset(0, i - 1).Value = plage.Areas(i).Value
 Next
 Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("A" & j) = DossierFactures

'fermeture classeur xlsx
 Workbooks(DossierFactures).Saved = True
 Workbooks(DossierFactures).Close

DossierFactures = Dir
 j = j + 1
Else:

'boucle trim2
  If Range("B13") < 7 = True Then
'traitement data
  Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("B" & j)
  Set plage = Range("G6, H33,I34, J35")
  For i = 1 To plage.Areas.Count
  desti.Offset(0, i - 1).Value = plage.Areas(i).Value
  Next
  Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("A" & j) = DossierFactures

'fermeture classeur xlsx
  Workbooks(DossierFactures).Saved = True
  Workbooks(DossierFactures).Close

DossierFactures = Dir
  j = j + 1
  Else: End If
Loop
    Columns("A:A").Replace ".xlsx", ""

End Sub

NHenry · Answer

Message remis en forme avec les balises de codes.

ucfoutu · Answer

Une simple indentation (ce n'est pas du luxe) du code ===>> Sub Test1() ChDir "M:\MARC\Facture-Gab\Fact-Synth\" DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx") 'Début boucle trim1 Dim j As Integer j = 12 Do While Len(DossierFactures) > 0 'ouverture dossier facture Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures If Range("B13") < 4 = True Then 'traitement data Dim plage As Range, desti As Range, i As Integer Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B" & j) Set plage = Range("G6, H33,I34, J35") For i = 1 To plage.Areas.Count desti.Offset(0, i - 1).Value = plage.Areas(i).Value Next Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("A" & j) = DossierFactures 'fermeture classeur xlsx Workbooks(DossierFactures).Saved = True Workbooks(DossierFactures).Close DossierFactures = Dir j = j + 1 Else: 'boucle trim2 If Range("B13") < 7 = True Then 'traitement data Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("B" & j) Set plage = Range("G6, H33,I34, J35") For i = 1 To plage.Areas.Count desti.Offset(0, i - 1).Value = plage.Areas(i).Value Next Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("A" & j) = DossierFactures 'fermeture classeur xlsx Workbooks(DossierFactures).Saved = True Workbooks(DossierFactures).Close DossierFactures = Dir j = j + 1 Else: End If Loop Columns("A:A").Replace ".xlsx", ""End Sub Met DEJA en évidence une condition If sans End If ! Je n'ai pas regardé le reste et ne le regarderai pas tant que cette faute grossière n'aura pas été corrigée.

layla olga · Answer

que veux tu|????

layla olga · Answer

je croi pas qu'il soit besoin de mon aide!!!!

Philippe-thuin · Answer

Bonjour,
merci d'essayer de m'aider!
J'ai beau essayer, j'ai toujours "boucle sans DO" et je comprend pas!

Sub Test1()
ChDir "M:\MARC\Facture-Gab\Fact-Synth\"
DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")
  Dim j As Integer
  j = 12
  'Début boucle principale
Do While Len(DossierFactures) > 0

  'ouverture dossier facture
   Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures
   
  'boucle trim1
     If Range("B13") < 4 = True Then
  'traitement data
        Dim plage As Range, desti As Range, i As Integer
        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B" & j)
        Set plage = Range("G6, H33,I34, J35")
          For i = 1 To plage.Areas.Count
              desti.Offset(0, i - 1).Value = plage.Areas(i).Value
          Next
    Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("A" & j) = DossierFactures

  'fermeture classeur xlsx
        Workbooks(DossierFactures).Saved = True
        Workbooks(DossierFactures).Close

        DossierFactures = Dir
        j = j + 1
     Else:

  'boucle trim2
     If Range("B13") < 7 = True Then
  'traitement data
        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("B" & j)
        Set plage = Range("G6, H33,I34, J35")
          For i = 1 To plage.Areas.Count
              desti.Offset(0, i - 1).Value = plage.Areas(i).Value
          Next
    Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("A" & j) = DossierFactures

  'fermeture classeur xlsx
        Workbooks(DossierFactures).Saved = True
        Workbooks(DossierFactures).Close

        DossierFactures = Dir
        j = j + 1
     Else:
Loop
    Columns("A:A").Replace ".xlsx", ""

End Sub

ucfoutu · Answer

Ton code est à nouveau non indenté ( et l'indentation t'aiderait beaucoup) et non présenté entre balises code ! Ce n'est pas sérieux. Quant à : "je ne comprends pas" : tu ne comprends pas quoi ? L'utilisation d'une chose aussi simple que la syntaxe d'une expression conditionnelle ? (If... then...Else... End If) ?? PS : par ailleurs (rmais moins important) ; Quelle serait selon toi la différence entre si "toto < 10 alors .." et "si toto < 10 est vrai, alors ..." ? Cela non plus, ti ne le "comprends pas" ? ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Philippe-thuin · Answer

Sub Test1()ChDir "M:\MARC\Facture-Gab\Fact-Synth\"DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")  Dim j As Integer, k As Integer  j = 12  'Début boucle principaleDo While Len(DossierFactures) > 0  'ouverture dossier facture   Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures    k = Range("B13").Value   'boucle trim1     If k <= 3 = True Then  'traitement data        Dim plage As Range, desti As Range, i As Integer        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B" & j)        Set plage = Range("G6, H33,I34, J35")          For i = 1 To plage.Areas.Count              desti.Offset(0, i - 1).Value = plage.Areas(i).Value          Next    Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("A" & j) = DossierFactures    'fermeture classeur xlsx        Workbooks(DossierFactures).Saved = True        Workbooks(DossierFactures).Close        DossierFactures = Dir        j = j + 1     ElseIf k > 3 = True Then  'boucle trim2  'traitement data        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("B" & j)        Set plage = Range("G6, H33,I34, J35")          For i = 1 To plage.Areas.Count              desti.Offset(0, i - 1).Value = plage.Areas(i).Value          Next    Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("A" & j) = DossierFactures  'fermeture classeur xlsx        Workbooks(DossierFactures).Saved = True        Workbooks(DossierFactures).Close        DossierFactures = Dir        j = j + 1    Columns("A:A").Replace ".xlsx", ""LoopEnd Sub

Pour moi, c'est pareil avec "vrai" ou sans.
Quand à If...Then...Else...End If je comprends la structure, ce que je ne comprend pas c'est "Boucle sans Do"!

ucfoutu · Answer

Le message que tu reçois es dû au fait que ton code arrive à un loop alors que des expressions conditionnelles sont encore "ouvertes", pardi !
J'insiste : il te faut apprendre la base elle-même (les expressions conditionnelles). C'est indispensable et c'est le B.A.BA de tout langage de développement.
Et puisque tu dis : "Quand à If...Then...Else...End If je comprends la structure" ==>> montre-le donc ===>> corrige au moins cette partie !...

ucfoutu · Answer

Tiens ===>> je vais te le prouver ===>> Lance donc ce code
 toto = 12  titi = 1  Do While toto > -1    If titi = 1 Then      tata = 2    Else      If titi = 2 Then        tata = 3    toto = toto - tata    MsgBox toto  Loop
Tu le vois, ton fameux message d'erreur ? Oui, n'est-ce-pas ? Il est dû dans ce tout petit exemple à une mauvaise syntaxe (incomplète) des expressions conditionnelles qui y figurent.
Efforce-toi de "corriger" ce petit exemple ===>> cela t'ouvrira les yeux.

Enfin, quoi ! On arrive à un Loop alors que l'on est pas dans le Do, mais dans un If ! Ce loop est donc sans Do !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Philippe-thuin · Answer

Bon j'y comprend rien!
Quand je lance ça, ça fonctionne correctement (bien sur, dès que k=4 ça plante mais c'est normal) quand j'esaye un deuxième if, ça marche plus...et je trouve pas..

Sub Test1()ChDir "M:\MARC\Facture-Gab\Fact-Synth\"DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")  Dim j As Integer, k As Integer  j = 12  'Début boucle principaleDo While Len(DossierFactures) > 0  'ouverture dossier facture   Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures    k = Range("B13").Value   'boucle trim1     If k <= 3 Then  'traitement data        Dim plage As Range, desti As Range, i As Integer        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B" & j)        Set plage = Range("G6, H33,I34, J35")          For i = 1 To plage.Areas.Count              desti.Offset(0, i - 1).Value = plage.Areas(i).Value          Next    Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("A" & j) = DossierFactures    'fermeture classeur xlsx        Workbooks(DossierFactures).Saved = True        Workbooks(DossierFactures).Close        DossierFactures = Dir        j = j + 1       Else: End If    Columns("A:A").Replace ".xlsx", ""LoopEnd Sub

Et pour ton petit code, j'ai beau chercher dans l'aide et faire des modifs, j'y arrive pas non plus. Trop vieux pour comprendre peut-être!

ucfoutu · Answer

" Trop vieux pour comprendre peut-être"
Je ne vois vraiment pas ce que l'âge pourrait avoir à faire là-dedans !!!.
Il est vrai que je suis encore particulièrement jeune, hein ... Je rajeunis même tous les jours ...
Voilà la correction du test :
toto = 12  titi = 1  Do While toto > -1    If titi = 1 Then      tata = 2    Else      If titi = 2 Then        tata = 3       End If    End If    toto = toto - tata    MsgBox toto  Loop
que l'on pourrait également écrire ainsi :
toto = 12  titi = 1  Do While toto > -1    If titi = 1 Then      tata = 2    ElseIf titi = 2 Then        tata = 3    End If    toto = toto - tata    MsgBox toto  Loop
Lis, analyse, comprends et applique à ton "cas".
Si tu n'en es pas capable à ce "niveau", que sera-ce du reste ?

Philippe-thuin · Answer

Il y a des fois où je me sens très bête!!!!
En tous cas merci infiniment....

ucfoutu · Answer

Bon...
Maintenant applique à ton cas et montre...
Je reviendrai, après avoir constaté, avec du nettement mieux...

Philippe-thuin · Answer

bon voila, pour l'instant ça marche plutot bien. Mais je vais devoir rajouter 2 boucles et là je verrai...!

Sub Test1()ChDir "M:\MARC\Facture-Gab\Fact-Synth\"DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")  Dim j As Integer, k As Integer, l As Integer  j = 12  l = 12      'Début boucle principaleDo While Len(DossierFactures) > 0  'ouverture dossier facture   Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures    k = Range("B13").Value   'boucle trim1     If k <= 3 Then  'traitement data        Dim plage As Range, desti As Range, i As Integer        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B" & j)        Set plage = Range("G6, H33,I34, J35")          For i = 1 To plage.Areas.Count              desti.Offset(0, i - 1).Value = plage.Areas(i).Value          Next    Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("A" & j) = DossierFactures    'fermeture classeur xlsx        Workbooks(DossierFactures).Saved = True        Workbooks(DossierFactures).Close        DossierFactures = Dir        j = j + 1             ElseIf k > 3 Then  'boucle trim2  'traitement data        Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("B" & l)        Set plage = Range("G6, H33,I34, J35")          For i = 1 To plage.Areas.Count              desti.Offset(0, i - 1).Value = plage.Areas(i).Value          Next    Workbooks("Synth-Test.xlsm").Worksheets("Feuil2").Range("A" & l) = DossierFactures    'fermeture classeur xlsx        Workbooks(DossierFactures).Saved = True        Workbooks(DossierFactures).Close        DossierFactures = Dir        l = l + 1                End If     LoopEnd Sub

ucfoutu · Answer

Bon... (gastro et je dois me reposer...)
Je n'ai pas ton classeur et n'ai que des "indices" et peux donc me tromper.
Regarde quand-même ce que ferait ceci :
Sub Test1()  Dim plage As Range, desti As Range, i As Integer, dossier As String, classeurs As String  Dim cldesti As Workbook, plage As Range, desti As Range, lafeuille As String, derlig As Long  dossier = "M:\MARC\Facture-Gab\Fact-Synth\"  classeurs = Dir(dossier & "*.xlsx")  Set cldesti = Workbooks("Synth-Test.xlsm")  Do While Len(classeurs) > 0    Workbooks.Open classeurs    lafeuille = "Feuil" & Int((Range("B13").Value + 2) / 3)    derlig = Worksheets(lafeuille).Range("B12:B" & Rows.Count).SpecialCells(xlCellTypeBlanks).Row    Set desti = cldesti.Worksheets(lafeuille).Range("B" & derlig)    Set plage = Range("G6, H33,I34, J35")    For i = 1 To plage.Areas.Count      desti.Offset(0, i - 1).Value = plage.Areas(i).Value    Next    cldesti.Worksheets(lafeuille).Range("A" & derlig) = classeurs    Workbooks(classeurs).Saved = True    Workbooks(classeurs).Close    classeurs = Dir  LoopEnd Sub

Il se peut que j'au une ou deux erreurs (peux pas tester). Si oui: dis lesquelles.
Tu constateras : aucune expression conditionnelle (marchera si mon petit doigt a été suffisamment "malin" et que tu traites 4 trimestres en fonction de 12 N°s de mois).
Buenas noches.
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Philippe-thuin · Answer

Bonjour, désolé pour la gastro!
J'ai testé ta macro et pour l'instant j'ai eu:
[Workbooks.Open Classeurs] = fichier a.xlsx n'existe pas, remplacé par:
[Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & classeurs] = ça marche.
et ensuite, une fois arrivé à:
[derlig = Worksheets(lafeuille).Range("B12:B" & Rows.Count).SpecialCells(xlCellTypeBlanks).Row] = Erreur d'éxécution '9':, l'indice n'appartient pas à la sélection.
Et là, je bloque.

ucfoutu · Answer

Bien vu pour la 1ère erreur, que tu peux également corriger par :
Workbooks.Open dossier & classeurs
 La seconde est plus gênante car elle laisse supposer une feuille d'un nom inexistant, probablement Feuil0.
Est-le cas ? Car si tel était le cas, cela voudrait dire que tu as en B13 une valeur autre que de 1 à 12 ou rien du tout !

Mais j'y pense : pourrait également être Feuil4 alors que, par défaut, tu n'as que Feuil1, Feuil2 et Feuil3
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Philippe-thuin · Answer

ben, je n'ai pas de "Feuil0". Dans le classeur "Fact-Synth" il y a "Feuil1", "Feuil2", "Feuil3", "Feuil4" et une dernière, "Recap-An" qui servira plus tard.
En tous cas merci de ton intérêt!!

ucfoutu · Answer

Ce que je veux savoir n'est pas si tu as une Feuil0 dans ton classeur, mais si la variable lafeuille contient "Feuil0" au moment du plantage !

ucfoutu · Answer

Tiens ! on va le savoir facilement :
intercale ces deux lignes sous la ligne Workbooks.Open ...
toto = Int((Range("B13").Value + 2) / 3)If toto = 0 Or toto > 4 Then MsgBox "B13 avec donnée incompatible dans classeur " & classeurs
 
Lance à nouveau ===>> si quelque-chose s'affiche, recopie-le avec soin et rapporte
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Gros soucis avec les boucles!

28 réponses

Votre réponse