Copie selective de cellules

[tekmars]

Bonjour,

J’ai un tableau de plus de 7000 lignes dont ci-joint un extrait sur 40 lignes

Je souhaite copier par macro des éléments figurant à l’entête de chaque bloc (voir résultat en bleu à l’anglet APRES).

Puis faire une autre macro pour supprimer uniquement les éléments précédemment copiés.

NB : les blocs n’ont pas toujours le même nombre de lignes.

Merci d’avance pour votre aide.

tekmars.

 

[CBernardT]

Re : Copie selective de cellules

Bonjour tekmars,

Un essai avec deux boutons distincts.

De plus, j'ai mis le format des cellules en "Texte" et l'alignement vertical du texte en "Centré".

 

[Efgé]

Re : Copie selective de cellules

Bonjour tekmars, CBernardT,
Trop tard, mais comme j'ai fait quelque chose, je le poste. Avec la même idée pour les couleurs:

[COLOR=blue]Sub[/COLOR] Ajout()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Avant")
    DrLgn = .Cells(65000, 1).End(xlUp).Row
        [COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] .Range("C3:J" & DrLgn & ",Q2:Q" & DrLgn)
            [COLOR=blue]If[/COLOR] .Cells(c.Row, 2) <> "" [COLOR=blue]And[/COLOR] c.Value = "" [COLOR=blue]Then[/COLOR] c.Value = c.Offset(-1, 0).Value: c.Font.ColorIndex = 5
        [COLOR=blue]Next[/COLOR] c
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

[COLOR=blue]Sub[/COLOR] Retour()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Avant")
    DrLgn = .Cells(65000, 1).End(xlUp).Row
        [COLOR=blue]For Each[/COLOR] c [COLOR=blue]In[/COLOR] .Range("C3:J" & DrLgn & ",Q2:Q" & DrLgn)
            [COLOR=blue]If[/COLOR] c.Font.ColorIndex = 5 [COLOR=blue]Then[/COLOR] c.Value = ""
        [COLOR=blue]Next[/COLOR] c
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[tekmars]

Re : Copie selective de cellules

Bonjour CBernardT, bonjour Efgé,

Un grand merci à vos deux, c'est vraiment parfait.

Ce tableau m'a pourri la vie pendant des heures et des heures...

C'est tout simplement GÉNIAL ce que vous venez de réaliser

Encore merci.

tekmars.