XL 2019 probleme vba

[frederio]

bonjour a tous

c est petit problème vba

l'image du code d'erreur.

merci

 

[frederio]

Option Explicit
Public Ws_Source As Worksheet
Private Sub CBn_Init_Click()
OkClean = True
If NBrOpt = 0 Then Exit Sub
NBrOpt = 0
'* ******************
               RecupTabGen 'function
'* ******************
 RecupListe UsF_Recherche.LstB_Filtre, Tabtemp, Alim_Combo(Tabtemp, TabStrSearch)
End Sub

Private Sub CBn_Quitter_Click()
Unload Me
End Sub

Private Sub UserForm_Initialise()
'Set Ws_Source = Worksheets("SAISON")
''******************************
'T = TBl_General(Ws_Source)
With UsF_Recherche
  For ii = 1 To 4 'Pour chacun des combobox de recherche
  ReDim Preserve CmboBox(1 To ii) 'on redimmensionne le tableau qui va permettre de récupéré _
                                    et d'entrer les combobox dans la Classe
    Set m_CmbB = Me.Controls("CBx_" & ii) 'on récuépere le combobox dans la variable
     
      m_CmbB.Tag = Choose(ii, "1|1", "2|2", "3|3", "3|6") 'on colle le numero de la colonne dans le tag du Combo
'      MsgBox m_CmbB.Tag
'on attribue le CmbBox au tableau de la classe GroupeCmbBox
    Set CmboBox(ii).GroupeCmbBox = m_CmbB
Next
With .LstB_Filtre
     .ColumnCount = 6
     .ColumnWidths = "105;30;160,30;30;160" '528
End With
'******************************
      RecupTabGen
'******************************
'    Alim_Combo Tabtemp, TabStrSearch 'Function
'********************
RecupListe .LstB_Filtre, Tabtemp, Alim_Combo(Tabtemp, TabStrSearch) 'Function
'********************
' With .CBx_1 'Saisons
'       .AddItem "<<TOUTES>>"
'       .List(.ListCount - 1, 1) = "*"
' For Lgn = 1 To UBound(T, 1)
'       .Text = T(Lgn, 1)
'    If .ListIndex = -1 Then
'       .AddItem Trim(T(Lgn, 1))
'       .List(.ListCount - 1, 1) = Trim(T(Lgn, 1))
'    End If
' Next Lgn
'       .ListIndex = 0
' End With
' With .CBx_2 'Lieux Domicile/Exterieur
'      .ColumnCount = 2
'      .ColumnWidths = "1;0"
'      .AddItem "<<TOUS>>"
'      .List(.ListCount - 1, 1) = "3|6" 'Les deux Colonnes
'
'      .AddItem "Domicile"
'      .List(.ListCount - 1, 1) = "3|3" 'Dimicile Colonne 3
'
'      .AddItem "Exterieur"
'      .List(.ListCount - 1, 1) = "6|6" 'Exterieur Colonne 6
'      .ListIndex = 0
' End With
 
 End With
End Sub

 

[frederio]

tu peux donne email après je envoyer email

 

[frederio]

comment faire ?

 

[frederio]

Je envoyer pas marcher avec fichier trop 2,03 Mo
C’est plus facile Je envoyer possible sur email

 

[frederio]

tu es regarde bien mon video

 

[frederio]

je sais pas comment faire pour zipper un fichier

 

[frederio]

oui tu peux 'explique comment le faire

 

[frederio]

oui j ai WinRaR

 

[soan]

@frederio

​

je ne sais pas comment faire pour zipper un fichier ; oui tu peux, explique comment le faire ; j'ai WinRaR

moi je n'ai pas WinRaR, alors essaye ceci : 1) ferme ton fichier Excel (s'il est ouvert) ; 2) quitte Excel ➯ 3) en dehors d'Excel, fais Windows e ➯ ça ouvre une fenêtre de l'Explorateur de fichiers ; va dans le dossier où tu as mis ton fichier Excel ; fais un clic droit sur ce fichier, puis dans le menu contextuel, choisis "Envoyer vers" puis juste à droite, clique sur "Dossier compressé" ➯ c'est ça qui va créer un fichier compressé .zip de ton fichier Excel .xlsm ; et s'il passe à 1 Mo ou moins, tu pourras le joindre dans un post du forum.

j'ai vu ta vidéo en entier ; mais je ne peux pas t'aider à partir d'une vidéo, il faut obligatoirement le fichier !​

soan

 

[frederio]

je faire déjà

 

[frederio]

n'a pas marche