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
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