Problème pour alimenter ComboBox

[ananar]

Bonjour à toutes et à tous,

J'ai plusieurs ComboBox dans un UserForm.
Ces ComboBox sont alimentées par des données figurant dans l'onglet Données de mon Classeur.

Mon code fonctionne pour les ComboBox alimentées par les données de la colonne A.

Private Sub ComboBox1_Change()
Dim cell As Range
Dim cherch As String, derlign As Long
derlign = Sheets("Données").Range("A65536").End(xlUp).Row
cherch = ComboBox1
Set cell = Sheets("données").Range("A1:A" & derlign).Find(cherch, lookAt:=xlWhole)
  If Not cell Is Nothing Then
  End If
End Sub

Je n'arrive pas à alimenter les ComboBox avec des données provenant d'autres colonnes.

Private Sub ComboBox13_Change()
Dim cell As Range
Dim cherch As String, derlign As Long
derlign = Sheets("Données").Range("G65536").End(xlUp).Row
cherch = ComboBox13
Set cell = Sheets("données").Range("G1:G" & derlign).Find(cherch, lookAt:=xlWhole)
If Not cell Is Nothing Then
  End If
End Sub

C'est ici que je bloque, pour par exemple alimenter la ComboBox13 avec les données de la colonne D

Private Sub UserForm_Initialize()
Dim cell As Range
With Sheets("Données")
For Each cell In .Range("A1 :A" & .Range("A65536").End(xlUp).Row)
ComboBox1.AddItem cell
ComboBox4.AddItem cell
ComboBox16.AddItem cell
ComboBox17.AddItem cell
ComboBox24.AddItem cell
ComboBox25.AddItem cell
ComboBox32.AddItem cell
ComboBox33.AddItem cell
Next
End With
Range("B18,C18,D18,E18,F18,G18,H18,I18,B19,C19,D19,E19,F19,G19,H19,I19,B20,C20,D20,E20,F20,G20,H20,I20,B21,C21,D21,E21,F21,G21,H21,I21").ClearContents
End Sub

D'avance merci pour les réponses qui me parviendront.

Bien cordialement,

 

[jp14]

Re : Problème pour alimenter ComboBox

Bonjour

en ecrivant

ComboBox4.AddItem cell.offset(0,x)

x ayant une valeur correspondant au décalage entre la colonne A et la colonne désirée.
1 si B, 2 si C,3, si D ...

JP

 

[ananar]

Re : Problème pour alimenter ComboBox

Bonjour jp14,

Maintenant tout est OK !

Merci pour ton aide !

Bien cordialement,