Supprimer des lignes en fonction des valeurs d'une colonne

Résolu/Fermé
maxime 25 Messages postés 19 Date d'inscription vendredi 12 juillet 2013 Statut Membre Dernière intervention 1 août 2013 - 24 juil. 2013 à 09:16
 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
A voir également:

3 réponses

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
24 juil. 2013 à 09:44
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
trés utile merci
0
maxime 25 Messages postés 19 Date d'inscription vendredi 12 juillet 2013 Statut Membre Dernière intervention 1 août 2013
24 juil. 2013 à 11:14
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)<> ""
0
melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
24 juil. 2013 à 11:38
oui pardon remplace
if cells(i,19)<> ""

par

if cells(i,19)<> "" then
0
maxime 25 Messages postés 19 Date d'inscription vendredi 12 juillet 2013 Statut Membre Dernière intervention 1 août 2013
24 juil. 2013 à 11:58
Parfait !!!!

Merci beaucoup melanie :)
0