Discussion :

[tamtam64]

Bonjour,

je souhaiterais cherher une valeur dans une plage qui peut être regroupée (ou non). Le find ne fonctionne pas sur une plage groupée.

Comment faire ?

- dégrouper toutes ls feuilles ? mais il faut les regrouper apres
- metode pour trouver une valeur dans une plage groupée sans la dégrouper .

Merci d'avance

[joe.levrai]

Bonjour,

qu'appelles-tu plage groupée ?

Groupe de travail (plusieurs feuilles sélectionnées) ou réelles plages groupées (menu DONNEES >> Grouper) dans plusieurs feuilles ?

[boisgontierjacques]

Bonjour,

Qq exemples de recherche avec Find.

Boisgontier

[tamtam64]

Bonjour,

une réelle plage groupée,si je regroupe une plage (appellée aussi plan) le find ne marche plus

[joe.levrai]

Tu peux retirer les groupes et les remettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaPlage.Ungroup
MaPlage.Group

Ou alors déplier le groupe pour effectuer ta recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaFeuille.Outline.ShowLevels x, y ' x = niveau max du groupe de lignes / y = niveau max du groupe de colonnes

[tamtam64]

Tu peux retirer les groupes et les remettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MaPlage.Ungroup
MaPlage.Group

Ou alors déplier le groupe pour effectuer ta recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaFeuille.Outline.ShowLevels x, y ' x = niveau max du groupe de lignes / y = niveau max du groupe de colonnes

La difficlté c'est que je ne sais pas si il y'a un regroupement et que je ne connais pas le niveau ....

Dégrouper et regrouper demande de connaître les plages qui etient groupées au départ, donc compliquée.

J'ai plutôt cherché une autre facon de chercher

[tamtam64]

Bonjour,

Qq exemples de recherche avec Find.

Boisgontier

Bonjour,

Merci mais ca ne répond pas à ma question, enfin de ce que je vois ca ne traite pas des ranges groupés.

Merci en tout cas

[tamtam64]

J'ai fait ca si ca peut aider voilà

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function FindV(AllRange As Range, ByVal MyID As String) As Range
    Dim nBC As Long
 
    With Application.WorksheetFunction
        nBC = AllRange.Columns.Count - 1
        On Error GoTo errorMana
        nBC = AllRange.Columns.Count
        Set FindV = AllRange(.Match(MyID, AllRange.Columns(1), 0), nBC)
        Exit Function
    End With
errorMana:
    Set FindV = Nothing
End Function