Bug sur un Code

[MuscatMimi]

Bonsoir a tout le Forum

J'ai un Usf avec une Cbx dans un Doc Word

J'ai un Bug de temps a autre sur cette ligne

 For Each c In ActiveSheet.Range("A1", "A" & Trim(str(Cells(65535, 1).End(xlUp).Row)))

Voici le code que j'ai derriére ma Cbx

Sub RemplirCombo()
Dim xlAppList As Excel.Application
Dim MyWorkbook As Excel.Workbook
Dim c As Variant
'Dim Trim As Long
    ExcelFile = "F:\Mes Documents Cat\,\Entete Perso & Ent\Entête perso\Perso Chris\Numéro.xls" 'c:\Compteurs
    Table = "Feuil1"
    Set xlAppList = CreateObject("Excel.Application")  'crée une instance excel
    Set MyWorkbook = xlAppList.Workbooks.Open(ExcelFile, 0, , , "")    'ouvrre ce fichier excel
     
    MyWorkbook.Sheets(Table).Select
    For Each c In ActiveSheet.Range("A1", "A" & Trim(str(Cells(65535, 1).End(xlUp).Row)))
            ' Trim(Str(Cells(65535, 1).End(xlUp).Row)) = Repère la dernière cellule remplie de la colonne
       UserForm2.ComboBox2.AddItem Sheets(Table).Cells(c.Row, 1)
    
    Next
    
       '--penser à refermer le classeur en l'enregistrant si il a été modifié
    MyWorkbook.Close savechanges:=True
    Set xlAppList = Nothing
    Set MyWorkbook = Nothing
    Set Variable = Nothing
      
End Sub

Merci de votre aide par avance

Cordialement

 

[Gorfael]

Re : Bug sur un Code

Salut vaucluse immo et le forum
Juste quelques remarques en passant :
C est défini en Variant. Comme il ne représente qu'une plage, moi, je le définirais en Range
Trim est un mot réservé Excel. C'est jamais une bonne solution d'utiliser de mot réservés pour définir des variables.

 For Each c In ActiveSheet.Range("A1", "A" & Trim(str(Cells(65535, 1).End(xlUp).Row)))

T'aime bien te faire des noeuds aux boyaux de la tête ?

For Each c In Range([A1], (Cells(65535, 1).End(xlUp))

me semble plus simple.
Essaie de faire du pas-à-pas quand ça plante, pour regarder c à ce moment. Personnellement, quand c'est une panne intermittente, j'ai tendance à penser qu'une valeur n'est pas bonne. Et "ça bug" ne permet pas de savoir à quel type de panne on a à faire 😕
A+

 

[MuscatMimi]

Re : Bug sur un Code

Bonsoir Gorfael

Merci de ton aide

Ce code n'est pas de moi
Avec ton explication, c'est bon ça fonctionne

A tout hasard, s'aurait-tu faire un code pour ajouter des données dans le Classeur "Numéro"???,toujours depuis mon Fichier Word

Bonne soirée
Cordialement

 

[job75]

Re : Bug sur un Code

Bonsoir vaucluse immo, salut Gorfael,

Je vois que comme certains XLDnautes tu as un sens inné de la pêche à la ligne.

Tu lances et quand ça mord tu tires sur le fil 😀

A+

 

[MuscatMimi]

Re : Bug sur un Code

Bonjour Job75 & Gorfael

Pas mal ton message Job75

Bonne journée a tous

Cordialement

 

[MuscatMimi]

Re : Bug sur un Code

Bonsoir a tous

Puisque aucune réponse,
j'abandonne ce Fil
Merci
Bonne soirée