Y
yohann
Guest
bonjour a tous merci pour les infos qui m'ont permi d'aboutir a cela je souhaiterai rendre plus cohérent mon fichier et donc définir des variables sur tout le classeur pour simplifier les fortmules.
envoyer la valeur des variables lors de la selection du case pour sélectionner la plage d'origine
Private Sub LbxMacro_Click()
Select Case Me.LbxMacro.ListIndex
Case 0: Call AddItem_Loop_Sort_Unique_Records_Collection_On_Dynamic_Array
Case 1: Call AddItem_Loop_Sort_Unique_Records_Collection_On_Dynamic_Array2
End Select
End Sub
Const WS As String = 'liste secteurs d'activité'
Const C As String = 'B'
Const TheCol As String = 'B1:B'
Const TheDep As String = 'B1'
Const TheEnd As String = 'B65536'
Const WS2 As String = 'liste personnels'
Const C2 As String = 'B'
Const TheCol2 As String = 'B2:B'
Const TheDep2 As String = 'B2'
Const TheEnd2 As String = 'B65536'
merci de vos conseils a bientot
envoyer la valeur des variables lors de la selection du case pour sélectionner la plage d'origine
Private Sub LbxMacro_Click()
Select Case Me.LbxMacro.ListIndex
Case 0: Call AddItem_Loop_Sort_Unique_Records_Collection_On_Dynamic_Array
Case 1: Call AddItem_Loop_Sort_Unique_Records_Collection_On_Dynamic_Array2
End Select
End Sub
Const WS As String = 'liste secteurs d'activité'
Const C As String = 'B'
Const TheCol As String = 'B1:B'
Const TheDep As String = 'B1'
Const TheEnd As String = 'B65536'
Const WS2 As String = 'liste personnels'
Const C2 As String = 'B'
Const TheCol2 As String = 'B2:B'
Const TheDep2 As String = 'B2'
Const TheEnd2 As String = 'B65536'
merci de vos conseils a bientot
