Userform ouverture impossible

Bonjour,

je ne parviens plus a ouvrir mon userform4 depuis le bouton sur la feuille DASHBOARD alors que le code est correcte.

il me ressort une erreur d'execution 91 variable objet ou variable de bloc with non définie.

je sais plus quoi faire

Bonsoir

Dans le code d'on figure un extrait ci-dessous il manque le 4 à UserForm

Private Sub UserForm_initialize()

Dim MEC As Byte

Dim ML As Byte

Dim LI As Integer

Dim N As Integer

Cordialement

Bonjour,

remplacer

For I = 1 To PCOM.Rows.Count

par

For I = 1 To COM.ListRows.Count

car votre tableau structuré commandes ne contient aucune ligne.

Merci de votre aide JOCO et THEV

J'ai appliquer ce que vous m'avez cité, l'userform s'initialise mais pas correctement. genre toute mais combobox son vide a présent.

de plus impossible d'utiliser mais bouton ajouter

bonjour,

je me permet de relancer le sujet car je n'ai toujours pas solutionner le problème

merciii

Bonjour

Elles sont ou les listes qui alimentent tes combobox?

dans le code userform4

Private Sub UserForm_initialize()
Dim MEC As Byte
Dim ML As Byte
Dim LI As Integer
Dim N As Integer

MEC = CByte(Month(Date))
'STATUT COMMANDE
Set OCOM = Sheets("BDD COMMANDES")
Set OSAV = Sheets("BDD SAV")
Set OCLI = Sheets("BDD CLIENT")
Set ORET = Sheets("BDD RETARD")
Set COM = OCOM.ListObjects(1)
Set SAV = OSAV.ListObjects(1)
Set CLI = OCLI.ListObjects(1)
Set RET = ORET.ListObjects(1)
Set PCOM = COM.DataBodyRange
Set PSAV = SAV.DataBodyRange
Set PCLI = CLI.DataBodyRange
Set PRET = RET.DataBodyRange

txt_cmd_statut.AddItem "WIN" 'alimentation combobox
txt_cmd_statut.AddItem "WIN+CMD" 'alimentation combobox
txt_cmd_statut.AddItem "WIN+CMD+CONFIRME" 'alimentation combobox
'ETAT SAV
txt_sav_etat.AddItem "EN COUR" 'alimentation combobox
txt_sav_etat.AddItem "REMISE EN PRODUCTION" 'alimentation combobox
txt_sav_etat.AddItem "TERMINER" 'alimentation combobox
'ALERTE SAV
txt_sav_alerte.AddItem "NORMALE" 'alimentation combobox
txt_sav_alerte.AddItem "URGENT" 'alimentation combobox
txt_sav_alerte.AddItem "EXTREME" 'alimentation combobox

For I = 1 To PCOM.Rows.Count
ML = CByte(Month(PCOM(I, 8)))
If ML = MEC Then
LI = PCLI.Columns(1).Find(PCOM(I, 1), , xlValues, xlWhole).Row - 1
Me.lst_recep_mois.ColumnWidths = "30;50;50;70;45"
Me.lst_recep_mois.AddItem
Me.lst_recep_mois.Column(0, N) = PCOM(I, 1)
Me.lst_recep_mois.Column(1, N) = PCLI(LI, 2) '& " " & PCLI(LI, 2)
Me.lst_recep_mois.Column(2, N) = PCOM(I, 3)
Me.lst_recep_mois.Column(3, N) = PCOM(I, 8)
Me.lst_recep_mois.Column(4, N) = PCOM(I, 12)
'sur le même principe tu rajouteras les deux dernières colonnes
N = N + 1
End If
Next I

For I = 2 To OCLI.Range("A" & Rows.Count).End(xlUp).Row
i2 = OCOM.Range("A:A").Find(OCLI.Range("A" & I), lookat:=xlWhole).Row
lst_rechercher.AddItem
lst_rechercher.Column(0, lst_rechercher.ListCount - 1) = OCLI.Range("A" & I)
lst_rechercher.Column(1, lst_rechercher.ListCount - 1) = OCLI.Range("B" & I) _
& " " & OCLI.Range("C" & I)
lst_rechercher.Column(2, lst_rechercher.ListCount - 1) = OCOM.Range("C" & i2)
lst_rechercher.Column(3, lst_rechercher.ListCount - 1) = OCOM.Range("D" & i2)
lst_rechercher.Column(4, lst_rechercher.ListCount - 1) = OCOM.Range("B" & i2)
Next I
For i3 = 2 To OSAV.Range("A" & Rows.Count).End(xlUp).Row
lst_sav_liste.ColumnWidths = "30;45;45;45;45"
lst_sav_liste.AddItem
lst_sav_liste.Column(0, lst_sav_liste.ListCount - 1) = OSAV.Range("A" & i3)
lst_sav_liste.Column(1, lst_sav_liste.ListCount - 1) = OSAV.Range("B" & i3)
lst_sav_liste.Column(2, lst_sav_liste.ListCount - 1) = OSAV.Range("C" & i3)
lst_sav_liste.Column(3, lst_sav_liste.ListCount - 1) = OSAV.Range("D" & i3)
lst_sav_liste.Column(4, lst_sav_liste.ListCount - 1) = OSAV.Range("E" & i3)
lst_sav_liste.Column(5, lst_sav_liste.ListCount - 1) = OSAV.Range("F" & i3)
Next i3
End Sub

Bonjour,

ci-jointe version révisée avec emploi du code spécifique aux tableaux structurés

Merciii THEV