Creation des en-tete

hermann

XLDnaute Junior
Supporter XLD
Bonjour Monsieur,

S'il vous plait, comment peut t'on enserré les en-tête répétitif ?

Merci pour votre aide

@h
 

Pièces jointes

  • En-Tete.xlsx
    8.7 KB · Affichages: 50

job75

XLDnaute Barbatruc
Re : Creation des en-tete

Bonjour hermann,

Je suppose qu'au départ les lignes 15, 26, 37, etc... sont vides, alors utilisez :

Code:
Sub EnTetes()
Dim P As Range, Q As Range, col As Range
Set P = Range("A4:C" & Rows.Count) 'à adapter
On Error Resume Next
Set Q = P.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow
For Each col In P.Columns
  Intersect(col, Q) = col.Cells(1)
Next
End Sub
Fichier joint.

A+
 

Pièces jointes

  • En-Tete(1).xlsm
    26.7 KB · Affichages: 43

job75

XLDnaute Barbatruc
Re : Creation des en-tete

Bonjour hermann, hello MADA,

Merci pour le Like MADA mais bof il y a vraiment plus simple :

Code:
Sub EnTetes()
On Error Resume Next
With Range("A4:C" & Rows.Count) 'à adapter
  .Rows(1).Copy .Columns(1).SpecialCells(xlCellTypeBlanks)
End With
End Sub
A+
 

Pièces jointes

  • En-Tete(2).xlsm
    26.3 KB · Affichages: 37

Discussions similaires

Réponses
5
Affichages
613
Réponses
4
Affichages
225

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson