Copier une valeur dans une cellule fusionnée

[Eric D]

Salut les Cracks !

Auriez-vous en stock un petit morceau de code pouvant copier la valeur (et non la formule) d'une cellule simple dans une cellule fusionnée sans qu'apparaisse le message d'amour suivant "Cette opération requiert que les cellules fusionnées soient de taille identiques"?

Merci d'avance pour vos tuyaux et bonne soirée,
Eric

 

[john]

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

 

[Eric D]

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

 

[renato]

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

 

[Eric D]

Salut Renato,

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

Merci beaucoup,
à la prochaine,
Eric