Conserver la mise en forme source sur une compilation d'onglets
Ced
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je chercher à compiler plusieurs onglets d'un fichier sur un seul onglet mais je ne parviens pas à conserver la mise en forme initiale de chaque colonnes. Au départ j'ai du monétaire, texte, pourcentage, date et à l'arrivée j'ai du heure de partout...
Pouvez-vous m'aider ???
Voilà le code que j'utilise :
Sub actualiser()
ligne = 1
nbcolonnes = 14
nomOnglet = ActiveSheet.Name
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
If .Name <> nomOnglet And ws.Name <> "IMPORT AS-TECH" And ws.Name <> "RECAP" Then
debut = 6
fin = .Cells(Rows.Count, 1).End(xlUp).Row
For i = debut To fin
For j = 1 To nbcolonnes
Cells(ligne, j) = .Cells(i, j)
Next
ligne = ligne + 1
Next i
End If
End With
Next
End Sub
Je chercher à compiler plusieurs onglets d'un fichier sur un seul onglet mais je ne parviens pas à conserver la mise en forme initiale de chaque colonnes. Au départ j'ai du monétaire, texte, pourcentage, date et à l'arrivée j'ai du heure de partout...
Pouvez-vous m'aider ???
Voilà le code que j'utilise :
Sub actualiser()
ligne = 1
nbcolonnes = 14
nomOnglet = ActiveSheet.Name
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
With ws
If .Name <> nomOnglet And ws.Name <> "IMPORT AS-TECH" And ws.Name <> "RECAP" Then
debut = 6
fin = .Cells(Rows.Count, 1).End(xlUp).Row
For i = debut To fin
For j = 1 To nbcolonnes
Cells(ligne, j) = .Cells(i, j)
Next
ligne = ligne + 1
Next i
End If
End With
Next
End Sub
A voir également:
- Conserver la mise en forme source sur une compilation d'onglets
- Mise en forme conditionnelle excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour windows 10 - Accueil - Mise à jour
- Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
Tu perds la mise en forme initiale présente dans l'onglet de destination?
Tu perds la mise en forme initiale présente dans l'onglet de destination?
Peux-tu partager ton fichier?
comment procède-t-on ?
ensuite tu publies ici un lien vers ce fichier.
Du fait j'ai trouver d'où venait le problème, j'avais en fait une macro pour compiler les onglets et une autre pour effacer la compilation et la macro pour effacer effaçait aussi le format des cellules ^^
Du fait petite correction du code avec ajout de la mention .ClearContents et le tour est joué.
Désolé pour le dérangement !
A bientôt