Copier une valeur dans une cellule fusionnée

Salut,

Si tu peux dé-fusionné ta cellule tu peux contourner l'erreur avec on error.

Voici un exemple de prog mais faut l'adapter à tes besoins.

On Error GoTo erreur 'en cas d'erreur j'envoi le prg à l'étiquette erreur:
Application.DisplayAlerts = False
debut:
Range("C2").Select 'ici je sélection la cellule C2
Selection.Copy 'j'en fais une copie
Range("C6").Select 'je sélectionne la cellule C6
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False 'je copie la valeur et non la formule
Application.DisplayAlerts = True
Exit Sub'ici je sors de la procédure pour ne pas exécuter la suite (seulement exécutée en cas d'erreur)

erreur: 'ici c'est l'étiquette où le prg est envoyé en cas d'erreur
Range("C6").Select
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Resume debut 'ici je renvoi le prg à l'étiquette debut:

Bonne soirée.

John

Salut John,

Merci pour ton aide. Effectivement, je suis en mesure de pouvoir annuler la fusion en cours de programme.

Le tout était d'y penser, une fois de plus !!!

Bravo à toi pour cet éclaicissement et bonne continuation.

Ciao,
Eric

salut eric et le foum
tu peu egalement essayer ceci


dim cont as string


range("A1").select si A1 est la cellule a formule
cont = selection.value
range("A2").select si A2 est la cellule fusionnée receptrice
selection.value=cont
bons test
salut eric

Salut Renato,

Splendide, c'est au poil !
Et de plus cela réduit le code.

Merci beaucoup,
à la prochaine,
Eric