erreur 1004 fusion

Roland_M

XLDnaute Barbatruc

• 18 Novembre 2016

• #2

Bonsoir

il faudrait déjà vérifier la cellule Active !?
msgbox ActiveCell.address

pour voir si on est pas en Ligne1 ou/et Colonne1
auquel cas ActiveCell.Offset(-1, 0)).Merge ! le (-1) cause forcément une erreur !?

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 18 Novembre 2016

• #3

Re,

je crois que j'ai trouvé

Dim i As Integer 'Merge first columns
i = -1
With ActiveSheet
.Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(i, 0)).MergeCells = True
End With
sauf erreur de ma part

si ca peut servir

Merci

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 18 Novembre 2016

• #4

Bonsoir Roland_M,

Merci de passer sur mon fil ,
je ne comprends pas pourquoi chercher l'adresse , et surtout comment utiliser cette adresse .
que penses tu de ce que j'ai trouvé ?

Amicalement

Ghislain

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 18 Novembre 2016

• #5

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 !

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 18 Novembre 2016

• #6

re

je viens de tester ceci
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(-1, 0)).Merge
en étant sur une cellule autre que sur la ligne 1 c'est ok !
si je suis sur la 1'ligne = plantage ! et c'est normale, puisque ça donne ligne 0 !

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 18 Novembre 2016

• #7

Re,

et bien tu as raison ça n'a fonctionné qu'une fois , après même erreur .....
je ne vois pas comment faire

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 18 Novembre 2016

• #8

re

avec ce que tu donnes comme info on ne peut guère tirer de conclusion !

EDIT:
pour éviter les erreurs il te faut tester la ligne sur laquelle est placée la cellule active, avec ActiveCell.Row

 

Dernière édition: 18 Novembre 2016

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 18 Novembre 2016

• #9

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

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

'cellule haut
If InRange(ActiveCell, Range("C7😱7")) Or _
InRange(ActiveCell, Range("C9😱9")) Or _
InRange(ActiveCell, Range("C11😱11")) Or _
InRange(ActiveCell, Range("C13😱13")) Or _
InRange(ActiveCell, Range("C15😱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

 

Vote positif 0 Vote négatif

G

GHISLAIN

XLDnaute Impliqué

• 18 Novembre 2016

• #10

Désolé du peu d'éléments , si joint un fichier de ce que je souhaite

 

Pièces jointes

• Fusion.xlsm

  13.6 KB · Affichages: 23

Vote positif 0 Vote négatif