P
papou
Guest
Bonjour à tous,
j'ai essayer de trouver hier dans les anciennes réponses du forum et je n'ai pas trouver exactement ce que je veux.
SVP pouvez vous me donner un code pour:
ajouter une feuille à une autre dans 1 troisième
et ensuite retirer les doublons
Feuil1('A2:K200') + Feuil2('A2:K200') =
Feuil3('A2:K500') puis trier et retirer les doublons, et remplir ma combo
Private Sub papou_Click()
Dim lign As Integer
Dim x As Byte
lign = papou.ListIndex + 2
For x = 1 To 15
Feuil4.Cells(2, x) = Feuil3.Cells(lign, x)
Next
End Sub
si vous pouvez m'aider, j'ai vu que quand des problèmes de ce type sont demandés c'est toujours vous deux qui répondez, alors si vous pouvez me pondre un code ce sera avec plaisir
merci d'avance
Papou
j'ai essayer de trouver hier dans les anciennes réponses du forum et je n'ai pas trouver exactement ce que je veux.
SVP pouvez vous me donner un code pour:
ajouter une feuille à une autre dans 1 troisième
et ensuite retirer les doublons
Feuil1('A2:K200') + Feuil2('A2:K200') =
Feuil3('A2:K500') puis trier et retirer les doublons, et remplir ma combo
Private Sub papou_Click()
Dim lign As Integer
Dim x As Byte
lign = papou.ListIndex + 2
For x = 1 To 15
Feuil4.Cells(2, x) = Feuil3.Cells(lign, x)
Next
End Sub
si vous pouvez m'aider, j'ai vu que quand des problèmes de ce type sont demandés c'est toujours vous deux qui répondez, alors si vous pouvez me pondre un code ce sera avec plaisir
merci d'avance
Papou