Automatiser des modif sur tableau Excel

Bonjour,

Mon tableau comporte environs 6000 lignes.

C'est un répertoire d'enregistrements d'émissions TV sur dvd.

La colonne A = N° du dvd / B = N° de repère de l'émission / C = Catégorie ( doc, film, folk etc.)

+ 8 autres colonnes...

Je voudrais le modifier pour, d'une part, intercaler une ligne vide entre chaque N° de dvd, et,

d'autre part, reclasser mes repères d'émissions dans un ordre croissant car, au cours d'une opération (?)

ces repères ce sont déclassés dans chaque groupe de dvd...

Je sais effectuer ces opérations manuellement pour chaque groupe de dvd, mais.

sachant que mon tableaux comporte pas loin de 1000 dvd, l'opération de modif serait trés longue et fastidieuse !...

La question est : y aurait-il un moyen d'automatiser ces deux opérations, à savoir :

• intercaler une ligne vide entre chaque dvd (pour rendre plus lisible mon tableau)
• reclasser dans l'ordre mes repères d'émissions.

Merci d'avance pour votre aide.

Salut papillon,

code à coller dans le module VBA de la feuille concernée.

• ALT-F11 pour entrer dans l'éditeur VBA ;
• double-clic sur le nom de la feuille dans l'explorateur de projet à gauche ;
• coller le code tel quel à droite ;
• enregistrer le fichier sous type XLSM (prenant en charge les macros).

Un double-clic en ligne 1 démarre la macro aussi souvent que souhaité.

J'imagine que ta première ligne est constituée d'en-têtes sinon il faudra modifier légèrement le code!

Je n'ai pas inséré de ligne entre tes données : la dernière instruction modifie la hauteur de chaque ligne. A toi de la régler selon tes besoins!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
If Not Intersect(Target, Rows(1)) Is Nothing Then
    Cancel = True
    Range("A1:Z" & Range("A" & Rows.Count).End(xlUp).Row).Sort _
        key1:=Range("A2"), order1:=xlAscending, _
        key2:=Range("B2"), order2:=xlAscending, _
        key3:=Range("C2"), order3:=xlAscending, _
        orientation:=xlTopToBottom, Header:=xlYes
        Rows.RowHeight = 35
End If
'
End Sub

A+

Merci beaucoup Curulis,

Désolé de te répondre avec quelques ( ) jours de retard.

Car, avant de voir ta réponse, je me suis tapé manuellement toutes mes modif (une semaine de boulot !..).

Néanmoins, je garde précieusement tes indications que je réutiliserais à une autre occasion ou pour un autre

tableau.

Je vais tout de même effectuer un test pratique pour voir si çà fonctionne et reviendrais ici pour le résultat.

Cordialement et à plus.