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
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: