Ajouter USF dans mon projet
bonjour le forum,
bonjour à tous,
je sollicite votre aide pour terminer mon projet, la je suis dans l'impasse depuis hier.
voici le code :
Public Sub Compléter()
Set d = CreateObject("Scripting.Dictionary")
nM = Worksheets("Mvts").Cells(Worksheets("Mvts").Rows.Count, 2).End(xlUp).Row
For i = 6 To nM
d(Worksheets("Mvts").Cells(i, 2).Value) = i
Next i
nD = Worksheets("Donnees").Cells(Worksheets("Donnees").Rows.Count, 1).End(xlUp).Row
For i = 6 To nD
If d.exists(Worksheets("Donnees").Cells(i, 1).Value) Then d.Remove (Worksheets("Donnees").Cells(i, 1).Value)
Next i
With Worksheets("Mvts")
For Each k In d.keys
lgn = d(k)
x = WorksheetFunction.Count(k)
For y = nD + 1 To nD + x
If k > 1 Then Rows(y).Insert Shift:=xlDown
Next y
'If .Cells(lgn, 2) > 0 Then .Cells(lgn, 2).Copy _
Worksheets("Donnees").Range("A" & nD)
' nD = nD + 1
If .Cells(lgn, 2) > 0 Then AjoutNvArticle.Show
Next k
End With
End Sub
la partie en commentaire fonctionne bien mais je cherche à faire les ajouts de ligne via Userform afin d'ajouter des informations complémentaires directement de colonnes B à F, et c'est là mon problème.
je n'arrive pas à ajouter la liste des codes stockés normalement dans la variable "lgn" au combobox.
merci d'avance pour votre aide.
Pedro Dudesson.
bonjour le forum,
bonjour M12,
c'est exactement ce que je voulais.
je vous remercie.
bien à vous.
Pedro.