Cellule fusionnée non reconnue

[Magic_Doctor]

Bonjour à tous,

Je me heurte à un problème de cellule fusionnée dont les "caractéristiques" ne sont plus reconnues quand on la vide.

Ci-joint une feuille où je me suis efforcé d'expliquer le problème le mieux possible.

Merci pour toute aide.

Bonne journée.

 

[pierrejean]

Re : Cellule fusionnée non reconnue

bonjour Magic_Doctor

L'erreur n'est pas incomprehensible !!
En cas de cellule fusionnée Target comprend les 2 cellules (dans le cas qui nous occupe Target.Address renverrait E6:E7)
Il faut donc choisir la cellule qui interesse, dans ce Range (Rappel: Target est un Range) ce qui est possible par Target(1,1)

Et bravo pour t'inquieter d'un
On error resume Next
toujours a n'utiliser qu'avec parcimonie et a bon escient

 

[ROGER2327]

Re : Cellule fusionnée non reconnue

Bonjour Magic_Doctor, pierrejean

Essayez ceci :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal target As Range)

'Macro événementielle pour le contrôle des saisies

Dim longpre As Byte, longsuf As Byte, prefixe As String, suffixe As Byte

'Déclaration de la longueur du préfixe & du suffixe
longpre = 4: longsuf = 1

If Not Application.Intersect(target, Range("Dil1NbUXFl1, Dil1VolS1, Dil1NbGrS1, Dil1NbUXParGr1")) Is Nothing Then
    Application.EnableEvents = False
    
    'Déclaration du préfixe de toutes les cellules concernées
    prefixe = Left(target[COLOR="Red"].Cells(1, 1)[/COLOR].Name.Name, longpre)
    'Déclaration du suffixe de toutes les cellules concernées
    suffixe = Right(target[COLOR="Red"].Cells(1, 1)[/COLOR].Name.Name, longsuf)
    
    'Renvoie "prefixe" & "suffixe"
    Call ControleCellules(prefixe, suffixe)

    target.Select
End If


Application.EnableEvents = True
End Sub[/B][/COLOR]

(C'est la même réponse écrite autrement...)​

ROGER2327
#2839

 

[Magic_Doctor]

Re : Cellule fusionnée non reconnue

Merci pierrejean & ROGER2327 pour vos solutions identiques.
Puisque prefixe = Left(target(1, 1).Name.Name, longpre) équivaut à prefixe = Left(target.Cells(1, 1).Name.Name, longpre), j'en déduis que ".Cells" un peu comme lorsque l'on écrit, par ex. : [A1] = "ZAZA" et [A1].value = "ZAZA"

Concernant "On Error Resume Next", effectivement j'ai toujours considéré cette sentence comme une solution de fortune que l'on place en désespoir de cause.
Bien content de m'en être débarrassé.

Encore une fois, merci à tous les deux.

Bonne fin d'après-midi.

 

[ROGER2327]

Re : Cellule fusionnée non reconnue

Re...

Entièrement d'accord avec les remarques précédentes.
C'est avec ce genre de réflexions qu'on apprend vraiment comment fonctionne un langage.​

ROGER2327
#2841