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

GADENSEB

XLDnaute Impliqué
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


VB:
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
 
Dernière édition:

Discussions similaires

Réponses
12
Affichages
537
Réponses
20
Affichages
735

Statistiques des forums

Discussions
311 730
Messages
2 081 981
Membres
101 855
dernier inscrit
alexis345