Discussion :

[Mall0x]

J'aimerais faire une fonction sur excel qui permetrait de faire une recherche dans une cellule contenant du texte pour certain mots clés contenue dans un tableau d'un autre page. La fonction retournerait le titre de la colonne de tableau.

Je me suis essayer mais sans grand succès. je n'en suis qu'à mes début avec VBA. Donc si quelqu'un vous drais bien m'aidé ou aumoins m'indiquer la direction, merci.

Voici ce que j'ai j'usquà maintenant, même si ce ne m'indiqu'une erreur!!!

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
23
Function RechMots(Zone As Range, CRef As Range)
    Application.Volatile
    Dim rep
    Dim Column As Range, cel As Range
 
   For Each Column In CRef.Columns
 
        For Each cel In Column
            If Not IsNull(cel) Then
            Dim nbr As Byte
 
           nbr = Application.CountIf(Zone, cel)
                    If nbr > 0 = True Then rep = cel.Column
 
                    Else
                    End If
                    Next
 
            Next
 
       RechMots = rep
 
End Function

Merci à l'avance!!!!

[casefayere]

Bonsoir,
quand tu ecris :

... La fonction retournerait le titre de la colonne de tableau.

Qu'appelles-tu le titre de la colonne ?, d'autre part, n'emploies pas de mot clés réservé pour tes variables "Dim Column" à remplacer par exemple par "Dim LaColonne".

[Mall0x]

Qu'appelles-tu le titre de la colonne ?

La ligne sont les titres, donc première cellule de chaque colonne.

[casefayere]

j'espère avoir compris, essayes cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function rechmots(zone As Range)
Dim Dc As Long, mot As Range
If zone.Value <> "" Then
  With Sheets("Ref")
    Dc = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    Set mot = .Range(.Cells(1, 2), .Cells(1, Dc)).Find(zone.Value)
  End With
  rechmot = mot(2, 1)
Else
  rechmot = ""
End If
End Function