Menu

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

Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013
- - Dernière réponse :  CCD - 8 avril 2019 à 08:37
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
1513
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
186
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 41333 internautes nous ont dit merci ce mois-ci

Messages postés
19
Date d'inscription
vendredi 12 juillet 2013
Statut
Membre
Dernière intervention
1 août 2013
0
Merci
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)<> ""
melanie1324
Messages postés
1513
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
186 -
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
0
Merci
Parfait !!!!

Merci beaucoup melanie :)