Modifier petite macro après fusion de celulle

[gourdin]

Bonjour,

Une petite macro (merci le forum) fonctionnait très bien mais je dois fusionner 2 celulles et la macro ne fonctionne plus.

Un petit exemple explicatif en fichier joint.

Merci de votre aide

 

[gourdin]

Re : Modifier petite macro après fusion de celulle

Bonsoir Gourdin,

Un essai en corrigeant ton énoncé qui ne me semblait pas clair.

Dis si c'est bon. Je suis un peu rouillé 😀

C'est parfait. MERCI BEAUCOUP
(par contre je ne comprends pas très bien le code)

 

[ROGER2327]

Re : Modifier petite macro après fusion de celulle

Bonsoir

Une autre solution :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Range("E4,G4").Value = ""
   If Target.Column <> 3 Then Exit Sub
   Range("E4").Value = Target.Offset(0, -1)
   Range("G4").Value = Target.Offset(0, -1).Offset(1, 0)
End Sub

ROGER2327

 

[gourdin]

Re : Modifier petite macro après fusion de celulle

bonsoir

une autre solution :

private sub worksheet_selectionchange(byval target as range)
   range("e4,g4").value = ""
   if target.column <> 3 then exit sub
   range("e4").value = target.offset(0, -1)
   range("g4").value = target.offset(0, -1).offset(1, 0)
end sub

roger2327

merci c'est parfait egalement