Microsoft 365 Soucis boucle pour Compléter deux datas base avec un seul usf

[GADENSEB]

Bonjour le forum.
Je fais suite à la discussion ...

https://www.excel-downloads.com/thr...ne-chaine-de-caractere.20064159/post-20493049
J'ai retravaillé le code et maintenant je passe par un usf

Le but est de remplir les lignes en colonne g dans l'onglet IMPORT.

La table de correspondance est dans l'onglet DATAS

Je déclenche la macro par le "bouton 3" dans l'onglet Import

La macro va tourner tant qu'il y a une ligne vide en colonne G, Onglet IMPORT
Une autre macro faisant la recherche de correspondance de la colonne G dans l'onglet DATAS

Le problème qui se pose.Je n'arrive pas à faire la boucle :
1- je prends la première ligne vide en G onglet import.
2-J'ouvre l'usf qui me permet de compléter les données en onglet DATAS et COMMERCES
3-J'enchaine sur la prochaine ligne vide en colonne G
4-Si plus de ligne vide, je ferme l'usf.


Est-ce qqn aurait une idée ?

Bonne am
Seb

Sub completerdatabase()
Application.ScreenUpdating = False
Dim i As Integer
Dim derniereLigne
derniereLigne = Sheets("IMPORT").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To derniereLigne
If Cells(i, 7) = "" Then

recuplibelle = (Cells(i, 6))
USF_DATASBASES.Show

End If
Next i
Worksheets("IMPORT").Activate
Application.ScreenUpdating = True
End Sub

 

[GADENSEB]

J'ai trouvé c'était tout bête ;-)
Il suffisait de rappeler la macro initial à la sortie de l'usf ;-)