Aide avec .Value

Bonjour à tous,

J'utilise la macro suivant qui efface les lignes d'un tableau lorsque la valeur de la colonne Y est vide.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub DELEMPTYpositif() Dim iRow As Long For iRow = Cells(Rows.Count, "Z").End(xlUp).Row To 15 Step -1   If Cells(iRow, "y").Value = "" Then   Rows(iRow).Delete End If Next iRow       End Sub

---

J'aimerais que la ligne s'efface aussi lorsque la colonne = 1 et =BABY

j'ecris le code comme cela :

Code:

---

If Cells(iRow, "y").Value = ""; "1"; "BABY" Then

---

mais cela ne marche pas,

Pourriez vous m'aide?

Merci beaucoup

Bonjour,
C'est tout à fait normal que cela ne fonctionne pas. Comme il y a plus d'une valeur à tester, il faut utiliser le Or

Code:

---

1 2 3 4 5

Sub t1() If Cells(2, 7).Value = "Baby" Or Cells(2, 7).Value = 1 Or Cells(2, 7).Value = "toto" Then MsgBox "Oui" End If End Sub

---

Attention que le test logique de If est sensible à la casse contrairement à la fonction SI d'excel, il est donc préférable d'imbriquer la valeur de la cellule dans la fonction LCase

Personnellement, j'utiliserais le Select Case nettement plus lisible et plus simple à maintenir dans ce cas précis et comme cette instruction est également sensible à la casse
Exemple

Code:

---

1 2 3 4 5 6 7

Sub t() Select Case LCase(Cells(2, 7).Value) Case "baby", 1, "toto" MsgBox "Oui" Case Else End Select End Sub

---

Merci beaucoup,

Quelle compétence !!
Très bon été,

Bonjour à vous, bonjour au Forum,

Salut Philippe ;)

Il y a sans doute un moyen d'éviter la gestion de la casse et, partant, l'utilisation des fonctions majuscules et minuscules.
Celui-ci consiste à écrire en entête de module la déclaration

Code:

---

Option Compare Text

---

Si en cellule A1, il est écrit
"baby

Le code

Code:

---

1 2 3 4 5 6

Option Compare Text   Sub essai() Debug.Print Feuil1.[A1] Debug.Print Feuil1.[A1] = "BaBy" End Sub

---

retournera respectivement "baby" et Vrai.