find ignoré dans les cellules fusionnées

Version imprimable

Voir 40 message(s) de cette discussion en une page

bah je venait d'y penser :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Public Function RechercheValeurPlagePart(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range
 
 
Dim cellulesTrouvees As Range, PremAdresse As String
 
' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
If plageDeRecherche Is Nothing Then Exit Function
 
 
' on trouve la premiere cellule contenant la valeur
With plageDeRecherche
    Set cellulesTrouvees = .Find(What:=valeurRecherchee, lookat:=xlPart, MatchCase:=False)
        If Not cellulesTrouvees Is Nothing Then
            PremAdresse = cellulesTrouvees.Address
            Set RechercheValeurPlagePart = cellulesTrouvees
            Do
                If cellulesTrouvees = valeurRecherchee Then
                    Set RechercheValeurPlagePart = Application.Union(RechercheValeurPlagePart, cellulesTrouvees)
                End If
                Set cellulesTrouvees = .FindNext(cellulesTrouvees)
            Loop Until cellulesTrouvees.Address = PremAdresse
        End If
    End With
End Function

mais bon ce n'est qu'une maigre victoire, puisque sans se pencher sur le probleme des cellules fusionnées, j'ai :
- avec 0 impact --> la boite de dialogue "Erreur : y a aucune cellule avec impacts"
- avec 1 impact --> la boite de dialogue "il y a 1 cellules impacts"
- avec 2 impacts --> la boite de dialogue "il y a 1 cellules impacts"

20/06/2008, 15h38
onejock

qui plus est, en mettant un seul "impacts" mais cette fois ci dans une cellule fusionnée, j'ai, une erreur : "variable objet ou variable de bloc with non definie" sur la ligne

Code:

Loop Until cellulesTrouvees.Address = PremAdresse

par contre, si j'ai 1 fois "impacts" en cellulles fusionnées et une fois en celllule non fusionnée, il en voit bien 2 (avec le msgbox : "y a 2, probleme d'unicité")8O

Pour identifier les cellules fusionnées, reprends mon code d'hier. Je l'ai testé, il fonctionne.
Pour savoir si tu es dans la bonne cellule, utilise ça
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 If cellulesTrouvees.MergeCells Then 'memo de l'adresse des cellules fusionnées Adres = cellulesTrouvees.MergeArea.Address 'adres as string 'on ne traite que la première cellule de la fusion 'supprime la fusion cellulesTrouvees.MergeCells = False If cellulesTrouvees.Address = Split(Adres, ":")(0) Then 'C'EST la première cellule 'Ton code '... '... else 'tu es dans la seconde cellule, c'est pas bon endif 'rétablissement de la fusion des cellules Range(Adres).MergeCells = True
Tu n'as pas d'autre moyen que celui consistant à vérifier dans quelle cellule de la fusion tu te trouves. Peut-être existe-t-il une autre méthode mais je ne la connais pas.
Tu dis

Edit
J'ai juste oublié un bout. :oops:
Je l'ajoute et je reviens

20/06/2008, 16h05
ouskel'n'or

J'ai ajouté ce qu'il manquait au code précédent
Tu ajoutes ton code à sa bonne place et tu nous racontes :?
A+

[QUOTE=onejock;3403593]qui plus est, en mettant un seul "impacts" mais cette fois ci dans une cellule fusionnée, j'ai, une erreur : "variable objet ou variable de bloc with non definie" sur la ligne

Code:

Loop Until cellulesTrouvees.Address = PremAdresse

j'ai toujours la meme erreur, mais mon code est différent :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
 
