Discussion :

[juju1988]

Bonjour,

J'ai actuellement une erreur que je ne comprend pas j'ai un code qui fonctionnait parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'Procédure qui récupère les numéros de commande de traitement et l'ajoute dans les combobox associées
Sub recupNumCmdTtt()

'On efface au préalable les combobox pour ne pas avoir de doublons
Sheets("Données Rapports").cbN40.Clear
Sheets("Données Rapports").cbO40.Clear
Sheets("Données Rapports").cbP40.Clear
Sheets("Données Rapports").cbQ40.Clear
Sheets("Données Rapports").cbR40.Clear
    
    'On parcourt la ligne 37 et quand une cellule contient un numéro de commande on l'ajoute dans la combobox...
    For i = cNumColonneDebutTableau To cNumColonneFinTableau
        If Cells(37, i).Value <> "" Then
            Sheets("Données Rapports").cbN40.AddItem Cells(cNumLigneCmdTraitement, i)
            Sheets("Données Rapports").cbO40.AddItem Cells(cNumLigneCmdTraitement, i)
            Sheets("Données Rapports").cbP40.AddItem Cells(cNumLigneCmdTraitement, i)
            Sheets("Données Rapports").cbQ40.AddItem Cells(cNumLigneCmdTraitement, i)
            Sheets("Données Rapports").cbR40.AddItem Cells(cNumLigneCmdTraitement, i)
        End If
    Next i

End Sub

Cependant maintenant j'ai une erreur sur la ligne en violet

Auparavant j'ai modifié cette procédure, je pense que cela vient de là mais je ne sais pas pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As String
 
Col = Left(Target.Address(0, 0), 1)
 
If InStr("N39_O39_P39_Q39_R39", Target.Address(0, 0)) > 0 Then
    ActiveSheet.OLEObjects("cb" & Col & "40").Visible = Target.Value = "Sieving"
End If
 
Call recupNumCmdTtt
 
End Sub

Cette procédure me permet de si on modifie N39 O39 P39 Q39 ou R39 et qu'on lui met pour valeur Sieving alors on affiche les combobox correspondantes qu'on remplit par recupNumCmdTtt...

Merci d'avance

[mercatog]

Tu n'as pas changé le nom de la feuille "Données Rapports"? tu as une feuille qui porte exactement ce nom?

[juju1988]

Oui je viens de vérifier de faire un copier coller pour bien avoir le même nom mais ça ne vient pas de là...

[mercatog]

et elle appartient au classeur actif?

[juju1988]

Oh je suis désolée ça fonctionne j'ai précisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows("analyses.xls").Activate

et c'est bon !

[mercatog]

Et voilà le genre de désagréments qu'il fallait régler une fois pour toute. je propose d'instancier tes classeurs et feuilles (cf autre sujet). tu auras à éviter ce genre d'erreurs et en plus tu n'as pas besoin à chaque fois d'activer tel ou tel classeur! et à chaque fois tu te demande: qui est le classeur actif? ou quelle est la feuille active?