Microsoft 365 Optimisation/modification de macro déjà existantes

[AppleDance]

Bonjour,

J'aurais besoin d'aide pour optimiser deux macros que j'ai :
Ce sont des macros à l'intérieur d'UserForm.

La première macro sur lequel j'ai un problème sont dans les ListBox 2, 3, etc.
En effet, lorsque je choisi dans le ListBox 1: si plusieurs informations sont identiques dans le ListBox 1, dans la ListBox2 et 3 s'affichent toutes les informations des 2 lignes, hors j'ai crée plusieurs ListBox pour n'en avoir qu'une par ligne.

Spoiler: macro ListBox

Private Sub ListBox1_Click()

LastRow = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
no_ligne = Range("A1000").End(xlUp).Row + 1

'clear listbox1
Me.ListBox2.Clear
Me.ListBox3.Clear
Me.ListBox4.Clear
OptionButton3.Value = False
OptionButton4.Value = False

curVal = Me.ListBox1

For x = 2 To LastRow
If Feuil1.Cells(x, "a") = curVal Then
'populate listbox2, 3 , etc

Me.ListBox2.AddItem Feuil1.Cells(x, "b")
Me.ListBox3.AddItem Feuil1.Cells(x, "c")
Me.ListBox4.AddItem Feuil1.Cells(x, "d")
End If
Next x

End Sub

la seconde macro marche comme je le voudrais ... mais prend trop de temps.
Ce que je souhaiterais c'est l'optimiser, diviser le temps de réflexion d'excel.

Spoiler: macro qui prend trop de mémoire

Private Sub CommandButton4_Click()

Dim I As Long
On Error Resume Next
With ListBox1
For I = .ListCount - 1 To 0 Step -1
If OptionButton3.Value = True Then
If .Selected(I) Then

With Sheets("Feuil1")
.Rows(I + 2).Interior.Color = 16777164
End With
End If
End If
Next I
End With

End Sub

Merci de votre compréhension.

Edit: Comment limiter "interior.color" jusqu'à la colonne D ?

 

[Robert]

Bonjour AppleDance, bonjour le forum,

Pour moi tu as un problème de conception. Pourquoi 3 listboxes ? Si une donnée est répétée plus de 3 fois que feras tu ?...
Voilà comment je verrais les choses : en pièce jointe ton fichier modifié et commenté.

 

[Bebere]

bonjour
si tu ne veux qu'une ligne mettre des textbox

 

[AppleDance]

Merci à vous.
Vos macros m'auront permis de mieux comprendre comment agencer tout ça et avancer sans pour autant faire un copier/coller de vos macros.

Encore merci pour tout.