suppression de lignes

Pierrot93

XLDnaute Barbatruc

• 5 Août 2009

• #2

Re : suppression de lignes

Bonjour jojo

si j'ai bien compris, tu sélectionnes les cellules en question => click droit => supprimer => décaler les cellules vers le haut...

bon après midi
@+

 

Vote positif 0 Vote négatif

J

jojojojojojo

XLDnaute Occasionnel

• 5 Août 2009

• #3

Re : suppression de lignes

Ca je connaissait, il y a pas un moyen de faire ca automatiquement quand j'appuie sur le bouton supprimer sur le clavier. Je sélectionne les cellules, j'appuie sur le bouton suppr du clavier et automatiquement les cellules vont vers le haut

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2009

• #4

Re : suppression de lignes

Perso pas d'autre solution...

 

Vote positif 0 Vote négatif

J

jojojojojojo

XLDnaute Occasionnel

• 5 Août 2009

• #5

Re : suppression de lignes

merci quand même pierrot,

j'attends des propositions

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2009

• #6

Re : suppression de lignes

Re

en attendant une autre solution, si elle existe, tu peux toujours te faire une petite macro avec l'enregistreur...

@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 5 Août 2009

• #7

Re : suppression de lignes

Bonjour Jo, Pierrot🙂

Code:

    Rows(ActiveCell.Rows.Row & ":" & ActiveCell.Rows.Row).Delete Shift:=xlUp

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 5 Août 2009

• #8

Re : suppression de lignes

Bonjour à tous

La procédure

Code:

[COLOR="DarkSlateGray"]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim oCel As Range, tf As Boolean
   tf = True
   For Each oCel In Rows(Target.Row).Cells
      tf = tf And IsEmpty(oCel)
   Next oCel
   If tf Then
      Rows(Target.Row).Delete Shift:=xlUp
      Cancel = True
   End If
End Sub[/COLOR]

placée dans un module de feuille efface la ligne dans laquelle on double clique, si toutes les cellules de la ligne sont vides.
A tester...​

ROGER2327

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Août 2009

• #9

Re : suppression de lignes

Re, bonjour Michel🙂, Roger

aarf, il me semble bien que jojo ne veut pas supprimer la ligne complète :

et ce sans être obligé de supprimer une ligne complète du tableur;

Cliquez pour agrandir...

si c'est le cas, la suivant devrait suffire, enfin me semble t-il...

Code:

Selection.Delete Shift:=xlUp

@+

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 5 Août 2009

• #10

Re : suppression de lignes

Ah bravo Pierrot, tu es trop fort. Tu vois tout.

sinon

Code:

SendKeys ("^-~")

 

Vote positif 0 Vote négatif

J

jojojojojojo

XLDnaute Occasionnel

• 5 Août 2009

• #11

Re : suppression de lignes

Merci pour vos propositions mais faudrait préciser en plus du code oùu il faut le mettre même si je me doute que c'est dans le code de la feuille concernée. Et également le début et la fin du code svp?

De plus j'ai essayé toutes vos propositions mais yen a pas une qui a marché.

 

Vote positif 0 Vote négatif

X

XL_Luc

XLDnaute Occasionnel

• 5 Août 2009

• #12

Re : suppression de lignes

La macro de Roger (qui est complète) ce place dans l'explorateur de macro (ALT+F11) directement dans l'objet feuille (par exemple Feuil1(Feuil1) pour un nouveau classeur)

L'execution est automatique, il suffit de double cliquer sur une cellule pour supprimer toute la ligne si elle est entièrement vide.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 5 Août 2009

• #13

Re : suppression de lignes

Re:

De plus j'ai essayé toutes vos propositions mais yen a pas une qui a marché.

Cliquez pour agrandir...

CQFD.

 

Vote positif 0 Vote négatif