Erreur d'exécution '380' Problème RowSource

Bonjour,

Voila, j'utilise un tableau qui fonctionnait très bien et brusquement je me retrouve avec un message d'erreur:

Erreur d'exécution '380'

Impossible de définir la propriété RowSource. Valeur de propriété non valide.

Pouvez vous m'aider svp? Quel est la source du problème?

Visiblement le problème se situe dans le code

Sub mamacro()
    If ActiveSheet.Name = "Devis" Then GoTo oui
    If ActiveSheet.Name = "Restitution" Then GoTo oui
    If ActiveSheet.Name <> "Fil de l'eau" Then MsgBox "Pas possible sur cette Feuille": Exit Sub
oui:
    UserForm1.Show
End Sub

Petula 972

Bonsoir

Que fais-tu là Petula ? (Clark)

Ton erreur est certainement dans le code de ton userform...

As-tu un fichier à nous adresser ???

Merci

A+

Bonjour,

similaire ici

https://forum.excel-pratique.com/viewtopic.php?t=5859

rowsource (voir messages de Dan et Felix)

https://forum.excel-pratique.com/viewtopic.php?f=2&t=53035

ou ici par H2so4

crdlt,

André

Re,

Je vous remercie tous les deux de l’intérêt que vous portez à mon problème.

Désolé André13, mais en lisant les autres posts je n'y arrive pas.

Patty5046, je reviens d'une tournée. Je suis d'ailleurs tellement crevée que je n'y voit plus claire dans mes codes

Du coup, je vous joint le fichier.

168tca.xlsm (270.99 Ko)

Merci

Petula

Bonsoir,

Le problème est tout simple, tu affectes à RowSource un nom de plage qui n'existe pas !

Alors, il faut dire quel est le bon nom de plage qui liste les entreprises, ou bien le créer (ou recréer) !

Il y a d'autres choses à dire sur ton Initialize mais attendons de régler ce problème...

Cordialement.

Bonjour MFERRAND,

Peux tu m'expliquer comment faire stp?

J'utilise le tableau mais sans plus....je suis un peu novice en la matière.

Merci

Petula

Bonsoir

Et si tu mettait

tacombo.RowSource = "ListEnt_ST"

au lieu de :

tacombo.RowSource = "ListEnt"

A+

Bonjour Patty 5046,

Je commence à être gêné...mais je remplace ou?

Petula

Là , je comprends que tu sois gênée...

Tu te positionnes sur le code du userform1 qui te pose problème, tu fais Edition

Remplacer

là tu coches Projet en cours

Dans rechercher tu tapes

ListeEnt

Dans remplacer, tu tapes :

ListeEnt_ST

Cela suffira ??

J'espère pour toi

A+

Bonjour, Salut Patty !

C'est une possibilité... mais il serait peut-être mieux que tu vérifies quelle est la liste d'entreprises qui doit s'afficher dans ta Combo, et s'il s'agit de celle-ci il conviendrait de la redéfinir en dynamique, car telle qu'elle est définie tu introduirais 396 éléments vides dans ta liste, ce qui n'est pas vraiment optimal.

La liste étant désignée, on t'indiquera comment la définir de façon dynamique.

Cordialement.

Bonjour toutes et tous

merci Patty

je viens de voir aussi l'erreur 391

comme tu as dis Patty pour ListeEnt_ST

mais aussi dans les 2 combobox3 et la combobo4 rentre en conflit également dans l'userform1 Initialize

j'ai désactivé en mettant un apostrophe (') devant

' Me.ComboBox3.RowSource = "ListeEnt" ' ICI

' Me.ComboBox4.RowSource = "ListeEnt" 'ICI

et cela plus d'erreurs mais les combos sont vides, restera plus qu'à voir ce qui se passe dans ces combos

ci-joint

Edit ; je viens de lire le post de M.Ferrand merci

17tca-test001.xlsm (259.78 Ko)

Bonsoir MFerrand

J'avoue que je n'avais pas été plus loin...

Tu as encore raison, comme dab

Je te souhaite une bonne soirée

A+

Bonsoir à tous,

Merci pour tout

J'ai en fait défini le nom ListEnt (Feuille Paramètres A1:A53), et ça fonctionne.

Par contre, j'ai un autre problème, lors d'une nouvelle demande pour une entreprise inexistante, la ligne se crée en fin de feuille (Straitants ou Straitant Chantier) ligne 1048576.

Pouvez vous m'aider svp?

Petu

17tca.xlsm (282.09 Ko)

Re

Petite amélioration:

25tca-3.xlsm (265.20 Ko)

prendre le 2ème

Bonne soirée

Définis tes noms de plage avec les formules suivantes :

pour ListeEnt

=DECALER(Paramètres!$A$1;;;NBVAL(Paramètres!$A:$A))

pour ListeEnt_ST

=DECALER(Paramètres!$B$1;;;NBVAL(Paramètres!$B:$B))

Les noms de plages seront ainsi dynamiques, toujours adaptées aux dimensions, plus besoin de s'en occuper...

C'est dans l'onglet Nouvelle Demande que se crée ta ligne entreprise ?

Le problème est que tu cherches la dernière ligne sur la colonne Q, apparemment vide mais qui contient des ' , caractère non visible en première position mais set à forcer un format texte. Il n'y en a pas partout. Situation semblable dans la 2e feuille Sous-traitants, avec la colonne P.

Je n'ai pas cherché les raisons de l'apparition de ce caractère, mais si c'est volontaire et s'il y a une raison, tu devrais le savoir. En tout cas le choix ne s'avère pas opportun, il n'y a donc plus qu'à assainir cette situation.

Bonjour a tous,

Je vous remercie pour votre aide.

Grâce à vos observations mes problèmes sont résolus.

Merci

Petu

Rebonjour,

Finalement, il y a un problème qui persiste.

En effet, je vous disais précédemment que lors d'une nouvelle demande pour une entreprise inexistante, la ligne se crée en fin de feuille (Straitants ou Straitant Chantier). Ce problème est résolu, puisque la création de la ligne se fat en fin de tableau.

Sauf que les autres nouvelles demandes pour cette même entreprise vont se placer comme au départ en fin de feuille.

Quel est le problème svp?

Petu

Bonsoir

As tu modifié le fichier que je t'ai envoyé ???

Merci

Re

Je ne comprends rien à ce que tu veux faire

Dans le cas d'une nouvelle demande pour une entreprise existante , j'ai : non trouvé

Un peu normal :

ActiveSheet.Cells.Find(What:=Valeur, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
                           xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) _
                           .Activate

Si ActiveSheet n'est pas la bonne feuille, cela n'est pas trouvé

Revois bien ta programmation en mettant des points d'arrêt là où tu as des doutes et fais du pas à pas, car tout me semble tellement flou que je nage

Je démissionne momentanément...

Ne t'inquiète pas, je reviendrai, mais la tête reposée...

Bonne soirée

Rechercher des sujets similaires à "erreur execution 380 probleme rowsource"