Problème code suppression de ligne avec condition VBA

Fermé

Fitz_Chev - 16 sept. 2015 à 16:30
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 16 sept. 2015 à 17:38

Bonjour,

Je ne comprends pas où est mon problème dans mon code, je cherche à supprimer une ligne si dans ma colonne H quand ce n'est pas marqué VRAI, j'ai donc mis ça:

For n = Range("H65356").End(xlUp).Row To 2 Step -1
If Range("H" & n) <> "VRAI" Then Range("H" & n).EntireRow.Delete
Next n

Le problème c'est qu'il m'efface TOUTES mes lignes, et je ne comprends pas pourquoi, pourtant j'ai déjà utilisé cette fonction qui marche très bien.

Quelqu'un pourrais m'éclairer?

Merci d'avance

A voir également:

Problème code suppression de ligne avec condition VBA
Forcer suppression fichier - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide
Apparaitre hors ligne instagram - Guide
Aller à la ligne excel - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
16 sept. 2015 à 16:51

Bonjour,

cote cellules excel: VRAI ou FAUX, mais cote VBA Range("H" & n) est egale a: Vrai ou Faux

Fitz_Chev
16 sept. 2015 à 17:12

Pas compris désolé (je débute en VBA)

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > Fitz_Chev
Modifié par f894009 le 16/09/2015 à 17:42

Re,

J'ai fait erreur, il faut faire comme l'a ecrit ccm81 16 sept. 2015 à 16:54 : True pour "Vrai" ou False pour "Faux"

Réponse 2 / 2

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
16 sept. 2015 à 16:54

Bonjour

Je suppose que VRAI provient d'un test donc c'est un booleen (VRAI ou FAUX)
Essaies comme ceci

Public Sub OK()
Dim n As Long, lifin As Long
lifin = Range("H65356").End(xlUp).Row
For n = lifin To 2 Step -1
  If Range("H" & n) <> True Then Range("H" & n).EntireRow.Delete
Next n
End Sub

Cdlmnt

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

[référencement] Ne pas être référencé

Statut « en ligne » alors que non

Discussions similaires

Newsletters