3 messages in org.openoffice.fr.progRe: [prog] [Calc]"récupérer" une sél...
FromSent OnAttachments
PonOooFeb 22, 2007 1:11 pm 
Bernard MarcellyFeb 23, 2007 1:57 am 
Francois GattoFeb 23, 2007 9:32 pm 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] [Calc]"récupérer" une sélection de feuilles faite par l'utilisateurActions...
From:Francois Gatto (oo@volcar.org)
Date:Feb 23, 2007 9:32:04 pm
List:org.openoffice.fr.prog

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