Erreur 1004 - Range.MergeArea

**Excel'air** · 24/08/2018, 16h35

Bonjour le forum,

J'ai une erreur dans mon code et je ne comprend pas d'où ça peut venir.

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
23
24
25
26
27
28
29
30
Sub ajout_hotelnextsheet(ByVal Target As Range)
Dim a()
Dim Rng As Range
Dim rngEnd As Range
Dim nbjour()
Dim sheetname As Integer
Dim c As Variant
Dim compt As Integer, i As Integer



Set Rng = Target.MergeArea
Set rngEnd = Rng.Cells(Rng.Rows.Count, Rng.Columns.Count)

i = 1
compt = 1
nbjour = Sheets("data").Range("Tableau9").Value
a = Sheets("data").Range("Tableau3").Value


While Sheets("MARCY").Range("B" & i).Value <> ""
i = i + 1
Wend

Range("D" & i - 1).Value = sheetname & "/" & Range(rngEnd.Address).Row + 1 & "/" & Sheets("Interface").Range("G3").Value

Sheets(sheetname).Activate
compt = compt + 1

End Sub

J'ai pourtant vérifié que Target correspondait bien à une plage fusionné à cellule unique, la méthode marche dans d'autres cas (Je peux récupérer la dernière cellule de ma fusion), mais pas ici.
Voici les propriétés sur Target :

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
Target.Merge
Target.Select
With Selection
        .Value = module & vbCrLf & "2/2"
        .Interior.ColorIndex = 37
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
End With
ajout_hotelnextsheet Selection

Si quelqu'un à une piste, je suis preneur.
Merci d'avance pour votre aide.

**Jean-Philippe André** · 24/08/2018, 18h57

Salut,

Envoyé par Excel'air

Target correspondait bien à une plage fusionné à cellule unique

une cellule unique fusionnée

**eriiic** · 24/08/2018, 19h27

Bonjour,

mettre le message de l'erreur peut aider non ?
Contrôle l'adresse de Target. Voir quand même s'il n'est pas Nothing ou une plage ou union de Range.
eric

**patricktoulon** · 24/08/2018, 19h30

amon avis il manque du code la on peut avoir les deux subs en question

j'ai l'impression que c'est juste une histoire d'agrument range qui est deja fusionné ou pas qui doit etre injecté dans la sub dans la quel tu a l'erreur
d'autant plus que dans ton code 1 tu fait target.merge et dans le traitement tu fait mergecells puis tu injecte ta selection sauf peu etre qu'il faut la réhinitialiser cette selection sinon c'est toujours une selection multicellule et non une fusion
bref c'est encore une histoire de l'oeuf ou la poule qui pete un oeuf

bien vu eriic j'avais meme pas vu

**Excel'air** · 27/08/2018, 09h00

Bonjour et merci à vous pour vos réponses,

En contrôlant l'adresse de la cellule, j'ai bien une adresse normale

Code :

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

$F$5:$F$7

,
c'est ensuite une erreur 1004 qui s'affiche

Erreur définie par l'application ou pas l'objet

.

Voici à quel moment je sélectionne ma plage de cellule que je fusionne ensuite dans la sub envoyé précédemment :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub NextSheetmodule(lineNum As Variant, colNum As Variant, ByVal module As Variant, nbjour As Integer)
Dim a As Range
Dim b As Range
Dim i As Variant
Dim FdayMSuiv As Integer
i = 1
FdayMSuiv = Weekday(DateSerial(2018, ActiveSheet.Index, 1), vbMonday)
Set a = Cells(lineNum, colNum)
 
 
Select Case FdayMSuiv
        Case 6
        nbjour = nbjour + 1
        Case 7
        nbjour = nbjour + 2
        End Select
While i <> nbjour
            If Weekday(DateSerial(2018, ActiveSheet.Index, lineNum + i - 2), vbMonday) <> 6 Then
 
            Set b = Cells(lineNum + i, colNum)
            Set b = Union(a, b)
            Set a = b
            i = i + 1
 
        Else
            Set b = Cells(lineNum + i, colNum)
 
            Set b = Union(a, b)
            Set a = b
            Set b = Cells(lineNum + i + 1, colNum)
            Set b = Union(a, b)
            Set a = b
            lineNum = lineNum + 2
        End If
Wend
module_merge2 a, module

**eriiic** · 27/08/2018, 09h16

bonjour,

dans l'aide il est bien dit qu'il lui faut une cellule unique, Tu lui en passes 3.
eric

**Excel'air** · 27/08/2018, 09h34

Bon je crois avoir trouvé la solution, j'ai remplacé

Code :

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

ajout_hotelnextsheet Selection

par

Code :

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

ajout_hotelnextsheet ActiveCell

et ça fonctionne.
Désolé du dérangement, je met le problème en résolu.

Merci à tous pour votre aide

**Excel'air** · 27/08/2018, 09h36

Envoyé par eriiic

bonjour,

dans l'aide il est bien dit qu'il lui faut une cellule unique, Tu lui en passes 3.
eric

Bonjour eriiic, oui je lui en passe 3, mais elles sont fusionnées. Je ne vois pas où se situait le problème.
En tout cas merci beaucoup, ça fonctionne.