> Tous les forums > Forum Bureautique
 Macro supprimer ligne avec conditionSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
didie78
  Posté le 01/02/2013 @ 16:31 
Aller en bas de la page 
Petite astucienne

Bonjour,

Je souhaite créer une macro dans fichier excel par contre là je suis bloqué je ne sais pas par où commencer.

ma macro doit supprimer des lignes sous certaines conditions :

Voici en version fonction SI ce que je souhaiterai que ma macro fasse. Par contre je n'arrive pas à la traduire en VB.

SI(ET(D12<>"";OU(G12=0;G12="");OU(H12=0;H12="");OU(I12=0;I12="");OU(J12=0;J12="");OU(M12=0;M12="");OU(N12=0;N12="");OU(O12=0;O12="");OU(P12=0;P12=""));"suppr";"")

Je souhaite que cela face une boucle sur l'ensemble du fichier.

Je ne demande pas que l'on me rende le boulot tout fait, mais j'aimerai avoir quelques pistes sur la marche à suivre.

Merci d'avance pour votre aide,

Sandie

Publicité
yojema
 Posté le 01/02/2013 à 18:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

salut

essaye de créer un petit fichier de le poster avec ton prochain message

avec de donnée fictiv et de nous détailler tout ça parceque la j en perd mon latin

a+

galopin01
 Posté le 01/02/2013 à 22:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Un petit quelque chose comme ça devrait faire l'affaire :

Sub galopin()
For i = DerLigne To PremLigne Step -1
Y1 = Cells(i, 4) <> ""
Y2 = Cells(i, 7) = 0 And Cells(i, 8) = 0 And Cells(i, 9) = 0 And Cells(i, 10) = 0
Y3 = Cells(i, 13) = 0 And Cells(i, 14) = 0 And Cells(i, 15) = 0 And Cells(i, 16) = 0
If Y1 And Y2 And Y3 Then Rows(i).Delete
Next
End Sub

Inutile de spécifier les OU : Si =0 est vrai alors "" est forcément vrai et vice versa...

A+

didie78
 Posté le 04/02/2013 à 14:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

Merci pour la réponse, je vais tester cela et je reviens vers vous.

Merci encore.

Sandie

didie78
 Posté le 04/02/2013 à 16:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Milles merci,

C'est parfait.

Sandie

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
95 €Onduleur APC BE700G-FR (405 W/700 VA) à 95 €
Valable jusqu'au 24 Janvier

Amazon fait une promotion sur le très bon onduleur APC BE700G-FR qui passe à 95 € livré gratuitement alors qu'on le trouve ailleurs à partir de 120 €. Cet onduleur assure une alimentation de secours sur batteries et une protection contre les surtensions pour votre ordinateur et vos périphériques le temps que vous fermiez et éteignez correctement votre matériel en cas de coupure de courant. Il offre une puissance de sortie de 405W/700 VA.


> Voir l'offre
19,99 €Souris gamer Logitech MX518 à 19,99 €
Valable jusqu'au 26 Janvier

Boulanger fait une promotion sur la réédition Legendary de la souris Logitech MX518 qui passe à 19,99 € alors qu'on la trouve ailleurs à 45 €. Cette très bonne souris dédiée aux joueurs dispose d'un capteur optique très précis Hero 16000 DPI, 8 boutons programmables et une mémoire permettant de sauvegardera 5 profils d'utilisation différents. 


> Voir l'offre
19,63 €Carte mémoire Samsung 128 Go MicroSDXC Evo Select U3 (100 Mo/s) à 19,63 € livrée
Valable jusqu'au 27 Janvier

Amazon Allemagne fait une promotion sur la toute nouvelle carte mémoire Samsung 128 Go MicroSDXC Evo Select U3 qui passe à 15,12 €. Comptez 4,51 € pour la livraison en France soit un total de 19,63 € livrée. Une bonne affaire pour cette carte que l'on trouve ailleurs à partir de 25 € et qui offre des vitesses de 100 Mo/s en lecture et 90 Mo/s en écriture.  Elle est idéale pour les téléphones, caméras et appareils photo 4K. Elle est étanche, anti-choc et résiste aux rayons X et aux champs magnétiques. Elle est garantie 10 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de frais de douane. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre

Sujets relatifs
Supprimer des fichiers suivant condition par macro
Macro Calc : copie avec condition
Excel 2003 : macro pour supprimer une ligne
Suppress ligne avec cellule nommée en macro
Word 2007 : Comment supprimer tous les retours à la ligne indésirables
Tirage au sort avec macro
Erreur date avec macro/ incapable d'ouvrir ailleurs que chez moi
se positionner avec une macro dans une cellule précise
Supprimer la ligne de la cellule active sauf une cellule
Macro Copier ligne vers un autre fichier
Plus de sujets relatifs à Macro supprimer ligne avec condition
 > Tous les forums > Forum Bureautique