Forums XLPages

Excel & VBA Forum principal Macro pour suppression de lignes

Macro pour suppression de lignes
#1
Sylcoco
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 20-02-2011 17h02
 

Bonjour,

En A1:A10 des noms; B1:B10 des valeurs dont certaines sont égales à 0. Qu'elle serait la macro qui permettrait de supprimer les lignes contenant la valeur 0 en B:

D'avance merci pour votre aide,

Sylvain
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#2
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 20-02-2011 19h32
Bonjour Sylvain,

S'agira-t-il de parcourir B1:B10 pour y repérer les zéros ou bien de supprimer la lignes entière sitôt qu'un zéro est inscrit en lignes 1:10 colonne B?

Cordialement,

Guy

Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#3
Sylcoco
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 20-02-2011 19h57
Guy,

Le souhait étant de supprimer la ou les lignes contenant un 0 en B

Sylvain
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#4
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 20-02-2011 20h09
Bonjour Sylvain,

Quelque chose comme
Sub SupprimerB1B10()

  Dim Plage As Range
  Dim Cellule As Range
 
  ' Feuil1 est et doit être le nom de code de la feuille visée
  ' Si ce n'est pas le cas modifier en conséquence.
    Set Plage = Feuil1.Range("B1:B10")
   
    For Each Cellule In Plage.Cells
     
      If Cellule = 0 Then
     
        Cellule.EntireRow.Delete
       
      End If
     
    Next
 
End Sub
 
devrait faire l'affaire je crois.

Cordialement,

Guy

P.S. On peut aussi supprimer la ligne lorsqu'un zéro est saisi en colonne B sans qu'il soit nécessaire de parcourir B1:B10.

Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#5
Sylcoco
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 20-02-2011 21h01
Merci Guy, je teste.

Sylvain
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#6
Sylcoco
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 20-02-2011 21h36
Guy,

J'ai testé. Celà fonctionne avec la plage B1:B10. Par contre si j'augmente la plage, B1:B30 par exemple, il n'y a que quelques lignes qui sont supprimées!

Sylvain
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#7
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 20-02-2011 21h47
Bonjour Sylvain,

Ben oui. C'est que tu cherches à être général et tu poses une question particulière. Bref, si tu bricoles une plage dynamique en colonne B tu n'auras qu'à remplacer

Set Plage = Feuil1.Range("B1:B10")
par
Set Plage = Feuil1.Range("UnePlageDynamique")
et UnePlageDynamique aura la forme
=DECALER(Feuil1!$B$1;;;NBVAL(Feuil1!$B:$B))
à condition que cette fois Feuil1 soit le nom d'onglet de la feuille en question et qu'aucune cellule vide ne soit intercalée dans cette plage.

Pour définir la plage : menu Insertion/Nom/Définir... saisir Nom dans le claseur : UnePlageDynamique et Fait référence à : =DECALER(Feuil1!$B$1;;;NBVAL(Feuil1!$B:$B))  selon ce qui est indiqué et le tour est joué.

Cordialement,

Guy
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#8
Sylcoco
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 20-02-2011 22h06
Bonsoir Guy,

Je prend note de ta solution.
J'avais donné la plage A1:A10 pensant qu'il serait "simple" de modifier cette plage et de l'adaptée aux besoin.
En l'occurence la plage réelle pour laquelle doit s'appliquer cette macro est D1:D300

Sylvain
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#9
Guy
Accro XLPages

Inscription: 09/01/2008
De Montréal, Québec

Messages: 463

Système d'exploitation:
PC
Version Excel utilisée:
97 à 2016
Posté le : 20-02-2011 22h08
Alors bricole-toi une plage dynamique en D...

Guy
Image redimensionnée

2pme
Hors Ligne
 Rapport   Haut 

Re: Macro pour suppression de lignes
#10
Sylcoco
Régulier XLPages

Inscription: 12/02/2010
De Rhône-Alpes

Messages: 42

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010,2016,2019
Posté le : 20-02-2011 22h44
Guy bonsoir,

Merci pour l'aide, je vais essayer.

Sylvain
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes