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

king_kunu Messages postés 52 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 4 juin 2004 - 8 avril 2004 à 13:59
cs_etniqs Messages postés 201 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 10 mai 2016 - 14 janv. 2013 à 15:21
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

VbAbdoul Messages postés 73 Date d'inscription jeudi 4 décembre 2003 Statut Membre Dernière intervention 3 décembre 2007 1
8 avril 2004 à 14:16
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
0
king_kunu Messages postés 52 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 4 juin 2004
8 avril 2004 à 14:32
Merci beaucoup
ca marche et cela me permet d'epurer mon fichier de 140000 ligne a 10000
0
cs_etniqs Messages postés 201 Date d'inscription mardi 7 octobre 2003 Statut Membre Dernière intervention 10 mai 2016
14 janv. 2013 à 15:21
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
0
Rejoignez-nous