Discussion :

[fthem]

Salut à tous,
pourriez vous m'indiquer le code qui dirait (sur ma feuille excel):
Je scanne la colonne "H" vers le bas depuis la ligne "17"
Si dans la colonne "H", je rencontre une cellule contenant la lettre "T",
Alors, je supprime la ligne suivante sinon je passe.


Merci
chest pas chi chui clair????

[erfindel]

en vba :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim plage as range 
dim cellule as range
With worksheets("nomdelafeuille")
 set plage = .range(ta plage)
 for each celulle in plage 
   if cellule = "T" then
     .cells(cellule.row + 1 ; cellule.column) = ""
    end if
 next
end with

[fthem]

Salut et merci pour ce bout de code,
juste un problème de syntaxe sur cette ligne
ne faut-il pas écrire quelque chose avant le point????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.cells(cellule.row + 1 ; cellule.column) = ""

et je ne voit pas de "Delete" est ce normal??

[erfindel]

Non car avant le point la valeur prise est celle du with.

Dans le code présent : la Worksheets

En ce qui concerne le delete c'est normal je n'en n'est pas mis oublie peut-être j'ai simplement remplacer la valeur de la cellule par vide. Au lieu de la mettre a vide il te suffit de la supprimer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.cells(cellule.row + 1 ; cellule.column).delete

Bon continuation

[fthem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim plage As Range
Dim cellule As Range
With Worksheets("FDM")
 Set plage = .Range("I17:I53")
 For Each celulle In plage
   If cellule = "T" Then
     .cells(cellule.row + 1 ; cellule.column).delete
    End If
 Next
End With

Voila le code et là, il s'arrete sur le ";"
Je ne comprends pas??????????

[Krovax]

essaye avec une virgule

[Godzestla]

Bonjour,
2 remarques :
1) je pense que c'est , et pas ;
2) ton code va peut-être se planter car si tu supprimes une ligne plus bas tu risque de traiter un ligne supplémentaire, ce que tu ne souhaites pas. Pour pallier à cela, on fait la boucle à l'envers depuis le bas vers le haut et alors pas de soucis.