Autres Copier des lignes fusionnées

  • Initiateur de la discussion Initiateur de la discussion Hadjila
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hadjila

XLDnaute Nouveau
Bonjour à tous,

Je chercher à copier des colonnes contenant des ligne fusionnées à la 1ère et 2ème colonne. Comment faire en VBA ?

Voici un exemple qui illustre le besoin avec le résultat souhaité dans la feuille Resultat.

Merci par avance pour votre aide
 

Pièces jointes

Bonjour Hadjila, bienvenue sur XLD,

Voyez le fichier joint et cette macro dans le code de la feuille "Résultat" :
VB:
Option Compare Text 'la casse est ignorée

Private Sub Worksheet_Activate()
Dim P As Range, i&, x$, j&, k%
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Set P = Sheets("Tableau 1").[A2].CurrentRegion
Sheets("Tableau 2").[A1].CurrentRegion.Copy [E1]
With [E1].CurrentRegion
    For i = 2 To .Rows.Count
        x = .Cells(i, 1)
        If x <> "" Then
            For j = 2 To P.Rows.Count
                If P(j, 5) = x Then
                    For k = 1 To 4
                        .Cells(i, k - 4) = P(j, k)
                    Next k
                    Exit For
                End If
            Next j
        End If
    Next i
    .Columns(1).AutoFill .Columns(-3).Resize(, 5), xlFillFormats 'copie les formats
    P.Rows(1).Resize(, 4).Copy .Cells(1, -3) 'en-têtes
    .Columns(0).NumberFormat = "dd/mm/yyyy" 'colonne D
End With
End Sub
Elle se déclenche quand on active la feuille.

Notez que les macros ne peuvent pas fonctionner sur SharePoint.

A+
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour