Discussion :

[jeje5969]

Bonjour,
je n'arrive pas a trouver le bon code pour supprimer une ligne entiere quand ma cellule contient le mot fictive. le pb est que ce mot est situé derriere un autre nom: ex : Berre Fictive , Cavaou Fictive etc.....
voila ce que j'ai comme code mais cela ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
Sub Suprime()
Application.ScreenUpdating = False
Dim i As Long
For i = 2 To Range("B1000").End(xlUp).Row
If Cells(i, 2).Value Like "Fictive" Then Rows(i).Delete
Next i
End Sub

Merci d'avance pour votre aide

[tony76]

Bonjour,

Comme ceci

Code :

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

1
2
3
4
5
6
7
8
 
ub Suprime()
Application.ScreenUpdating = False
Dim i As Long
For i = 2 To Range("B1000").End(xlUp).Row
If Cells(i, 2).Value Like "Fictive" Then Cells(i, 2).EntireRow.Delete
Next i
End Sub

[unparia]

Bonjour
Lorsque l'on supprime, on le fait de bas en haut (step -1) si l'on veut éviter des croche-pieds dans la numérotation de ce qu'on supprime.

[jeje5969]

Rien ne s'efface .snifff

[MarcelG]

Salut,

Outre le fait d'appliquer impérativement la recommandation d'Unparia, que je salue au passage, essaie

Code :

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

If Instr(Cells(i, 2).Value ,"Fictive") > 0

Tu peux consulter l'aide Microsoft sur la fonction Instr

D'autre part, je ne peux que te conseiller de bien rattacher tes objets Range à leur feuille Parent.
Ceci en utilisant éventuellement le bloc With

Code :

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

1
2
3
4
With Worksheets'"lawks")
 If Instr(.Ccells(i,....
 ........................ 
End With

[jeje5969]

Merci Marcel ça fonctionne... en partie.
Car ds mon fichier Fictive est écrit par moment avec une Majuscule ( Fictive ) et d'autres fois (FICTIVE). et forcement ça n'efface pas tout. y a t il un moyen de contourné ce pb ?
Merci

[unparia]

La fonction Ucase met en majuscules le contenu texte qu'elle traite.
Compare donc le Ucase de l'un avec le Ucase de l'autre ...
A lire : la rubrique Ucase, Fonction de ton aide interne VBA

[MarcelG]

Salut,

2 façons;
- En entête de module, écrire l'ignorance des majuscules/minuscules

Code :

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

Option Compare Text

(Quelques discussions sur l'opportunité de cette Option)

- Tester sur les majuscules (plus pragmatique)

Code :

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

If Instr(Ucase(.Cells(i,2).Value),"FICTIVE") > 0 Then....

[tony76]

Rien ne s'efface .snifff

Sans interagir avec les recommandation le code que je tes mis fonctionne parfaitement je vient de le testé

[MarcelG]

Tony,

Tu n'aurais pas oublié des identificateurs? (*....)?

Voir ce tutoriel fondamental sur les chaînes de caractères.

D'autre part, pour une suppression de lignes, il faut partir de la dernière ligne (Rappel du propos d'Unparia)

Jeje, Reporte
1 - l'intégralité du code modifié
2 - le contenu intégral d'une cellule pour laquelle la suppression ne s'effectue pas, après cette modification