DebVBA
Nouveau membre
Bonjour,
J'ai isolé le bug de la macro et le problème semble venir du fait que je combine 2 boucle do-while et surtout deux findnext :/
Voici un apercu de mon code :
Merci de votre aide!
J'ai isolé le bug de la macro et le problème semble venir du fait que je combine 2 boucle do-while et surtout deux findnext :/
Voici un apercu de mon code :
Code:
Dim i, j As Integer
Dim DesignProjet, DesignProjetGroupe, NomIng, Nom, Nom2, OccupT, OccupB As Range
Set total = Sheets("TabReference")
Set brouillon = Sheets("Brouillon")
Set Listes = Sheets("Listes")
For i = 5 To 30
Set DesignProjetGroupe = total.Range("A" & i + 1)
If Not DesignProjetGroupe.Value = 0 Then
' on cherche un nom de projet dans une première liste
Set Nom = Listes.Range("L8:L50").Find(DesignProjetGroupe.Value, LookIn:=xlValues, Lookat:=xlPart)
'mais il peut y avoir plusieurs fois ce projet dans la liste donc j'utilise un findnext avec boucle
If Not Nom Is Nothing Then
firstAddress = Nom.Address
Do
'on a trouvé un nom de projet dans la liste,
' on selectionne la cellule associée (dans la colonne d'avant)
Set DesignProjet = Nom.Offset(0, -1)
'puis on cherche le contenu de cette cellule dans une autre liste d'une autre feuille
' De même, il peut y avoir plusieurs résultat donc 2eme boucle avec findnext
Set Nom2 = brouillon.Range("A6:A300").Find(DesignProjet.Value, LookIn:=xlValues, Lookat:=xlPart)
If Not Nom2 Is Nothing Then
firstAddress2 = Nom2.Address
Do
'**DIVERS ACTIONS**
Set Nom2 = brouillon.Range("A6:A300").FindNext(Nom2)
Loop While Not Nom2 Is Nothing And Nom2.Address <> firstAddress2
End If
Set Nom = Listes.Range("L8:L50").FindNext(Nom)
Loop While Not Nom Is Nothing And Nom.Address <> firstAddress
End If
End If
Next
End Sub
Merci de votre aide!