recherche des valeurs données

[Laurent]

bonjour,

je ne sais pas comment faire une recherche.

merci

 

[Robert]

Salut Laurent, salut le forum,

Je pense que ce doit être faisable à l'aide de formules mais je sais pas faire.
En pièce jointe ton fichier avec une macro.

À plus,

Robert

 

[omicron]

Bonsoir Laurent,

Tu trouveras en pièce jointe un exemple qui pourra te servir de base pour traiter ton problème.

=====================================================

Private Sub Bouton_Ventiler_Click()

Set Tableau = Range("A130") '<<< A adapter
Set Entrees = Range("F1:L12") '<<< A adapter

Tableau.Offset(1, 0).ClearContents

For Each CelEnt In Entrees.Cells
If IsDate(CelEnt) And CelEnt.Column <> 1 Then
For Each CelTab In Tableau.Rows(1).Cells
If IsDate(CelTab) And CelEnt = CelTab Then
If CelTab.End(xlDown).Row < 65536 Then
CelTab.End(xlDown).Offset(1, 0) = Entrees.Cells(CelEnt.Row, 1)
Else
CelTab.Offset(1, 0) = Entrees.Cells(CelEnt.Row, 1)
End If
End If
Next CelTab
End If
Next CelEnt

End Sub

=====================================================

En te souhaitant bon courage pour la suite.

Omicron.

 

[Laurent]

magnifique,
merci

 

[Laurent]

re

juste derniere question comment faire chercher les données dans une autre feuille ?

merci

 

[omicron]

Bonsoir Laurent,

En pièce jointe, un exemple dans lequel les données et le tableau récapitulatif sont stockés dans des pages différentes ....

Cordialement.

Omicron.