Aide debutant VBA: reuperer valeur d'une cellule appartenant a une colonne fixe

Signaler
Messages postés
52
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
4 juin 2004
-
Messages postés
201
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
10 mai 2016
-
Bonjour

j'ai besoin dans le cadre d'un retraitement de fichier excel d'ecrire une macro me permettant de tester la valeur d'une cellule et de la supprimer si j'y trouve une chaine de caractere precise.
mon probleme reside dans le fait que je parcours ligne par ligne ma feuille. Par conséquent, la colonne de la cellule est fixe et seul son numero de ligne varie. et je ne sais pas comment récuperer la valeur de ma cellule dont l'adresse est Ax (avec x qui varie en fonction de mon nombre de ligne)..
si vous pouvez me depanner je vous en serait tres reconnaissant
merci
salut

3 réponses

Messages postés
73
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
3 décembre 2007

Bonjour,

Tu peux faire une boucle pour faire defiler tes lignes.

Dim Ligne as Integer

for ligne = 1 to 30 ''Fait defiler les lignes jusqu'a la ligne 30
If cells(ligne,3).value="Bonjour" then
''Ici test si cellule de la colonne C est egale a "Bonjour"
cells(ligne,3).value =""
''On remplace la valeur trouver par chaine vide.
''Donc toutes les cellules de la colonne C ayant la
''valeur "Bonjour" seront remplacées par chaine vide
end if
next ligne
Messages postés
52
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
4 juin 2004

Merci beaucoup
ca marche et cela me permet d'epurer mon fichier de 140000 ligne a 10000
Messages postés
201
Date d'inscription
mardi 7 octobre 2003
Statut
Membre
Dernière intervention
10 mai 2016

et si tu veux nettoyer un peu et supprimer une ligne entière , c'est particulier :
range("").offset(0,x).entirerow.delete


coïto ergo sum