MAJ - MIN

Bonjour à tous,

je souhaiterais ajouter un "ou" à mon instruction pour qu'il prenne en
compte les minuscules. C'est à dire que là, si la cellule D5 = "A" alors
il
va en C1 mais que si c'est aussi égal à "a" il va en C1 et dans le cas
contraire il efface la ligne.
Car pour le moment c'est l'un ou l'autre.

Sub A()

If Range("D5") = "TOTAL GABON" Then
Range("C1").Select
Else
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Range("C1").Select
End If
End Sub

Merci
Denis

Bonjour à tous,

je souhaiterais ajouter un "ou" à mon instruction pour qu'il prenne en
compte les minuscules. C'est à dire que là, si la cellule D5 = "A" alors il
va en C1 mais que si c'est aussi égal à "a" il va en C1 et dans le cas
contraire il efface la ligne.
Car pour le moment c'est l'un ou l'autre.

Sub A()

If Range("D5") = "TOTAL GABON" Then
Range("C1").Select
Else
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Range("C1").Select
End If
End Sub

Merci
Denis

Bonjour Denis,

Un truc du style...

Sub A()
If UCase([D5]) <> "TOTAL GABON" Then _
Rows(5).Delete Shift:=xlUp
[C1].Select
End Sub


ChrisV


"DENIS" <DENIS@discussions.microsoft.com> a écrit dans le message de news:
3C320D88-2C8A-4616-90A9-356CB24F42E2@microsoft.com...

Bonjour à tous,

je souhaiterais ajouter un "ou" à mon instruction pour qu'il prenne en
compte les minuscules. C'est à dire que là, si la cellule D5 = "A" alors
il
va en C1 mais que si c'est aussi égal à "a" il va en C1 et dans le cas
contraire il efface la ligne.
Car pour le moment c'est l'un ou l'autre.

Sub A()

If Range("D5") = "TOTAL GABON" Then
Range("C1").Select
Else
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Range("C1").Select
End If
End Sub

Merci
Denis

Bonjour DENIS,

If Range("D5") = "A" or Range("D5") = "a" or ... Then

Mais pour majuscule/minuscule il vaut mieux, à mon avis, convertir
soit en majuscule :

if Ucase(Range("D5")) = "A" Then

soit en minuscules

if Lcase(Range("D5")) = "a" Then

Bonjour à tous,

je souhaiterais ajouter un "ou" à mon instruction pour qu'il prenne en
compte les minuscules. C'est à dire que là, si la cellule D5 = "A" alors il
va en C1 mais que si c'est aussi égal à "a" il va en C1 et dans le cas
contraire il efface la ligne.
Car pour le moment c'est l'un ou l'autre.

Sub A()

If Range("D5") = "TOTAL GABON" Then
Range("C1").Select
Else
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Range("C1").Select
End If
End Sub

Merci
Denis

--
Cordialement,

Jacques.