Mise à jour combobox mais pas tous
Bonjour,
J'ai un petit problème à vous soumettre. Actuellement j'alimente 5 combobox par cette procédure :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Sub recupNumCmdTtt()
Dim i As Integer
Dim j As Byte
Dim NomCol As String
On Error GoTo errorValidation
'On efface au préalable les combobox pour ne pas avoir de doublons
With shAnalyse
For j = 14 To 18
NomCol = Left(.Cells(1, j).Address(0, 0), 1)
.OLEObjects("cb" & NomCol & "40").Object.Clear
'On parcourt la ligne 37 et quand une cellule contient un numéro de commande on l'ajoute dans la combobox...
.OLEObjects("cb" & NomCol & "40").Object.AddItem ""
For i = cNumColonneDebutTableau To cNumColonneFinTableau
If Cells(37, i).Value <> "" Then .OLEObjects("cb" & NomCol & "40").Object.AddItem .Cells(cNumLigneCmdTraitement, i)
Next i
Next j
End With
Exit Sub
errorValidation:
'Appelle la procédure qui envoit un mail à JFM en cas d'erreur
'Il faut récupérer : nom procédure, nom fichier, nom numéro lot, code erreur excel, description erreur
Call EnvoiMailErreurValidation("recupNumCmdTtt", wbkAnalyse.Name, Err.Number, Err.Description, wbkAnalyse.Path)
End Sub |
Cependant si il y a une modification en ligne 37 il faut que je mette à jour ces combobox en rappellant ma procédure...
Ce que je fais de cette manière :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As String
Col = Left(Target.Address(0, 0), 1)
With shAnalyse
If InStr("N39_O39_P39_Q39_R39", Target.Address(0, 0)) > 0 Then
.OLEObjects("cb" & Col & "40").Visible = Target.Value = "Sieving"
If Target.Value = "" Then
ActiveSheet.OLEObjects("cb" & Col & "40").Object.Value = ""
End If
End If
If InStr("G37_J37_M37_N37_O37_P37_Q37_R37", Target.Address(0, 0)) > 0 Then
Call recupNumCmdTtt
End If
End With
End Sub |
Cependant si mon utilisateur a déjà tout sélectionné je ne veux pas que ça lui remette tout à zéro...
J'ai testé ceci :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As String
Col = Left(Target.Address(0, 0), 1)
With shAnalyse
If InStr("N39_O39_P39_Q39_R39", Target.Address(0, 0)) > 0 Then
.OLEObjects("cb" & Col & "40").Visible = Target.Value = "Sieving"
If Target.Value = "" Then
ActiveSheet.OLEObjects("cb" & Col & "40").Object.Value = ""
End If
End If
If InStr("G37_J37_M37_N37_O37_P37_Q37_R37", Target.Address(0, 0)) > 0 Then
If Target.Address = "$G$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("G37").Value
ElseIf Target.Address = "$J$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("J37").Value
ElseIf Target.Address = "$M$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("M37").Value
ElseIf Target.Address = "$N$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("N37").Value
ElseIf Target.Address = "$O$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("O37").Value
ElseIf Target.Address = "$P$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("P37").Value
ElseIf Target.Address = "$Q$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("Q37").Value
ElseIf Target.Address = "$R$37" Then
.OLEObjects("cb" & Col & "40").Object.AddItem .Range("R37").Value
End If
End If
End With
End Sub |
Cependant cela me fait une erreur de bloc with sur mon .OLEObject...
Si vous avez des idées.. je suis preneuse
