VBA soit le filtre automatique est sur une valeur soit il est sur tous.

Bonjour Georges,

Le mieux serait de voir ton fichier.

Le fait de placer le filtre sur tous revient à montrer toutes les données ce qui peut se traduire en VBA par : ActiveSheet.ShowAllData

Toutefois essaie ceci dans ta macro :

If Worksheets("Maladie").AutoFilterMode = True Then ....

Mais je pense que si ton filtre est sur "tous", les textbox ne seront pas vides mais elles te montreront le 1er item enregistré.

Dans l'attente de te lire

@+ Dan

Merci pour ton aide, pour l'instant ça plante encore, j'ai essayé d'introduire ton code mais ça ne marche pas.

Je ne peux malheureusement t'envoyer mon fichier avant ce soir car je n'ai pas de ZIP au bureau ... Je me l'envoie at home ce soir et le renvoie.

Je te fais une copie du code :

Option Explicit
Dim Monbook As Workbook
Dim WS1 As Worksheet
Dim A As String
Dim B As String
Dim L3 As String



Private Sub UserForm_Initialize()
Set Monbook = ThisWorkbook
With Monbook
Set WS1 = .Worksheets("MALADIE")
End With
L3 = WS1.Range("A65536").End(xlUp).Row
Nom.Value = WS1.Range("a" & L3).Value
Prénom.Value = WS1.Range("b" & L3).Value
If WS1.AutoFilterMode = True Then
Nom.Value = ""
Prénom.Value = ""
End If

(Et là plantage intégrale)
If ActiveSheet.ShowAllData Then
Nom.Value = ""
Prénom.Value = ""
End If

Enfant.Visible = False
Label3.Visible = False
Enfant.Value = ""
Date1.Value = ""
date2.Value = ""
comm.Value = ""
ComboBox1.List = Array("MAL", "ENF", "HOSP", "AT")
End Sub

Merci pour votre aide.

Voici le fichier sur lequel je travaille.


Merci pour votre aide

Salut,
Ca marche enfin, j'ai trouvé une solution, ce n'est peut-être pas la plus élégante, mais elle fonctionne. Je vous livre le code si un jour ça peut-être utile à quelqu’un :

Option Explicit
Dim Monbook As Workbook
Dim WS1 As Worksheet
Dim A As String
Dim B As String
Dim C As String
Dim D As String
Dim E As String
Dim L3 As String



Private Sub UserForm_Initialize()
Set Monbook = ThisWorkbook
With Monbook
Set WS1 = .Worksheets("MALADIE")
End With

'dans le cas où le filtre automatique n'est pas activé
If WS1.AutoFilterMode = False Then
Nom.Value = ""
Prénom.Value = ""
End If

‘Voila l’astuce déterminer la valeur du critère du filtre
With WS1
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then D = .Criteria1
End With
End If
End With

‘et l’utiliser pour créer une condition
If D = "" Then
Nom.Value = ""
Prénom.Value = ""
Else
L3 = WS1.Range("A65536").End(xlUp).Row
Nom.Value = WS1.Range("a" & L3).Value
Prénom.Value = WS1.Range("b" & L3).Value
End If
End Sub


Merci à tous pour l'émulation et les conseils que ce site apporte.

a+

Georges