VBA : Copier-coller une cellule fusionnée

Bonsoir,

Afin d'aider un autre membre, j'ai créé une macro, mais je bloque sur un point.

Je souhaiterais, sur la base des références à la première cellule de la cellule fusionnée, copier-coller toute les cellules concernées.

Dans mon exemple, je voudrais copier les cellules H6:L6 de la feuille ''Provisoire'' et que le collage sur la feuille "Base" se fasse également sur H6:L6 et non pas seulement sur H6.

Le bouton pour lancer la macro se trouve sur la feuille ''Provisoire''.

A vous relire.

5demo-forum.xlsm (53.46 Ko)

Bonjour Yvouille,

pour recopier, je ferais ceci

Sub recopieplagesfusionnees()
Dim plage As String, lig%, col%
    Sheets("Provisoire").Select
    For lig = 5 To 10
        For col = 3 To Range("GD5").Column
            ' la cellule fait-elle partie d'une fusion ?
            If Cells(lig, col).MergeCells Then
                ' je sauvegarde l'adresse (c'est du texte-string)
                plage = Cells(lig, col).MergeArea.Address
                ' la cellule est-elle la première ?
                If Cells(lig, col).Address = Split(plage, ":")(0) Then
                    ' je défusionne
                    Range(plage).UnMerge
                    ' je copie la première cellule
                    Cells(lig, col).Copy Destination:=Sheets("Base").Cells(lig, col)
                    ' je refusionne sur les 2 feuilles
                    Sheets("Base").Range(plage).Merge
                    Range(plage).Merge
                End If
            End If
        Next
    Next
End Sub

la feuille cible ne doit pas comporter de fusion dans la zone considérée, sinon défusionner auparavant cette zone

Bonjour Steelson

J'avais fais simple avec une procédure partant de la cellule référence

Salut

10demo-forum01.xlsm (53.65 Ko)

Merci à tous les deux pour vos idées. Je vais creuser un peu tout ça.

@ Toukoul,

Je n'ai pas compris la nécessité de passer par la macro événementielle Worksheet_Change. Tu peux m'en dire deux mots, s'il-te-plait ?

Amicalement.

Bonjour Yvouille

Ma procédure Essai n'utilise pas Worksheet_Change

Et c'est la seule chose que j'ai rajouté

Après vérif. c'est vrai il y a une procédure à ce titre mais elle était là lors de ton premier envoi.

Cdt

Salut Toukoul et salut à Steelson malgré son absence pour visite de cette sorte de Paradis

Merci à Toukoul pour ces explications complémentaires. Effectivement que c'est un fichier que j'ai récupéré et je n'avais pas remarqué auparavant qu'il y avait déjà cette macro en place.

Si vous allez voir la solution proposée à cet autre membre, j'ai finalement pris la solution de Toukoul que je suis arrivé plus rapidement à mettre en place.

Bien sincèrement à tous deux.

Rechercher des sujets similaires à "vba copier coller fusionnee"