Bonsoir,

[bingo10]

Je tente de mettre un fichier afin de bien comprendre la difficulté
je souhaiterais proceder à des extraction sur la feuille "tresor" à partir de la base en feuille "frs", cela se passe bien pour la feuille "resultat", mais en tresor je suis confronté à des difficultés,
si quelqu'un peut voir?
Merci!
Cijoint.fr - Service gratuit de dépôt de fichiers

 

[PMO2]

Re : Bonsoir,

Bonjour,

PB d'extraction : sur les boutons et le calendar inscrit que la date en I8 alors que dans VBA j'ai inscrit I8 et I9

Remplacez la procédure dans la feuille "Resultat" par

Private Sub Calendar1_Click()
Static Passe%
If Passe% = 0 Then
  Passe% = 1
  Range("g6") = Calendar1.Value
Else
  Passe% = 0
  Range("g7") = Calendar1.Value
End If
End Sub

et la procédure dans la feuille "Tresor" par

Private Sub Calendar2_Click()
Static Passe%
If Passe% = 0 Then
  Passe% = 1
  Range("i8") = Calendar2.Value
Else
  Passe% = 0
  Range("i9") = Calendar2.Value
End If
End Sub

Pour le reste, je n'ai pas regardé.

Cordialement.

PMO
Patrick Morange

 

[bingo10]

Re : Bonsoir,

Bonsoir Patrick,
Merci pour le calendar, et si tu as le temps de voir pour ce PB d'extraction?