Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3645 connectés 

 


Dernière réponse
Sujet : supprimer des lignes suivant conditions ds Excel
bikerman

pupoul a écrit a écrit :

Joli coup bikerman !
 :jap:  




Merci, merci, ça me détend de faire ça  :jap:  :benetton:  :sol:


Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
bikerman

pupoul a écrit a écrit :

Joli coup bikerman !
 :jap:  




Merci, merci, ça me détend de faire ça  :jap:  :benetton:  :sol:

Pupoul Joli coup bikerman !
 
 :jap:
Tbeau CA MARCHE MERCI A TOUS !!!!!!!!!   :D
bikerman Tu ouvres ton fichier Excel, puis menu outils, macro, Visual Basic Editor. Dans l'éditeur VB qui vient de s'ouvrir, tu vérifies dans la fenêtre en haut à gauche que tu es bien sur ton fichier puis menu insertion, module et dans la fenêtre qui vient de s'ouvrir tu colles le code donné plus haut. Retour sous Excel, menu outils, macro, macros ... et tu sélectionnes "delete_ligne"
Tbeau merci beaucoup Bikerman,
 
bon je suis un gros newbie en VB, je le mets ou ton code ????
Je ne trouve pas comment l'executer... :pt1cable:
 
 

bikerman a écrit a écrit :

Essai ça:
 
Sub delete_ligne()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 6600
    If (Cells(i, 14) = 0 And (Cells(i, 11) = 2 Or Cells(i, 11) = 3 Or Cells(i, 11) = 4 Or Cells(i, 11) = 5 Or Cells(i, 11) = 6)) Then
    Cells(i, 1).EntireRow.Delete
    i = i - 1
    End If
Next
Application.ScreenUpdating = True
End Sub
 
A recopier dans un module Excel (c'est bourin, fait en dix secondes mais ça doit fonctionner)



bikerman Essai ça:
 
Sub delete_ligne()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 6600
    If (Cells(i, 14) = 0 And (Cells(i, 11) = 2 Or Cells(i, 11) = 3 Or Cells(i, 11) = 4 Or Cells(i, 11) = 5 Or Cells(i, 11) = 6)) Then
    Cells(i, 1).EntireRow.Delete
    i = i - 1
    End If
Next
Application.ScreenUpdating = True
End Sub
 
A recopier dans un module Excel (c'est bourin, fait en dix secondes mais ça doit fonctionner)
Tbeau Et comment tu fais avec VB ???
 

pupoul a écrit a écrit :

Bin, y'a pas beaucoup d'autres solutions que de passer par le VB intégré d'EXCEL.
 
C'est pas trop compliqué, une fois pigé comment on fait pour dimensionner ta feuille excel.



Pupoul Bin, y'a pas beaucoup d'autres solutions que de passer par le VB intégré d'EXCEL.
 
C'est pas trop compliqué, une fois pigé comment on fait pour dimensionner ta feuille excel.
Tbeau j'arrive a le fair sur deux colonnes mais pas a recouper les conditions
 
si ma première colonnes = 0 je ve la masquer que si la deuxième est différente de 1 en fait
jicee

Tbeau a écrit a écrit :

g essayé mais on peut pas recouper les conditions sur deux colonnes ...




 
ben normalement si tu crée un filtre automatique toutes tes colonnes en sont équipés alors tu peux vraiment faire ce que u veux

Tbeau g essayé mais on peut pas recouper les conditions sur deux colonnes ...
jicee crée des filtres en haut de tes colonnes
Tbeau Bon j'espère que je vais reussir a me faire comprendre :
 
G un tableau Excel de 6600 lignes
et je souhaite suprimer tt les lignes ds lequel ces condition se recoupent :
 
- colonne K = 2; 3; 4; 5 ou 6
- colonne N = 0
 
Ya moyen vous croyez ??? :eek2:  
Merci Beaucoup

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)