Re : Besoin d'aide pour un "recherche-coller"
Merci skoobi je vais regarder sa .
Pour ce qui est de la suppressions des doublons et que sa me mette automatiquement les modeles par rapport au marque j'ai retrouver un code que j'utilisais pour une autre partie de mon programe.
Celui la marche impeccablemet seul probleme dans ce programe les combobox sont dans un user form et dans ce que je veu faire les combobox sont directement sur une page. Il doit y avoir quasi rrien a modifier (je pense que ce qui est en gras) seul hic je ne sais pas par quoi le remplacer.
merci de ton aide
Dim DerliF As Integer, DerliG As Integer, DerliH As Integer, DerliI As Integer, DerliJ As Integer
Dim DerliK As Integer, DerliL As Integer, DerliM As Integer, DerliN As Integer, DerliO As Integer
Dim DerliP As Integer, DerliQ As Integer, DerliR As Integer, DerliS As Integer, DerliT As Integer
Dim DerliU As Integer, DerliV As Integer, DerliW As Integer, DerliX As Integer, DerliY As Integer
Dim DerliZ As Integer, DerliAA As Integer, DerliAB As Integer, DerliAC As Integer, DerliAD As Integer
Dim DerliAE As Integer, DerliAF As Integer, DerliAG As Integer, DerliAH As Integer, DerliAI As Integer
Dim DerliAJ As Integer, DerliAK As Integer, DerliAL As Integer, DerliAM As Integer
Dim premièreli As Integer, li As Integer, n As Byte, no As Integer
Dim plage As Range, cell As Range, nv As Byte
Private Sub UserForm_Initialize()
With Sheets("Donnee")
DerliF = .Range("F65536").End(xlUp).Row
DerliG = .Range("G65536").End(xlUp).Row
etc..
ComboBox1.List = .Range("F2:F" & DerliF).Value
End With
ComboBox2.Enabled = False 'interdit la 2ème liste
End Sub
Private Sub ComboBox1_Change()
ComboBox2.Enabled = True 'autorise la 2ème liste
With Sheets("Donnee")
If ComboBox1.Value = "airbus" Then ComboBox2.List = .Range("G2:G" & DerliG).Value
If ComboBox1.Value = "eurocopter" Then ComboBox2.List = .Range("H2:H" & DerliH).Value
etc...
End With
End Sub