Discussion :

[naty76]

Bonjour,

Y a t'il un moyen pour que vba ne respecte pas la casse ?

Je lui fait rechercher une valeur. Je la tape en minuscule dans une inputbox et dans ma feuille, elle est écrite en majuscule. Du coup, il ne la reconnais pas.
Comment puis-je lui dire de ne pas tenir compte de la casse ?
Je pourrais effectivement utiliser Ucase pour le résultat de l'inputbox mais ce code doit pourvoir fonctionner partout. Je ne suis pas obligée de savoir avec quelle casse est écrit le mot à rechercher.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
NomASupp = InputBox("quel est le nom de la personne à supprimer ?")
 
Selection.CurrentRegion.Select
NbLignes = Selection.Rows.Count
 
ActiveCell.Select
 
For i = 1 To NbLignes
    If Cells(i, 1).Value = NomASupp Then
    Cells(i, 1).EntireRow.Delete
    End If
 
Next i

Merci pour vos idées.

NATY

[pgz]

Bonjour.

Tu fais Ucase sur les 2 termes... Mais il faut être sûr que la valeur est de type string

Code :

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

If Ucase(Cells(i, 1).Value) = Ucase(NomASupp) Then

PGZ

[zandru]

Bonjour,

il te suffit de transformer ce que tu test en minuscule :

Code :

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

1
2
3
If Lcase(Cells(i, 1).Value) = Lcase(NomASupp) Then
    Cells(i, 1).EntireRow.Delete
    End If

La mise en minuscule ne se fait que lors de la condition, tes cellules excel ne sont pas changées.

quel est le nom de la personne à supprimer

Un logiciel pour sérial-killer ?

EDIT : pgz tu es trop rapide pour moi

[naty76]

Effectivement mettre une casse aux deux éléments comparés, c'est une idée à laquelle je n'avais pas pensé !!!
je vais faire çà.
Ok pour le type string quoique j'ai déjà eu la question "11 en majuscule ou en minuscule "

Oui Znadru, tu as deviné : je gère les contrats d'un nettoyeur genre Léon .

Merci pour votre aide

NATY