Supprimer des lignes en fonction des valeurs d'une colonne [Résolu/Fermé]

Signaler
Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013
-
 CCD -
Bonjour,



Je récupère les données de pointage des salariés de mon entreprise sur un fichier texte.

J'ai un module commandé depuis Access qui me permet de l'ouvrir sur excel, de supprimer les colonnes inutiles, de renommer les colonnes que je conserve et de l'importer pour accrémenter un table de ma base.

J'aimerai réaliser un tri des enregistrements dans ce module avant de supprimer les colonnes.

J'ai une colonne "Comment." qui peut contenir une multitude de critères. Lorsqu'un critère apparait dans cette colonne, c'est que les données ont été modifiées via le logiciel de gestion et qu'elles ne correspondent pas à de véritable pointage des salariés. Je voudrai donc créer un code qui me permet de supprimer toutes les lignes pour lesquelles cette colonnes comprend une valeur. (la colonne se trouve en "S".

Merci d'avance.

Maxime

3 réponses

Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
126
Bonjour,

voici la macro :

sub suppressionlignes ()

i=2 'commence à la ligne 2 de ton tableau

do while cells(i,1) <> "" 'la boucle agira tant que la cellule de la ligne i et colonne 1 contient une valeur, il faut que tu es une colonne ou y a toujours une valeur, si c'est pas la 1 mets le chiffre correspondant à la colonne ou y a toujours une valeur

if cells(i,19)<> "" 'si la cellule de la ligne i colonne 19 (S) contient une valeur
Rows(i).Delete Shift:=xlUp 'on supprime la ligne
else 'sinon
i=i+1 'on passe à la ligne suivante
end if

loop

end sub
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61358 internautes nous ont dit merci ce mois-ci

trés utile merci
Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013

Merci pour cette réponse rapide.

Lorsque j'éssais la maccro, il me dis erreur de compilation : erreur de syntaxe

sur cette ligne :

if cells(i,19)<> ""
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
126
oui pardon remplace
if cells(i,19)<> ""

par

if cells(i,19)<> "" then
Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013

Parfait !!!!

Merci beaucoup melanie :)