Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1502 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Annuler une fusion et ré-écrire les données dans les cellules vides

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Annuler une fusion et ré-écrire les données dans les cellules vides

n°2296543
ehit
Posté le 16-02-2017 à 16:59:04  profilanswer
 

Hello tous,
 
Votre aide me serait très bénéfique!
 
Je possède un tableau d'a peu près 40 000 lignes que je souhaite utiliser en base de données. cependant, j'ai des lignes fusionnées dans ma 1ère et 2ème colonne.
J'ai donc besoin d'annuler la fusion de ces lignes mais également de ré-écrire les données dans les cellules dé-fusionné devenue vide.
J'utilise donc la macro ci-dessous, trouvée sur internet:
 
Sub FindMergedCellsUnmergeThemAndFillThem()
 Dim MergedCell As Range, FirstAddress As String, MergeAddress As String, MergeValue As Variant
 Application.FindFormat.MergeCells = True
 Do
 Set MergedCell = ActiveSheet.UsedRange.Find("", LookAt:=xlPart, SearchFormat:=True)
 If MergedCell Is Nothing Then Exit Do
 MergeValue = MergedCell.Cells(1).Value
 MergeAddress = MergedCell.MergeArea.Address
 MergedCell.MergeArea.UnMerge
 Range(MergeAddress).Value = MergeValue
 Loop
 Application.FindFormat.Clear
 End Sub

 
Elle marche. Mais le temps de chargement est TRES long.
 
Quelqu'un saurait il m'aider pour optimiser cette macro?
 
Merci !
 

mood
Publicité
Posté le 16-02-2017 à 16:59:04  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Annuler une fusion et ré-écrire les données dans les cellules vides

 

Sujets relatifs
Script d'extraction de donnéesAgrégateur de données orienté réseau
Transfert de données Excel WEBMacro VBA pour écrire du code Macro ImageJ
interface web reliée à base de données sql[JQueryUI] Envoi données javascript en BDD
Ecrire un secteur d'amorçage sur mon disque dur sous WindowsVBA Lien entre 2 cellules feuille différente
Sélection des cellules via une boîte de dialogueFusion de lignes sur excel
Plus de sujets relatifs à : Annuler une fusion et ré-écrire les données dans les cellules vides



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR