Fusionner des lignes dans 2 colonnes différentes en VBA

Bonjour,

Sur une feuille j'ai les colonnes de "A" à "E" qui sont fusionnées. Les 3 autres colonnes ne sont pas fusionnées.

Comment faire pour fusionner les 3 cellules des colonnes "H", "K", "N" par code VBA ?

Je pensais faire une boucle mais je sèche !!!

Merci pour votre aide

Bonjour,

Je n'ai pas de PC avec moi, mais active l'enregistreur de macro dans développeur, selectionne les trois cellules, fusionne les et arrete l'enregistreur.

Tu devrais retrouver la prog pour ces trois cellules, adapte le pour les colonnes

Bonjour,

Cela sert à quoi de fusionner ?

Sinon poste un bout de fichier si tu n'as pas réussi à la faire comme préconise Moul

Bonjour Uzu13160, le Forum

Si tu as déjà des cellules fusionnées. Il suffit d'en copier le format.

En supposant que le début est en ligne 3.

Sub CopFormat()

Dim Plage as Range

DerLig=Range("E" & Rows.count).End(xlup).Row + 2

Set Plage = Range ("E3:" & DerLig)

Plage.Copy Range("H3:H" & DerLig):Range("H3:H" & DerLig).ClearContents

Plage.Copy Range("K3:K" & DerLig):Range("K3:K" & DerLig).ClearContents

Plage.Copy Range("N3:K" & DerLig):Range("N3:N" & DerLig).ClearContents

End sub

Adapter ensuite la ligne de début pour ne pas effacer certaines données déjà entrées en colonne H, K,N

Bons tests, bonne continuation.

Merci Steelson pour la réponse, en fait à la base je veux pas fractionner, c'est quand je récupère un fichier HTML sur le Net qu'il se formate comme ça !

Alors pour le faire propre je voulais fractionner ces 3 colonnes pour ensuite supprimer toutes des cellules fractionnées.

Voici le code que j'utilise pour récupérer mon tableau :

    With Sheets("Imports").QueryTables.Add(Connection:="URL;http://xxx/listing.htm" _
        , Destination:=Sheets("Imports").Range("$A$1"))
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Peut-être y a plus simple ??

uzu13160 a écrit :

Merci Steelson pour la réponse, en fait à la base je veux pas fractionner, c'est quand je récupère un fichier HTML sur le Net qu'il se formate comme ça !

Alors pour le faire propre je voulais fractionner ces 3 colonnes pour ensuite supprimer toutes des cellules fractionnées.

Peut-être y a plus simple ??

Ok, merci pour ce retour, en effet on est parfois tributaire de la mise en page web

Dans ce cas j'aurais tendance à défusionner (UnMerge) et supprimer ensuite les lignes vierges.

Pour internet, j'utilise de préférence ceci https://www.excel-pratique.com/fr/telechargements/macros/tables-html-site-excel-no432 à QueryTables