Recherche et affichage des valeures trouvées

[ascal44]

Bonjour à tous ,

J'ai un début de code pour retrouver des valeures sur une feuille.
Mais je voudrais préciser ce code sur des cellules précises avec un affichage des valeures trouvées .

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 
If TextBox70 <> "" Then
TextBox70.Value = ""
End If
  
Dim G As Range 
Set G = Sheets("Signalements").Range("G63:G250").Find(What:=Me.TextBox4)
If Not G Is Nothing Then Me.TextBox70.Value = G.Offset(0, 5).Value

Dim H As Range 
Set H = Sheets("Signalements").Range("K48:O60").Find(What:=Me.TextBox4)
If Not H Is Nothing Then Me.TextBox70.Value = H.Offset(0, 1).Value


End Sub

 

[jp14]

Re : Recherche et affichage des valeures trouvées

Bonjour

Ci dessous une procédure à tester
Option Explicit

Sub travdem()
Dim data1 As String
Dim Cellule As Range
Dim nomfeuille1 As String
' pour boucler sur la colonne 1
nomfeuille1 = "Signalements"

With Sheets(nomfeuille1)
'11 13 15
data1 = recherche(.UsedRange.Columns(11).Cells, "AC")
data1 = data1 & recherche(.UsedRange.Columns(13).Cells, "AC")
data1 = data1 & recherche(.UsedRange.Columns(15).Cells, "AC")
End With
MsgBox data1
End Sub
Private Function recherche(col As Range, valcher As String) As String
Dim Cellule As Range
For Each Cellule In col
    If Cellule.Value = valcher Then recherche = recherche & Cellule.Offset(0, 1) & ","
Next Cellule
End Function

A modifier en fonction de l'application.

JP

 

[ascal44]

Re : Recherche et affichage des valeures trouvées

Bonjour ,
AC est un exemple dans mon fichier.
Il peut y avoir d'autres données multiples dans les colonnes K , M et O.

En fait il s'agit de retrouver les mêmes N° qui sont dans le textbox4 ( zone de recherche K48:K60 , M48:M60 et O48:O60 ) pour afficher une seule fois ce N° dans le textbox70 avec toutes les données qui correspondent à cette valeure