Chargement de plus en plus lent d'un userform

re,

Dans mon code de la Sub LDProtegesActifs():

remplace :

Sheets("Actifs").Range("E" & dlg + 1) = .Range("A" & cel.Row) & " " & .Range("D" & cel.Row)

Par

Sheets("Actifs").Range("E" & dlg + 1) = .Range("C" & cel.Row) & " " & .Range("D" & cel.Row)

Pour le bouton Annuler de l'USF, vois mas réponse de mercredi 21/10 à 9H04.

Pour le bouton Valdier de l'USF, je ne sais pas ce que tu dois faire dans ton appli, mais tu m'as montré un code jeudi qui doit être placé dans l'USF

En gros dans l'USF tu dois avoir 3 sub :

• Private Sub UserForm_Initialize()
• Private Sub Annuler_Click()
• Private Sub Valider_Click()

Dans ton module, 2 sub

• Sub demarre() --> liée à ton bouton sur ta feuille Protèges
• Sub LDProtegesActifs():

Amicalement

Dan

Bonjour Dan,

- Private Sub UserForm_Initialize()

• Private Sub Annuler_Click()
• Private Sub Valider_Click()

Dans ton module, 2 sub

• Sub demarre() --> liée à ton bouton sur ta feuille Protèges
• Sub LDProtegesActifs():

J'ai entièrement repris ton code, en y apportant juste une modif, puisque je n'ai besoin sur la feuille ("Actifs") que du n°RG et de la concaténation du Nom et Prénom.

C'est parfait.

Il n'y a qu'au niveau de la Sud demarre() que j'ai un petit souci : en effet,en cliquant sur le bouton de la feuille ("Proteges") j'ai le message suivant erreur d'exécution 1004, erreur définie par l'application ou l'objet.

Je joins le fichier ci-après.

https://www.excel-pratique.com/~files/doc2/JosephActifs.xls

Merci encore pour tout.

Ne te gache pas le reste du dimanche à cause de moi !

A te relire

Amicalement

Joseph.

Bonjour joseph, dan, forum,

Je me permets de m'incruster dans le fil

Joseph, dans le code suivant :

Private Sub UserForm_Initialize()

'Macro Dan pour Joseph67 21/10/09

Dim cp As Integer

LDProtegesActifs

For cp = 6 To Worksheets("Actifs").Range("A65536").End(xlUp).Row

Choixprotege.AddItem Worksheets("Actifs").Cells(i, 5)

Next cp

End Sub

Le i n'est déclaré nulle part!

Corrige cette petite erreur

Ça vient peut-être de là.

Bonjour vba-new, Dan, le forum

Je me permets de m'incruster dans le fil

Je t'en prie, incruste toi !!!

Enchanté de te relire.

Le i n'est déclaré nulle part!

Mais c'est bien sûr : il suffisait de remplacer le i par cp, et le tour est joué.

Merci vba-new

et surtout à toi Dan, qui m'a consacré tout ce temps sur ce fil.

En espérant pouvoir un jour vous rendre la pareille. (Je me vais quand même pas me laisser aller au désespoir ....Je vais bien finir par y arriver!)

Comme le dit une pub bien connue : je l'aurais un jour!

Amicalement

Joseph