Discussion :

[thomanneca]

Bonjour à tous,

Peut-on faire une recherche find dans un tableau comprenant des cellules fusionnées ?

Mon code fonctionne pour un tableau sans cellules fusionnées mais avec, il débloque.

Je vous joins un fichier pour exemple.

Vous verrez que pour la colonne A, la macro fonctionne mais dès qu'il doit remonter en colonne C, cela ne va plus.

Il passe sans doute en colonne B qui n'existe pas...


Classeur1.xlsm

Merci

[QuestVba]

Bonjour,

Pourrais-tu passer par un split ?

Tu peux voir ceci:
http://www.developpez.net/forums/d57...es-fusionnees/

[eriiic]

Bonjour,

Comme quoi les cellules fusionnées sont vraiment à proscrire ;-)

Tu peux, mais il ne faut traiter que la 1ère cellule d'une plage fusionnée puisque les autres sont vides.
Et comme elles sont vides ton xltoleft n'est pas bon non plus puisque qu'il s'arrêtera en colonne B ou D et non A comme voulu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub MettreAJourAgenda()
    Dim Lng, Col, o As String
    Dim PlageFe1, PlageFe2 As Range
 
    Set PlageFe1 = Sheets("Feuil2").Range("b18:B30")
    Set PlageFe2 = Sheets("Feuil2").Range("B2:F13")
    For Each cell1 In PlageFe2
        If Not cell1.MergeCells Or cell1 = cell1.MergeArea.Range("A1") Then
            Lng = Cells(cell1.Row, 1)
            Col = Cells(1, cell1.Column)
            o = Lng & Col
            Set CellTrouvee = PlageFe1.Find(o, lookat:=xlWhole)
            If CellTrouvee Is Nothing Then
                cell1.Value = "?"
            Else
                cell1.Value = CellTrouvee.Offset(0, -1).Value
            End If
        End If
    Next cell1
End Sub

eric

[thomanneca]

Bonjour Messieurs,

Merci déjà.

Eric, il me semble que ton code peut fonctionner mais j'ai une erreur 1004 sur la ligne :

Code :

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

cell1.Value = CellTrouvee.Offset(0, -6).Value

Erreur 1004 : erreur définie par l'application ou par l'objet

Elle fonctionne avec -1 comme dans l'exemple ci-avant mais dans mon programme, j'ai besoin de décaler de -6.

Sais-tu comment je peux identifier cette erreur ?

Merci

[mercatog]

La recherche se fait en colonne B, comment veux tu faire un offset(, -6) (6 colonnes avant la colonne B)

[eriiic]

Bonjour,

Si ton fichier n'est pas conforme à l'exemple et bien fourni un nouveau fichier avec les nouvelles explications.
La ligne que tu signales en erreur est de toi. Je n'ai fait que répondre à ta question : que ça fonctionne avec des cellules fusionnées.

eric

[thomanneca]

La recherche se fait en colonne B, comment veux tu faire un offset(, -6) (6 colonnes avant la colonne B)

Merci pour ta réponse mercatog

En fait, je ne l'ai peut-être pas signalé mais le -6, je l'ai mis dans mon tableau à moi et non dans l'original donc chez moi, oui il peut se décaler.
Voir l'autre message..