Discussion :

[g.dep]

Bonjour,
Je désire effectuer une recherche dans une colonne comportant une partie du mot, les données seront retranscrits dans une autre feuille
j'ai donc ceci qui fonctionne

mais je désirerai l'insérere dans un userform avec zone de texte, il me faut donc remplacer "*NANTAIS*" par ma zone de texte

Code :

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

If ActiveCell.Text Like "*NANTAIS*" Then

mais je ne trouve pas la solution
Merci pour votre aide
Cordialement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
EffaceFeui6
Sheets("Cuisine").Select
Range("B1").Select
Do While ActiveCell.Value <> ""
 
If ActiveCell.Text Like "*NANTAIS*" Then  'recherche une partie du mot NANTAIS dans la cellule
  REFRE = ActiveCell.Value
  REFRECH = ActiveCell.Offset(0, 1).Value
 
Sheets("Feuil6").Select   'ouvrir la feuille pour retranscrire les données
Range("A1").Select
 
Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Value = REFRE
    ActiveCell.Offset(0, 1).Value = REFRECH
 
End If
Sheets("Cuisine").Select
    ActiveCell.Offset(1, 0).Select
    Loop