Discussion :

[deathsurfer]

Bonjour,
j'aimerai supprimer les cellules contenant le mot "frais"
cela peut etre "frais fixes" ou bien "national frais" etc.... (cela peut etre aussi "Frais"... pb de casse peut etre?)
Voilà merci de votre aide a tous car j'ai essayé avec "~frais*" mais ca ne marche pas...

[Megaxel]

Hello!
Si tu utilises ".Find", tu n'as pas besoin, je crois, d'utiliser les caractères "bonus".
Quant à la casse, il y a une option à mettre au début de ton module qui te permet d'ignorer la différence Maj/Min, mais je ne m'en souviens jamais. Fais une recherche, il me semble que c'est Zazaraignée qui l'avait donnée.

[ouskel'n'or]

En VB, en VBA Excel ?

En VBA, la casse n'est vérifiée en recherche que si tu le demandes. Donc, tu devrais pouvoir trouver toutes les occurences sans t'en préoccuper avec find.
Qu'as-tu essayé ? Un peu de code siouplé...

A+

[repié]

Pour tester le contenus de la cellule, essaye ca tout simplement:

Code :

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

1
2
3
If Cells(1, 2) Like "*Frais*" or Cells(1, 2) Like "*frais*" Then
Cells(1, 2).Delete
End If

[ouskel'n'or]

Bien vu repié mais ta solution pose précisemment le pb de la casse.
Ensuite, nécessite de passer toutes tes cellules en revue. A mon avis, find est plus adapté. Mais ce n'est qu'un avis.
Je crois que bbil a une solution plus "élégante" pour régler ce pb, il repassera bien par là.

Patience donc, si tu veux utiliser find, j'ai ça

A+

[SfJ5Rpw8]

un petit coup d'oeil dans l'aide en ligne VBA de .Find donne (aprés adaptation ..):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   Set C = Cells.Find(What:="frais", LookIn:=xlValues, _
         SearchDirection:=xlNext, _
        MatchCase:=False)
    If Not C Is Nothing Then
        firstAddress = C.Address
 
        Do
            C.Delete
            Set C = Cells.FindNext
          Loop While Not C Is Nothing  
    End If

[zazaraignée]

Salut

Pour 'flasher' la mémoire de Megaxel, c'est Option Compare Text à mettre en dessous de Option Explicit.

[ouskel'n'or]

Et à qui c'est qu'on dit merci ?
Salut bbil.
Salut aussi zaza (cé pour pas quié d'jaloux)