Commande VBA pour supprimer ligne entiere

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:

---

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

Bonjour,

Comme ceci

Code:

---

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

---

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.

Rien ne s'efface .snifff

Salut,

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

Code:

---

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:

---

1 2 3 4

With Worksheets'"lawks") If Instr(.Ccells(i,.... ........................ End With

---

Citation:

---

Envoyé par jeje5969

Rien ne s'efface .snifff

---

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

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

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

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

Salut,

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

Code:

---

Option Compare Text

---

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

- Tester sur les majuscules (plus pragmatique)

Code:

---

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

---

Merci vous etes Top !!!!!ça fonctionne

Retiens bien:

1 - le rattachement des objets (important si l'on travaille sur plusieurs feuilles et/ou classeurs)

2 - -Pour supprimer des lignes par balayage, quel que soit le critère

Code:

---

For i = derlign to 2 Step -1

---

3 - la fonction Instr

Place cette discussion en mode Résolue.

Mais pour parfaire ton code, j'eus souhaité son report intégral.

Je prend également bonne note de ton code j'ai toujours fait le contraire

Code:

---

1 2	For i = 2 to derlign

---

mais on en apprend tout jours merci

Salut,

- Essaie de placer 2 lignes à la suite où le mot test est placé.
- Dans le code, avant la condition If, place cette ligne

Code:

---

Debug.Print i

---

- Affiche la fenêtre Exécution (CTRL + G)
- De ton code comprenant ta boucle initiale (Foir i = 2 To derlign), procède à l'exécution en pas à pas.
- Tu verras qu'une ligne ne sera pas, à tort, supprimée.

L'essentiel restant, bien entendu, que tes codes ultérieurs prendront en compte ce point.

Bon week-end à vous, Bon week-end au Forum.