erreur 1004 fusion

GHISLAIN

XLDnaute Impliqué
Bonsoir les Exceliens,


j'ai besoin de fusionner et de fusionner des cellules quand elles sont actives et pas toujours au même endroit .
J’obtiens lors de la fusion une erreur 1004 , erreur défini par l'application ou l'objet.

j'ai testé :

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-1, 0)).Merge

ensuite en sélectionnant les cellules avant :

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-1, 0)).Select
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-1, 0)).merge


ensuite en déclarant :
Dim i As Long, x As Integer, y As Integer
i = 1
x = -1
y = O

Range(ActiveCell.Offset(y, y), ActiveCell.Offset(x, y)).merge



mais rien a faire j'ai toujours l'erreur 1004



Nb suivant la cellule qui est active j'ai besoin de fusionner soit avec la cellule du bas ou la cellule haut


Merci a tous de votre aide

Bien amicalement


Ghislain
 

Roland_M

XLDnaute Barbatruc
re

je ne vois pas ce qui change !?

que ce soit
.Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-1, 0)).MergeCells = True

ou avec I=-1
.Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(i, 0)).MergeCells = True

c'est exactement pareil !
ça fait toujours ligne actuelle -1 et comme je te l'ai dis si la cellule active est sur la 1'ligne alors - 1 ça va planter !
 

GHISLAIN

XLDnaute Impliqué
re ,
du coup je pallie au souci de la façon suivante

' cellule bas
If InRange(ActiveCell, Range("C8:eek:8")) Or _
InRange(ActiveCell, Range("C10:eek:10")) Or _
InRange(ActiveCell, Range("C12:eek:12")) Or _
InRange(ActiveCell, Range("C14:eek:14")) Or _
InRange(ActiveCell, Range("C16:eek:16")) Then
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(1, 0)).Merge
end if

'cellule haut
If InRange(ActiveCell, Range("C7:eek:7")) Or _
InRange(ActiveCell, Range("C9:eek:9")) Or _
InRange(ActiveCell, Range("C11:eek:11")) Or _
InRange(ActiveCell, Range("C13:eek:13")) Or _
InRange(ActiveCell, Range("C15:eek:15")) Then
If ActiveCell = "" And ActiveCell(2, 1) = "" Then

Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 0)).Merge
End If
ActiveCell.Select
End If
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson