Recherche et affichage des valeures trouvées

ascal44 · 5 Février 2010

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 .

Code:

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 · 5 Février 2010

Re : Recherche et affichage des valeures trouvées

Bonjour

Ci dessous une procédure à tester
Option Explicit

Code:

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 · 5 Février 2010

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

Recherche et affichage des valeures trouvées

ascal44

XLDnaute Occasionnel

Pièces jointes

jp14

XLDnaute Barbatruc

ascal44

XLDnaute Occasionnel

Discussions similaires

Recherche et affichage des valeures trouvées

ascal44

XLDnaute Occasionnel

Pièces jointes

jp14

XLDnaute Barbatruc

ascal44

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency