Find avec plusieurs mots à rechercher (résolu)

[Cougar]

Bonjour le forum,

Présentement j'utilise un IF :

If ActiveCell = "Accident de travail" Or ActiveCell = "Congé disciplinaire" Or ActiveCell = "Congé parental" _
Or ActiveCell = "Libération syndicale" Or ActiveCell = "Assignation temporaire" Or ActiveCell = "Convalescence" _
Or ActiveCell = "Congé sans solde" Or ActiveCell = "Vacances" Then
Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, 1)).Copy

Est-il possible de remplacer le tout par Find ou autre chose pour avoir :

"Accident *" Or "Congé *" Or "Libération *" Or "Assignation *" Or "Convalescence *" Or "Vacances *"
Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, 1)).Copy

Merci

 

[Lone-wolf]

Re : Find avec plusieurs mots à rechercher

Bonjour Cougar,

à tester.

If ActiveCell Like "*Accident*" Or ActiveCell Like "*Congé*" Or ActiveCell Like "*Libération*" _
Or ActiveCell Like "*Assignation*" Or ActiveCell Like "*Convalescence*" Or ActiveCell Like "*Vacances*" Then

Le reste du code




A+

 

[Lone-wolf]

Re : Find avec plusieurs mots à rechercher

Re Cougar,

et comme je suis trop gentil.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell Like "*Accident*" Or ActiveCell Like "*Congé*"  _
Or ActiveCell Like "*Libération*"  Or ActiveCell Like "*Assignation*"  _
Or ActiveCell Like "*Convalescence*" Or ActiveCell Like "*Vacances*" Then
Range(ActiveCell.Offset(0, -2), ActiveCell.Offset(0, 1)).Copy Feuil2.Range("a65536").End(xlUp)(2)
Else
Exit Sub
End If
End Sub

A+

 

[Cougar]

Re : Find avec plusieurs mots à rechercher

Bonjour Lone-wolf,

Merci de m'avoir fait découvrir Like. ))

Comme il arrive toujours, il y a un ajout à la demande. ))

* = un joker. Donc, si j'écris le code ... "congé *", il faut trouver toutes les cellules contenants le mot congé (Congé disciplinaire
Congé parental, Congé sans solde). Ainsi je ne serai pas obligé de tous les écrire .

Merci

 

[Lone-wolf]

Re : Find avec plusieurs mots à rechercher

Re Cougar,

crée une liste déroulante avec tes critères et ensuite tu utilise la méthode FindNext.


A+

 

[Cougar]

Re : Find avec plusieurs mots à rechercher

Bonsoir Lone-wolf,

Effectivement cela serait plus simple.

Merci

 

[Lone-wolf]

Re : Find avec plusieurs mots à rechercher (résolu)

Bonjour Cougar,

Ton fichier en PJ.


A+