Je voudrais savoir dans combien de tes posts il faudra évoquer l'utilité d'un fichier Excel joint par le demandeur...
re,Bonjour le fil, le forum, jean marc1234
@jean marc1234
Je voudrais savoir dans combien de tes posts il faudra évoquer l'utilité d'un fichier Excel joint par le demandeur...
Merci d'avance.
Private Sub UserForm_Initialize()
'initialisation des variables
Dim rng As Range
Set rng = Sheets("liste").Range("b2:f2"): rng.Interior.ColorIndex = xlNone
cbocatégorie.List = Application.Transpose(rng.Value)
End SubPas de problème, merciRe
Je réponds à mon rythme
Private Sub cboagence_Change()
Dim ligne&
colonne = cboagence.ListIndex + 8
ligne = Sheets("liste").Cells(3, colonne).End(xlDown).Row
cbonom.List = Sheets("liste").Range(Cells(3, colonne), Cells(ligne, colonne)).Value
End Sub
Private Sub UserForm_Initialize()
'initialisation des variables
Dim rng As Range
Set rng = Sheets("liste").Range("b2:f2"): rng.Interior.ColorIndex = xlNone
cbocatégorie.List = Application.Transpose(rng.Value)
cboagence.List = Application.Transpose(rng.Item(5).Offset(, 2).Resize(, 8).Value)
End SubRe,
c'est malheureux mais faudrait faire attention à tous maintenait
si si avais bien compris que c'était de l'humour, pas de problèmeRe
Tu n'as pas du comprendre l'humour de mon dernier message
Je disais simplement que le code que je t'ai fourni est très basique et qu'il se peut que surgisse des effets de bords
d'où cette première phrase
(en attendant mieux écrit et plus secure)
puis cette seconde
(Mais si j'étais moi, je méfierai de ces codes VBA)
,) ma p'tite version.Private Sub UserForm_Initialize()
cbocatégorie.List = Application.Transpose(Range("Categories"))
cboagence.List = Application.Transpose(Range("Agences"))
End Sub
Private Sub cbocatégorie_change()
Dim nc As Long, nl As Long
cbooutillage.Clear
If Not cbocatégorie.ListIndex = -1 Then
nc = Application.WorksheetFunction.Match(cbocatégorie.Text, Range("Categories"), 0) + 1
With Worksheets("Liste")
nl = .Cells(Rows.Count, nc).End(xlUp).Row
On Error GoTo Err01
cbooutillage.List = .Range(.Cells(3, nc), .Cells(nl, nc)).Value
End With
cbooutillage.SetFocus
Exit Sub
End If
Err01:
cbooutillage.AddItem Worksheets("Liste").Cells(3, nc)
cbooutillage.SetFocus
End Sub
Private Sub cboagence_Change()
Dim nc As Long, nl As Long
cbonom.Clear
If Not cboagence.ListIndex = -1 Then
nc = Application.WorksheetFunction.Match(cboagence.Text, Range("Agences"), 0) + 7
With Worksheets("Liste")
nl = .Cells(Rows.Count, nc).End(xlUp).Row
On Error GoTo Err02
cbonom.List = .Range(.Cells(3, nc), .Cells(nl, nc)).Value
End With
cbonom.SetFocus
End If
Exit Sub
Err02:
cbonom.AddItem Worksheets("Liste").Cells(3, nc)
cbonom.SetFocus
End Subbonsoir à tous les deux,
