menu deroulant ""erreur 424""

[sarmerou08]

😕😕😕a tous,
ci joint le classeur attaché par un petit programme macro. Le but de ce programme et de selectionner la liste des batiment (classuer batiment et de les associer au bouton menu deroulant).
en excetutant j'ai un mùessage d'erreur 424.
merci de votre comprehension!!!!

😡😡😡
Cdlt,
sarmerou08

 

[shaggrhan]

Re : menu deroulant ""erreur 424""

Bonjour,

On ne voit pas de pièces jointes à ton post

 

[shaggrhan]

Re : menu deroulant ""erreur 424""

Désolé, pour le doublon, j'ai eu un message d'erreur à la réponse rapide.

Shagg

 

[sarmerou08]

Re : menu deroulant ""erreur 424""

😕😕😕a tous,
ci joint le classeur attaché par un petit programme macro. Le but de ce programme et de selectionner la liste des batiment (classuer batiment et de les associer au bouton menu deroulant).
en excetutant j'ai un mùessage d'erreur 424.
merci de votre comprehension!!!!
"" voila le programme VBA"""
Sub fichier_source()

'
Dim nomBatiment As String
Dim leWk As Workbook
Dim feuilleBatiment As Worksheet
Dim feuilleDivers As Worksheet
Dim laColonne As Integer
Dim nbLignes As Integer
Dim i As Integer

nomBatiment = ComboBoxBatiment.Value
If Len(nomBatiment) < 2 Then Exit Sub
Set leWk = ThisWorkbook
Set feuilleBatiment = leWk.Worksheets("Type de Bâtiment")
Set feuilleDivers = leWk.Worksheets("Divers")

feuilleDivers.Range("NomBatiment").Value = nomBatiment
If Not (IsError(feuilleDivers.Range("ColonneTypeBatiment").Value)) Then
laColonne = feuilleDivers.Range("ColonneTypeBatiment").Value
nbLignes = Application.WorksheetFunction.CountA(feuilleTypeBatiment.Columns(laColonne))
ComboBoxTypeBatiment.Clear
For i = 2 To nbLignes
ComboBoxTypeBatiment.AddItem feuilleBatiment.Cells(i, laColonne)
Next i
End If
End Sub

!!!!! fichier source joint!!!
😡😡😡
Cdlt,
sarmerou08

 

[sarmerou08]

Re : menu deroulant ""erreur 424""

ci joint le programme car trop volumineux.
merci de votre compréhenson!!!