L'indice n'appartient pas à la sélection
Bonjour,
J'ai actuellement une erreur que je ne comprend pas j'ai un code qui fonctionnait parfaitement :
Code:
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:
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