' METTRE un byRef a la fin pour tester
Public Function RechercheValeurPlagePart(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range
 
 
Dim cellulesTrouvees As Range, PremAdresse As String, CellulesFusionneesAdresses As String
 
' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
If plageDeRecherche Is Nothing Then Exit Function
 
 
' on trouve la premiere cellule contenant la valeur
With plageDeRecherche
    Set cellulesTrouvees = .Find(What:=valeurRecherchee, lookat:=xlPart, MatchCase:=False)
        If Not cellulesTrouvees Is Nothing Then
            PremAdresse = cellulesTrouvees.Address
            Set RechercheValeurPlagePart = cellulesTrouvees
            Do
                'traitement du cas des cellules fusionnées : on ne les traite que lors du passage sur la premiere zone
                If cellulesTrouvees.MergeCells Then
                    CellulesFusionneesAdresses = cellulesTrouvees.MergeArea.Address ' on mémorise la premiere adresse de la zone
                    'supprime la fusion
                    cellulesTrouvees.MergeCells = False
                    If cellulesTrouvees.Address = Split(CellulesFusionneesAdresses, ":")(0) Then ' premiere cellule de zone fusionnée identifiée
 
 
 
 
                        ' puis-je factoriser ce bout de code ?
                        If cellulesTrouvees = valeurRecherchee Then
                            Set RechercheValeurPlagePart = Application.Union(RechercheValeurPlagePart, cellulesTrouvees)
                        End If
                        Set cellulesTrouvees = .FindNext(cellulesTrouvees)
                        ' // fin puis-je factoriser ce bout de code ?
 
 
 
 
                    End If
                    'rétablissement de la fusion des cellules
                    Range(CellulesFusionneesAdresses).MergeCells = True
 
 
 
 
                    ' puis-je factoriser ce bout de code ?
                    If cellulesTrouvees = valeurRecherchee Then
                        Set RechercheValeurPlagePart = Application.Union(RechercheValeurPlagePart, cellulesTrouvees)
                    End If
                    Set cellulesTrouvees = .FindNext(cellulesTrouvees)
                    ' // fin puis-je factoriser ce bout de code ?
 
 
 
 
                End If
            Loop Until cellulesTrouvees.Address = PremAdresse
        End If
    End With
End Function

mais je ne vois pas pourquoi on casse la fusion pour la reconstruire...

idée: quand c'est la premiere cellule on fait ce qu'on a faire sinon on fait rien, pour cela il suffit de tester que la cellule appartiennent pas l'interval d'adresse de la zone fusionnée...
mais le probleme est que s'il y a plusieurs zones fusionnées proches on ne sait pas comment chercher.

Autre proposition, mais je suis bon en algo mais en dev vb je suis une merde alors si quelqu'un s'en charge, ça me va bien :

- on parse usedRange on Constitu une collection de plage de zones fusionnées
- on parse usedRange en faisant une recherche xlWhole // on a deja le code, c'est RechercheValeurPlageWhole (le code initial)
- on parse la collection de plage de zones fusionnées, pour les reformer.

je pense que c'est ce qu'il ya de plus propre :
je commence, à votre bon coeur...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Function RechercheValeurPlagePart(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range
 
' ma collection de plage d'adresses fusionnées
Dim collectionFusion as String()
 
' étape 1
'--------
for each cell in plageDeRecherche
    If cellulesTrouvees.MergeCells Then
        collectionFusion.add(cellulesTrouvees.MergeArea.Address)
    end if
next cell
 
' étape 2
'--------
RechercheValeurPlagePart = RechercheValeurPlageWhole(valeurRecherchee , plageDeRecherche)
 
' étape 3
'--------
for i = 0 to collectionFusion.count
    Range(collectionFusion(i)).MergeCells = True
next cell
 
end function

mais a chaque fois, je mets des heures à ecrire ca en vb...

bon je vais tenter, en attendant ss'il y en a un de plus rapide...

voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Public Function RechercheValeurPlagePart(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range
 
    ' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
    If plageDeRecherche Is Nothing Then Exit Function
 
 
 
    ' ma collection de plage d'adresses fusionnées
    Dim collectionFusion() As String
 
    ' étape 1
    '--------
    Dim indice As Long
    indice = 0
    For Each cell In plageDeRecherche.Cells
        If cell.MergeCells Then
            collectionFusion(indice) = cell.MergeArea.Address
        End If
        indice = indice + 1
    Next cell
 
 
    ' étape 2
    '--------
    RechercheValeurPlagePart = RechercheValeurPlageWhole(valeurRecherchee, plageDeRecherche)
 
 
 
    ' étape 3
    '--------
    For indiceTab = 0 To UBound(collectionFusion) - 1
        Range(collectionFusion(i)).MergeCells = True
    Next indiceTab
End Function

j'ai une erreur "L'indice n'appartient pas à la selection" sur :

Code:

collectionFusion(indice) = cell.MergeArea.Address

C'est encore normal !
Tu déclares un tableau sans le dimensionner.
Pour pouvoir redimensionner ton tableau, ta déclaration est bonne. Par contre,, tu dois le redimensionner pour chaque nouvelle valeur d'indice.
Et, pour conserver les valeurs qu'il contient, tu dois utiliser Redim Preserve.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Function RechercheValeurPlagePart(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range
 
    ' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
    If plageDeRecherche Is Nothing Then Exit Function
 
 
 
    ' ma collection de plage d'adresses fusionnées
    Dim collectionFusion() As String
    Redim collectionFusion(0) 'init du tableau
    ' étape 1
    '--------
    Dim indice As Long
    indice = 0
    For Each cell In plageDeRecherche.Cells
        If cell.MergeCells Then
            collectionFusion(indice) = cell.MergeArea.Address
        End If
        indice = indice + 1
        Redim Preserve collectionFusion(indice)
    Next cell
     
    
    ' étape 2
    '--------
    RechercheValeurPlagePart = RechercheValeurPlageWhole(valeurRecherchee, plageDeRecherche)
     

    
    ' étape 3
    '--------
    'Comme tu as redimensionné sur un indice de trop, tu mets -2 au lieu de -1
    For indiceTab = 0 To UBound(collectionFusion) - 2 
        Range(collectionFusion(i)).MergeCells = True
    Next indiceTab
End Function

Les modifs ont été soulignées
Bon week-end

bah, moi je cherchais du cote d'une version object (.add)... mais bon l'erreur n'est plus... mais j'en ai une autre...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

Public Function RechercheValeurPlagePart(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range

    ' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
    If plageDeRecherche Is Nothing Then Exit Function




    ' ma collection de plage d'adresses fusionnées
    Dim collectionFusion() As String
    ReDim collectionFusion(0) 'init du tableau


    ' étape 1
    '--------
    Dim indice As Long
    indice = 0
    For Each cell In plageDeRecherche.Cells
        If cell.MergeCells = True Then
MsgBox cell.MergeArea.Address
' ceci affiche "C3:D3", etc. le probleme est plus bas  
            cell.MergeCells = False
            collectionFusion(indice) = cell.MergeArea.Address
            indice = indice + 1
            ReDim Preserve collectionFusion(indice)
        End If
    Next cell
     
    
    ' étape 2
    '--------
    Set RechercheValeurPlagePart = RechercheValeurPlageWhole(valeurRecherchee, plageDeRecherche)
    
    ' étape 3
    '--------
    For indiceTab = 0 To UBound(collectionFusion) - 2 'car redimensionné sur un indice de trop

MsgBox collectionFusion(indiceTab)
 ' ceci affiche "C3" PUIS "D3" !!! du coup pour la fusion ca aide pas...
Range(collectionFusion(indiceTab)).MergeCells = True
    Next indiceTab
End Function

Ok. Je croyais que tes cellules étaient fusionnées l'une en dessous de l'autre or il semblerait que tu les fusionnes l'une à côté de l'autre.
Tout de suite, je ne vois pas ce que ça change au premier code que je t'ai mis.
Tu tiens à créer un tableau et je n'en vois pas l'utilité. Pourquoi ne pas re-fusionner tes cellules au fur et à mesure ?
Tu devrais reprendre mon code précédent. Lui, j'ai pu le tester. ;)
On verra ça demain.
Bonne nuit.

Edit
Je viens de regarder après une nuit de sommeil...
Tu dois inverser tes deux lignes
Tu as mis ça

Citation:

cell.MergeCells = False
collectionFusion(indice) = cell.MergeArea.Address

Remplace par
Code:

1 2 collectionFusion(indice) = cell.MergeArea.Address cell.MergeCells = False
Sinon tu as l'adresse successive de tes deux lignes (ton observation)
Essaie de comprendre le code, généralement, c'est mieux ;)
A+
Bonne journée

Edit
Dans le code que je t'avais donné, tu as ça
Code:

1 2 3 4 Adres = cellulesTrouvees.MergeArea.Address 'adres as string 'on ne traite que la première cellule de la fusion 'supprime la fusion cellulesTrouvees.MergeCells = False
... et non l'inverse

ouais une nuit de sommeil, c'est bien... pour les prochains quivont galerer pour faire la même chose, je mets le code qui va bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
 
Public Function RechercheValeurPlageFusionneeOrNot(ByVal valeurRecherchee As String, ByVal plageDeRecherche As Range) As Range
 
    ' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
    If plageDeRecherche Is Nothing Then Exit Function
 
    ' ma collection de plage d'adresses fusionnées
    Dim collectionFusion() As String
    ReDim collectionFusion(0) 'init du tableau
 
 
    ' étape 1 : mémoriser toutes les zones fusionnées dans un tableau + defusionner les zones mergées
    '--------
    Dim indice As Long
    indice = 0
    For Each cell In plageDeRecherche.Cells
        If cell.MergeCells = True Then
            collectionFusion(indice) = cell.MergeArea.Address
            cell.MergeCells = False
            indice = indice + 1
            ReDim Preserve collectionFusion(indice)
        End If
    Next cell
 
    ' étape 2 : rechercher partout la valeur recherchée
    '--------
    Set RechercheValeurPlageFusionneeOrNot = RechercheValeurPlageWhole(valeurRecherchee, plageDeRecherche)
 
    ' étape 3 : parcours du tableau des zones fusionnées pour les refusionner...
    '--------
    For indiceTab = 0 To UBound(collectionFusion) - 1
        Range(collectionFusion(indiceTab)).MergeCells = True
    Next indiceTab
End Function

et pour RechercheValeurPlageWhole :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Function RechercheValeurPlageWhole(ByVal valeurRecherchee As Variant, ByVal plageDeRecherche As Range) As Range
 
Dim cellulesTrouvees As Range, PremAdresse As String
 
' verifier si la plage recue en parametre n'est pas vide (auquel cas sortir)
If plageDeRecherche.Count = 0 Then Exit Function
 
' on trouve la premiere cellule contenant la valeur
Set cellulesTrouvees = plageDeRecherche.Find(What:=valeurRecherchee, lookat:=xlWhole, MatchCase:=False)
If Not cellulesTrouvees Is Nothing Then
    PremAdresse = cellulesTrouvees.Address
    Set RechercheValeurPlageWhole = cellulesTrouvees
 
    ' on recherche, A PARTIR DE LA CELLULE MATCHANTE PRECEDENTE, la prochaine cellule contenant la valeur recherchee
    Do
        Set cellulesTrouvees = plageDeRecherche.FindNext(cellulesTrouvees)
        Set RechercheValeurPlageWhole = Application.Union(RechercheValeurPlageWhole, cellulesTrouvees)
    Loop Until cellulesTrouvees.Address = PremAdresse
Else
    Set RechercheValeurPlageWhole = Nothing
End If
End Function

Merci à toi, ouskel'n'or, sans toi j'aurais rien été fouté de faire...

Voir 40 message(s) de cette discussion en une page