Bonjour,
PonOoo a écrit :
Bonsoir à tous,
J'ai bien cherché mais point trouvé :-)
J'aimerais récupérer toutes les feuilles sélectionnées par l'utilisateur afin de
faire une recherche dans ces différentes feuilles (telle cellule est-elle vide
dans toutes les feuilles sélectionnées). La sélection peut être continue ou
discontinue.
Si vous savez comment le faire, merci de vos lumières:-)
Voici une solution pour récupérer les feuilles sélectionnées.
Ensuite il conviendra de d'effectuer la recherche sur chacune d'entre elles.
Sub SelectedTabs()
Dim sSelectedTabs As String
Dim sSelectedTab() As Variant
Dim i As Integer
sSelectedTabs = ThisComponent.CurrentSelection.RangeAddressesAsString
sSelectedTab() = Split( sSelectedTabs, ";" )
'MsgBox ThisComponent.CurrentSelection.RangeAddressesAsString
For i = 0 to UBound (sSelectedTab())
MsgBox( "Feuille sélectionnée " & i+1 & " = " & sSelectedTab( i ) )
Next i
End Sub
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
