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]

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

Ok, voici un fichier qui ressemble beaucoup plus à mon original :

Classeur1.xlsm

Je pense qu'un des problèmes provient du fait que mon tableau ne commence pas en colonne 1 et rang 1 comme vous le verrez.

[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..

[SfJ5Rpw8]

bonsoir,

et pour placer le code dans ton "tableau à toi" tu n'as modifier que le -6 ? si oui relis la réponse à mercatog !

si non dis nous ce que tu as modifié dans le code !

[thomanneca]

bonsoir,

et pour placer le code dans ton "tableau à toi" tu n'as modifier que le -6 ? si oui relis la réponse à mercatog !

si non dis nous ce que tu as modifié dans le code !

Bonsoir,

Mon tableau de recherche est le suivant : (J7P37)

Et le tableau a remplir : (K11:X30) tableau dans lequel il y a des cellules fusionnées.

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
21
22
Sub MettreAJourAgenda()
 
    Dim Lng, Col, o As String
    Dim PlageFe1, PlageFe2 As Range
 
    Set PlageFe1 = Sheets("Planning").Range("J7:DP37")
    Set PlageFe2 = Sheets("Centrales").Range("K11:X30")
        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, -6).Value
                End If
            End If
        Next Cell1
End Sub

[thomanneca]

Bonsoir,

Mon tableau de recherche est le suivant : (J7P37)

Et le tableau a remplir : (K11:X30) tableau dans lequel il y a des cellules fusionnées.

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
21
22
Sub MettreAJourAgenda()
 
    Dim Lng, Col, o As String
    Dim PlageFe1, PlageFe2 As Range
 
    Set PlageFe1 = Sheets("Planning").Range("J7:DP37")
    Set PlageFe2 = Sheets("Centrales").Range("K11:X30")
        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, -6).Value
                End If
            End If
        Next Cell1
End Sub

Je vois bien que le Lng et Col ne doivent pas être à 1 mais j'ai essayé de modifié et cela ne semble pas fonctionner (surtout pour Col)..

[eriiic]

Comme ta ligne de titre est en 3 :
Lng = Cells(cell1.Row, 3)
et comme ta colonne de titre est C :
Col = Cells(3, cell1.Column)

Pour PlageFe2 je mettrais plutôt :
Set PlageFe2 = Sheets("Feuil2").Range("j4:j15")
eric

[thomanneca]

Comme ta ligne de titre est en 3 :
Lng = Cells(cell1.Row, 3)
et comme ta colonne de titre est C :
Col = Cells(3, cell1.Column)

eric

Oui, je viens de corriger mon code et il fonctionne :

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
21
Sub MettreAJourAgenda()
 
    Dim Lng, Col, o As String
    Dim PlageFe1, PlageFe2 As Range
 
    Set PlageFe1 = Sheets("Planning").Range("J7:DP37")
    Set PlageFe2 = Sheets("Centrales").Range("k11:ab30")
        For Each Cell1 In PlageFe2
            If Not Cell1.MergeCells Or Cell1 = Cell1.MergeArea.Range("A1") Then
                Lng = Cells(Cell1.Row, 7)
                Col = Cells(6, 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, -6).Value
                End If
            End If
        Next Cell1
End Sub

Un tout grand merci à tous pour votre aide