Bonjour Fab et le Forum
Rapidos pendant 5 minutes de break...
Ben oui il vaut mieux que la barre de progression puissent suivre quelque soit le type de boucles... et quelque soit le nombre d'items.
Dans le fichier joint d'hier, j'ai expressément éviter de compliquer les choses pour que tu puisses assimiler. (Dans cette démo "Fifilles" est un objet range d'une plage nommée, que tu peux changer)
Mais maintenant si tu es ready.... Récupère à nouveau la démo ci-dessus.
Va sur la "Sheet2" dans la liste des noms des filles d'XLD. Là tu ajoutes où tu supprimes ce que tu veux, de manière à avoir autrechose que 100 prénoms.
Ensuite tu remplaces pûrement et simplement la macro "ProGraisseBarh" (lol) par celle ci qui définie donc les "Fifilles" en plage variable cette fois-ci)
Option Explicit
Sub ProGraisseBarh()
Dim Fille As Range, Fifilles As Range
Dim i As Integer, x As Integer, y As Integer, z As Integer, Toto As Integer
Dim PerCent As Single
Set Fifilles = Sheets("Sheet2").Range("A2:" & _
Sheets("Sheet2").Range("A65536").End(xlUp).Address)
i = 0
x = Fifilles.Count
y = x + x
z = x + x + x
For Each Fille In Fifilles
i = i + 1
x = x + 1
y = y + 1
z = z + 1
With Sheets(1)
.Range("A" & i) = Fille + " & " + Fille.Offset(1, 0)
.Range("A" & x) = Fille + " & " + Fille.Offset(2, 0)
.Range("A" & y) = Fille + " & " + Fille.Offset(3, 0)
.Range("A" & z) = Fille + " & " + Fille.Offset(4, 0)
End With
For Toto = 1 To z
Sheets(2).Range("b" & i) = Fille
Next Toto
PerCent = i / (Fifilles.Count)
Call ProGraiss(PerCent)
Next Fille
Unload UserForm1
End Sub
Fait tourner......... Et tu verras un tas de couples de Fifilles se former pendant que ta barre de progression ira bien de 0% à 100%.
Bon allez zou après la réacration, retour au turbin !
Bon App
@+Thierry