Code erreur 180 et 1004

Bonsoir,

J'essaie de réaliser un tebleau de suivi de budget.

J'ai créé un Usf pour la saisie qui fonctionne très bien.

J'ai un second Usf qui me pose des problèmes. Je veux pouvoir afficher et modifier mes données directement dans l'Usf. ma fonction de recherche ne fonctionne pas bien et je ne comprends pas d'ou peut venir l'erreur.

Pouvez-vous m'aider ?

Merci

Bonjour AdrienR,

Edit : autant pour moi

Fait un copier/coller de B3:O13 dans ta zone d'extraction

@+

Bonsoir BrunoM45,

Je ne comprends pas .. qu'est ce que cela va changer ?

Merci pour votre aide

Re,

As-tu lu le message d'erreur ?

Re,

Oui il m'indique "erreur d'exécution '380': impossible de définir la propriété RowSource. La valeur de propriété non valide"

Cette erreur intervient seulement quand je fais une recherche "budget" par exemple mais fonctionne quand je fais une recherche "1" par exemple.

Merci

Re,

As-tu fais ce que je t'ai dis pour les en-têtes

Re,

je vais vous faire passer la nouvelle version du fichier

Merci

No comment

Re,

Qu'est ce que j'ai loupé?

Re,

Tu as loupé cette réponse

https://forum.excel-pratique.com/viewtopic.php?p=860844#p860844

La zone d'extraction doit être identique à la zone source avec ses entêtes

S'il n'y a pas la même chose = aucune extraction = la plage "décalé" ne contient rien = erreur de l'USF

Est-ce assez clair ainsi

Re,

Je dois regarder plus en détail mais non je ne comprend pas ..

J'ai copié collé mes entêtes pourtant ...

Re,

J'ai également touché à la zone de critère en copiant/collant le texte "Recherche"

Je viens de vérifier, c'est ça... un espace après "Recherche"

@+

Re,

j'ai encore mon souci sur ce fichier ...

Re,

Réponse dans le post d'avant

Re,

Effectivement no comment ... j'ai regardé à tête reposée.

Merci beaucoup

Re,

Existe-il un moyen pour qu'il ne m'affiche pas de message d'erreur 180 quand mes critères de recherche ne sont pas connus ?

Merci

Re,

Je n'ais pas ce problème

As-tu bien ce code dans l'USF ?

Private Sub CommandButton1_Click()
  Sheets("DATA").Range("Z3") = "*" & Me.TextBox1 & "*"
  Sheets("DATA").Range("Tableau1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("DATA").Range("Z2:Z3"), CopyToRange:=Sheets("DATA").Range("AB2:AO2"), Unique:=False
  Me.ListBox1.RowSource = "decal"
End Sub

@+

Re,

Oui j'ai bien le même code pourtant si je tape n'importe quoi il m'affiche une erreur 380

Merci

Re,

adrienR a écrit :

Existe-il un moyen pour qu'il ne m'affiche pas de message d'erreur 180 quand mes critères de recherche ne sont pas connus ?

Je n'avais pas compris ta question ainsi

Voici le code pour éviter l'erreur

Private Sub CommandButton1_Click()
  Sheets("DATA").Range("Z3") = "" & Me.TextBox1 & ""
  Sheets("DATA").Range("Tableau1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("DATA").Range("Z2:Z3"), CopyToRange:=Sheets("DATA").Range("AB2:AO2"), Unique:=False
  On Error Resume Next
  Me.ListBox1.RowSource = "decal"
  On Error GoTo 0
End Sub

@+

Re,

Super merci beaucoup !