Suppression de ligne sur excel
mimie42
Messages postés
25
Statut
Membre
-
gwenfreddy Messages postés 27 Date d'inscription Statut Membre -
gwenfreddy Messages postés 27 Date d'inscription Statut Membre -
Bonjour,
j'ai un problème.je me situe dans un tableau excel et je voudrai supprimer des lignes car ce tableau est un suivi commande et on bout d'un moment et à force de rentrer des commandes les lignes vont s'accumuler. Je voudrai alors au bout d'un certain nombre de ligne supprimer les lignes les plus anciennes.
Merci d'avance pour votre reponse
j'ai un problème.je me situe dans un tableau excel et je voudrai supprimer des lignes car ce tableau est un suivi commande et on bout d'un moment et à force de rentrer des commandes les lignes vont s'accumuler. Je voudrai alors au bout d'un certain nombre de ligne supprimer les lignes les plus anciennes.
Merci d'avance pour votre reponse
Configuration: Windows XP Internet Explorer 7.0
5 réponses
-
clique droit supprimer ligne
ou vas dans l'onglet insertion en haut de la page pour supprimer le ligne
cordialement -
j'ai oublier de preciser que je voudrai que cela s'execute autmatiquement.
-
oupps
ca je ne sais pas comment on fait
désolée
cordialement
gwen -
oupps
ca je ne sais pas comment on fait
désolée
cordialement
gwen -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
voila ce que j'ai pu trouver
j'espère que cela t'aidera
désolé c'est un copier coller
Voici une petite macro, avec une petite boîte qui s'ouvre pour que tu indiques le numéro de la colonne concernée (si A mettre 1, si B mettre 2 , si C mettre 3 etc...Cela parce que je ne connaissais pas le Numéro de la colonne qui contiendrait les valeurs 0
Sub SupprLigneCellZero_NumCol_a_definir()
Dim NumColonne As Long
Dim x As Long
Dim y As Long
NumColonne = Application.InputBox(Prompt:="Numéro de Colonne Concernée ?", Default:=NumColonne, Type:=1)
If NumColonne = 0 Then Exit Sub
x = Range("A65536").End(xlUp).Row
For y = x To 1 Step -1
If Cells(y, NumColonne).Value = 0 Then
Rows(y).Delete
End If
Next y
End Sub
J'espère que cela fonctionnera comme tu le souhaites (à tester bien évidemment sur une copie du fichier pour ne pas prendre de risque ;-)) )
Bonne
