Message d'erreur colunm

Bonjour chers amis ! Depuis quelques jours je rencontre ce problème d'erreur d’exécution de code. Veuillez m'aider à ressoude...

Merci

Bonjour William, bonjour le forum,

Il me semble, quand on a besoin d'aide, que la moindre des chose serait de nous indiquer quelle est la ligne de code qui plante, dans quelle procédure et quel est le message d'erreur. À moins que ce ne soit trop fatiguant pour toi...

Bonjour toutes et tous

coucou Thauthème, le pb la listbox

@William la listbox sur le Rowsource et les mots séparés (espace) de la feuille Base article + les virgules au lieu des points virgules, la variable lr pas trop compris le truc

Sub Show_Base_article()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Base article")

Dim lr As Long
lr = Application.WorksheetFunction.CountA(sh.Range("A:A"))

If lr = 2 Then lr = 1

With Me.ListBox1
    .ColumnCount = 4
    .ColumnHeads = True
    .ColumnWidths = "60;150;80;80"
    .RowSource = "'Base article'!A2:D200" '& lr
End With

End Sub

Vraiment excuse moi Thauthème, la prochaine fois je vais mieux expliquer le problème.. Merci André, Problème resolu

Bonjour le fil, bonjour le forum,

Oui André, j'avais vu merci. C'était juste pour faire réagir William et qu'il prenne l'habitude d'exposer clairement ses problèmes...