Discussion :

[tom0ne]

Bonjour à tous,

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

Code :

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

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 :

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

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

mais cela ne marche pas,

Pourriez vous m'aide?

Merci beaucoup

[Philippe Tulliez]

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 :

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

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 :

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

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

[tom0ne]

Merci beaucoup,

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

[MarcelG]

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 :

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

Option Compare Text

Si en cellule A1, il est écrit
"baby

Le code

Code :

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

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.