dNouveau venudenisvarInscrit le :21/08/2012Dernière activité :22/08/2012 à 16:53Version d'Excel :2002Messages6Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par denisvarDateAuteur du sujetSujetExtrait du message22/08/2012 à 15:11denisvarSuppression lignesRe bonjour, Je n'y arrive pas avec votre macro mais avec celle ci presque... Option Explicit Sub SuppressionLignes() Dim J As Long For J = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Range("E" & J) = "" Then Rows(J).Delete Next J End Sub mais mon problème est: A B C D E Colonna 20-juin 25...22/08/2012 à 13:00denisvarSuppression lignesExcuse moi je vais paraitre lourd mais ou dans la phrase?, ou je mets 120? merci beaucoup de ton aide...22/08/2012 à 11:59denisvarSuppression lignesMerci pour les réponses mais un message d'erreur (bug) à la ligne fin = .Range("E" & Rows.Count).End(xlUp).Row ' Nombre de lignes dans la colonne E Je m'excuse mais j'ai un peu de mal, j'ai 120 lignes ou j'écris 120 Merci...22/08/2012 à 11:05denisvarSuppression lignesJ'ai une feuille de données ou certaines cases sont vides. Je voudrai que si dans la colonne E une cellule est vide, supprimer la ligne. 1) exemple: de e1 à e10 pas vide de e12 à e25 pas vide de e29 à e50 pas vide supprimer la ligne e11, e26 e27 e28 merci beaucoup de votre aide Amicalement...21/08/2012 à 13:20denisvar Répeter plusieurs instructionsMerci pour ta réponse mais j'ai un petit souci. Tu écris For i = 4 To 10 et en fait j'ai 1600 lignes. Quand je remplace 10 par 1600 il y a un bug. Comment faire stp merci beaucoup de ton aide...21/08/2012 à 11:44denisvar Répeter plusieurs instructionsJ'ai créer une instruction si Sub commentaires_notes() 'Variables Dim note As String, commentaire As String note = Range("e4") 'Commentaire en fonction de la note If note = "Villeneuve Loubet" Then commentaire = "Alpes Maritimes" ElseIf note = "Vence" Then commentaire = "Alpes Maritimes" ElseIf note...Forums