Find avec plusieurs mots à rechercher (résolu)

Cougar · 16 Mars 2016

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 · 16 Mars 2016

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 · 16 Mars 2016

Re : Find avec plusieurs mots à rechercher

Re Cougar,

et comme je suis trop gentil.

Code:

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 · 16 Mars 2016

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 · 16 Mars 2016

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 · 16 Mars 2016

Re : Find avec plusieurs mots à rechercher

Bonsoir Lone-wolf,

Effectivement cela serait plus simple.

Merci

Lone-wolf · 17 Mars 2016

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

Bonjour Cougar,

Ton fichier en PJ.

A+ 😎

Find avec plusieurs mots à rechercher (résolu)

Cougar

XLDnaute Impliqué

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Cougar

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Cougar

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Find avec plusieurs mots à rechercher (résolu)

Cougar

XLDnaute Impliqué

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Cougar

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Cougar

XLDnaute Impliqué

Lone-wolf

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency