Lier cellules

Bonsoir,

Dans le fichier joint j'aimerai avoir une solution pour relier mes cellules,

en clair, si je déplace les cellules intitulées "23614" ou "53107" j'aimerai que les

cellules fusionnées en dessous suivent ce déplacement,

J'ai cherché mais je n'ai pas trouvé.

Merci de votre aide

Bonjour,

Et bien quand tu sélectionnes ta cellule, il te suffit de glisser d'un cran vers le bas et ensuite, de te positionner sur un des bords de la sélection et de déplacer l'ensemble !

Bonsoir jpvill, Theze ( ), le forum,

Un début de réponse....pour me prêter à l'exercice, mais je suppose qu'on peut faire mieux...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim lig As Integer, col As Integer, plage As Range
  With Sheets("Feuil1")
   With Target
    If Target.MergeCells Then
     If Not Target.Offset(-1, 0).MergeCells Then
           lig = .Row
           col = .Column
     Set plage = Range(Cells(lig + 1, col), Cells(lig + 10, col + 3))
       Union(Target, plage).Select
      End If
     End If
    End With
   End With
End Sub

Bonne soirée,

Bonjour Theze,

Merci pour ton retour, oui c'est ce que je fais mais je pensais qu'il y avait plus simple

Bonne journée

Bonjour xorsankukai,

Merci pour ton retour, j'ai essayé ta macro, mais message d'erreur sur

"erreur de compilation end sub" ?

Bonne journée

Re,

Merci pour ton retour,

j'ai essayé ta macro, mais message d'erreur sur

"erreur de compilation end sub" ?

Bizarre, je n'ai pas cette erreur sur mon excel (2010),

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim lig As Integer, col As Integer, plage As Range
  With Target
    If Target.MergeCells Then
     If Not Target.Offset(-1, 0).MergeCells Then
            lig = .Row
            col = .Column
     Set plage = Range(Cells(lig + 1, col), Cells(lig + 10, col + 3))
         Union(Target, plage).Select
      End If
     End If
   End With
End Sub

Lorsque je clique sur 23614 où 53107, je sélectionne bien l'ensemble des cellules....

Cordialement,