Souci dans le code VBA

[Hugues]

Bonjour,

Je souhaiterais alimenter une liste déroulante suivant les données contenues dans une autre feuille.

La liste déroulante s'appelle CbB_section
Les données sont en feuille WS1 dans la plage de cellules H18-Q18
La liste déroulante est en WS2
Le blocage semble se passer sur la ligne "ws2.CdB_section.AddItem = ws1.Cells(18, a).Value"


Merci par avance pour votre aide,

Hugues


Voici le code :

Private Sub Worksheet_Activate()

Dim DerCol As Byte
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Sheets("ajustement_cegid")
Set ws2 = Sheets("balance_corrigée")

' Mise à jour de la liste déroulante
' Recherche les valeurs comprises entre H18 et Q18
' Afin d'éliminer les blancs dans la liste déroulante, recherche de la dernière cellule


' Nettoyage de la liste déroulante
CbB_section.Clear

' Calcul de la dernière colonne de référence dans la feuille ajustement CEGID
DerCol = ws1.Range("R18").End(xlToLeft).Column

' Remplissage de la liste déroulante
For a = 8 To DerCol
If ws1.Cells(18, a) <> "" Then
ws2.CdB_section.AddItem = ws1.Cells(18, a).Value

End If
Next a
End Sub

 

[pierrejean]

Re : Souci dans le code VBA

Bonjour Hugues

CbB_section ou ws2.CdB_section ???

 

[Hugues]

Re : Souci dans le code VBA

Bonjour Pierre Jean

Merci ; en effet je me suis trompé et c'est bien cbB_section
Toutefois je n'arrive pas à alimenter la liste ; il me met toujours une erreur

Merci pour l'aide

Hugues

 

[pierrejean]

Re : Souci dans le code VBA

Re

Difficile de debugger sans fichier

Peux-tu poster une copie simplifiée et sans données confidentielles ??

 

[Hugues]

Re : Souci dans le code VBA

Re bonjour Pierre Jean

Ci joint un extrait du fichier

Je pense que le souci vient du code permettant d'alimenter la liste déroulante.

Merci pour l'aide

Hugues

 

[pierrejean]

Re : Souci dans le code VBA

Re

bon sang mais c'est bien sur !!!

ws2.CbB_section.AddItem ws1.Cells(18, a).Value

et non

ws2.CdB_section.AddItem = ws1.Cells(18, a).Value

 

[Hugues]

Re : Souci dans le code VBA

Merci Pierre Jean
Ca fonctionne impeccable.

Dans la continuité de mon projet, Je souhaiterais extraire la valeur de la liste déroulante afin de l'utiliser comme une variable.

J'ai écris :

import_section = CbB_section

Mais je n'obtiens pas de résultat.

Merci par avance,

Hugues

 

[Hugues]

Re : Souci dans le code VBA

Re Bonjour Pierre Jean

Mon souci ne viendrait-il pas de la portée des variables.
Je te joins le fichier mis à jour.

Merci pour l'aide,

Hugues

 

[pierrejean]

Re : Souci dans le code VBA

Re

Teste:

import_section =[B] Sheets("liste").[/B]CbB_section.Value

Pour le reste , je n'ai pas compris !!

 

[Hugues]

Re : Souci dans le code VBA

Merci Pierre Jean
pour l'aide