Supprimer des cellules entre deux cellules

[Henriett]

Bonjour,

J' aimerais pouvoir supprimer des cellules entre deux cellules grâce à une macro ou formule. J' ai joint un fichier expliquant un peu mieux mon besoin.

Bonne après-midi à tous,

 

[Grand Chaman Excel]

Re : Supprimer des cellules entre deux cellules

Bonjour Henriett,

Voici un exemple par formule :

 C1 = DECALER(A1;LIGNE()*5-5;0)

à glisser vers le bas.
Ensuite, faire un collage spécial pour ne conserver que les valeurs si nécessaire.

A+

 

[CISCO]

Re : Supprimer des cellules entre deux cellules

Bonjour

Peut être avec, en I1 :

SI(LIGNE()<LIGNES(A$1:A$30)/5+1;INDEX(A$1:A$30;1+(LIGNE()-1)*5);"")

@ plus

P.S : Il faut vérifier le test du début, pour être sûr d'afficher toutes les valeurs désirées, sans oublier la dernière.

P.S : Bonjour Grand Chaman

 

[Dull]

Re : Supprimer des cellules entre deux cellules

Salut Henriett, GCE , Cisco , le Forum

Et par Macro cela pourrait ressembler à ça

Sub EssaI()
Dim i As Long
For i = Feuil1.Range("E65536").End(xlUp).Row To 2 Step -1
    If Cells(i, 5) = "" Then Cells(i, 5).Delete
Next i
End Sub

Code à mettre dans un Module Standard

Bonne Journée

 

[pierrejean]

Re : Supprimer des cellules entre deux cellules

Bonjour à tous

Je l'ai fait, je le poste

Je regarde ton oeuvre Ami Dull

 

[Henriett]

Re : Supprimer des cellules entre deux cellules

Re,

C' est parfait, ça marche

Merci Grand Chaman, Cisco, Dull et Pierre-Jean.

A+

 

[Henriett]

Re : Supprimer des cellules entre deux cellules

Re,

Et quelle serait le formule si au lieu de faire face à des cellules, je faisais face à des lignes ( supprimer les 5 lignes après la première ligne...) ?