supprimer des lignes suivant conditions ds Excel
supprimer des lignes suivant conditions ds Excel - Windows & Software
Marsh Posté le 02-07-2002 à 15:05:15
g essayé mais on peut pas recouper les conditions sur deux colonnes ...
Marsh Posté le 02-07-2002 à 15:08:16
| 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
Marsh Posté le 02-07-2002 à 15:10:47
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
Marsh Posté le 02-07-2002 à 16:01:28
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.
Marsh Posté le 03-07-2002 à 09:38:31
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. |
Marsh Posté le 03-07-2002 à 09:50:00
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)
Marsh Posté le 03-07-2002 à 10:09:38
merci beaucoup Bikerman,
bon je suis un gros newbie en VB, je le mets ou ton code ????
Je ne trouve pas comment l'executer... 
| 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) |
Marsh Posté le 03-07-2002 à 10:19:42
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"
Marsh Posté le 03-07-2002 à 10:46:59
CA MARCHE MERCI A TOUS !!!!!!!!! 
---------------
See ya' Tbeau
Marsh Posté le 03-07-2002 à 11:03:45
| pupoul a écrit a écrit : Joli coup bikerman !  |
Merci, merci, ça me détend de faire ça 
Sujets relatifs:
- est il possible d avoir 2 lignes adsl chez soi ?
- Comment supprimer une clé de registre protégée?
- Pb Excel
- Supprimer l'accès à un disque local sur XP
- Comment faire sous excel ....
- Erreur "Format de fichier Copie externe : non valide" en excel
- ma petite question du jour (excel) :o) // j'ai trouvé
- comment supprimer anonymizer ?
- convertir des fichiers en fichiers compatible excel ?
- Supprimer les fichiers Temporary internet, erreur fatale
Marsh Posté le 02-07-2002 à 14:35:21
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 ???
Merci Beaucoup