Noms définis et Worksheet_Change(ByVal Target As Range

Bonsoir,
Dans un fichier de plusieurs feuilles,
j'ai des noms définis sans référence à une feuille (Définir nom / référence = !M21 par exemple pour ProvAUTRE)

Dans la feuille base j'ai une macro qui utilise les noms définis sur un Worksheet_Change(ByVal Target As Range)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Private Sub Worksheet_Change(ByVal Target As Range)   ' permet la modification des cellules H11 et i11 pour la provision de fin contrat selon les cellules M19,20 et 21 If Not Application.Intersect(Target, Range("m14:m15")) Is Nothing Then 'ces cellules déterminent la valeur de la cellule M19 ActiveSheet.Unprotect 'dévérouille la feuille pour modifier les range dessous Application.EnableEvents = False 'permet de bloquer les évènements tant que la macro n'est pas finie Range("h11").Value = "PROVISION JOUR(S) FIN DE CONTRAT" Range("i11").Value = Range("ProvDAYRATE").Value Application.EnableEvents = True 'réactive les évènements Else If Not Application.Intersect(Target, Range("ProvAUTRE:SommenonAFFECT")) Is Nothing Then 'modification de M22 ou 23 qui ont la priorité ActiveSheet.Unprotect 'dévérouille la feuille pour modifier les range dessous Application.EnableEvents = False If Range("SommenonAFFECT").Value <> 0 Then Range("h11").Value = "MONTANT NON AFFECTé" Range("i11").Value = Range("SommenonAFFECT").Value Else If Range("ProvAUTRE").Value <> 0 Then Range("h11").Value = "PROVISION AUTRE FIN DE CONTRAT" Range("i11").Value = Range("ProvAUTRE").Value Else 'si l'un ou l'autre est remis à 0 alors on revient à la provision classique daily rate Range("h11").Value = "PROVISION JOUR(S) FIN DE CONTRAT" Range("i11").Value = Range("ProvDAYRATE").Value End If End If Application.EnableEvents = True ActiveSheet.Protect 'vérouille la feuille End If End If end sub

---

Dans une autre feuille, j'ai une case à option et selon le résultat, je viens changer un des paramètres (Cf. code ci-dessous) sur de la feuille BASE mais j'ai une erreur "méthode Range de l'objet Worksheet a échoué sur la macro précédente ligne 11.

Code:

---

1 2 3 4 5 6 7 8

If Range("i8").Value = 1 Then 'si CDD alors .. Worksheets("base").Range("e20").Value = "OUI" ' préca = oui par défaut   Else   Worksheets("base").Range("e20").Value = "NON" ' sinon préca = non par défaut   End If

---

Je comprends a priori pourquoi cela bloque mais y trouver une solutions car avant d'avoir défini les noms pour les Range concernés, j'avais les références des cellules dans les Range et cela fonctionnait.

Merci pour votre retour

Bonjour,
J'arrive pas à comprendre ta requête mais j'ai parti du principe que tu as un classeur à plusieurs onglets et un macro et selon un critère il va choisir l'un des onglets
Si c'est le cas il est conseillé d'utilisé un combobox remplie avec les nom des onglets et une fois tu fais un choix tu envoie le nom de l'onglet vers une cellule de l'onglet (RESULTAT)
et dans ton code tu commence par définir l'onglet source comme suit :

Code:

---

Set Sh = ThisWorkbook.Sheets(ThisWorkbook.Sheets("RESULTAT").Range("A2").Text)

---

Si ma réponse et hors sujet je n'ai que te souhaiter la bonne continuation et bonne journée

Bonjour,
merci pour la réponse qui est un peu hors sujet mais pas de soucis.

J'ai plusieurs feuilles en effet et sur certaines feuilles j'ai la première macro permettant une mise à jour de datas si certains Ranges sont modifiés.
J'avais au départ des références de cellule (range("g39").value) mais lorsque je modifiais mes feuilles, il fallait que je modifie les références des cellules dans la macro donc je suis passé en référence relative (range("ProvAUTRE").value en ayant préalablement défini le nom ProvAUTRE par exemple).

En faisant celà, une feuille sur laquelle j'ai mais deuxième macro renvoie l'erreur indiquée..

Re,
je réessaye de m'expliquer.
En plus de faire du Up, celà permet peut être de mieux comprendre et d'avoir la réponse à mon problème.

Une feuille "ENR" a des liens avec ma feuille "BASE".
Exemple : je choisis un option OUI/NON dans la feuille "ENR" et celà va automatiquement afficher OUI ou NON sur la feuille BASE dans une cellule lambda qui n'a rien à voir avec la macro et les cellules de la macro qui pose pb.

Dans ma feuille "BASE", j'ai une macro qui fonctionne sur Worksheet_change (code ci-dessous (mon premier post)).
Cette macro utilise des noms définis pour les Range.

Ces noms définis le sont de la manière suivante : Nom / référence = !G39 (pour la cellule G39 par exemple)
Au lieu de : Nom / référence = 'base'!G39
Car celà me permet d'appliquer sur plusieurs feuilles ces noms définis.

Depuis que j'ai fait celà (les noms définis pour remplacer les valeurs relatives des Range), j'ai le message d'erreur qui s'affiche (cf. mon post) lorsque j'interviens sur ma feuille "ENR" comme évoqué en début de post.

En pratique, la macro s'enclenche (logique) mais elle n'arrive pas à lire ce que les Range signifient à la ligne 11 qui est la première ligne d'action de la macro, la première condition n'étant pas remplie a priori..

Du coup, je ne sais pas quoi faire.
Lorsque les Range correspondait à des cellules précises, tout était ok.
Merci

Re,
c'est la première fois que je me parle autant à moi même !!

Bon j'ai changé mon workseet_change pour un selectionchange.

Celà me permet de ne plus avoir le problème rencontré mais par contre la mise à jour de ma feuille "BASE" ne se fait correctement que lorsque je suis sur les cellules concernées par le selectionchange, que je les modifie et que je re-clique dessus pour que ma feuille se mette à jour.
Je vais tenter de mettre un calcul automatique pour que lorsque je change une cellule, la mise à jour se fasse.

Je me (vous) tiens au courant !!!!!:mouarf:

Bonsoir à tout le monde ! enfin surtout à toi qui lit ces lignes!! j'espère.

Bon en selection_change, je disais que ça marche.
Mais pas parfait.

J'ai tenté de faire de l'actualisation ou autre mais forcément celà ne fonctionne qu'en changement de ma sélection.

Je n'ai donc toujours pas trouvé comment faire.

Si quelq'un d'autre me lit :calim2:

Bonjour !

Faute d'orthographe ou de syntaxe n'est pas plus acceptée en informatique qu'en français !
En réponse au premier post, la solution est de reprendre la même orthographe / syntaxe d'une feuille de calculs,
le message étant clair quant à l'erreur sur l'objet Range.

Sinon comme son nom l'indique pourtant bien, l'évènement Selection_Change
se déclenche uniquement lors du changement de cellule active …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

oui pour la syntaxe mais en l’occurrence, c'est le nom défini qui pose problème. Si je remets la référence de la cellule M22 ou M23, ça marche donc l'erreur de syntaxe est le nom défini qui l'est sur le classeur et non pas la feuille ce qui me semble être là ou ca bloque.

Je ne sais tjs pas avancer dans mon pb..
Merci pour la réponse néanmoins.

Bonjour
Lorsque je lis dans le code montré :

Code:

---

Range("ProvAUTRE:SommenonAFFECT")

---

1) je me dis qu'il ne peut qu'invoquer une plage ainsi nommée (ProvAUTRE:SommenonAFFECT)
2) existe-t-elle ?
3) par quel code a-t-elle été ainsi nommée ?
4) je le vérifierais par un simple :

Code:

---

msgbox Range("ProvAUTRE:SommenonAFFECT").address

---

et si erreur : je saurais qu'aucune plage n'a été nommée ProvAUTRE:SommenonAFFECT
as-tu fait ce test tout bête et de premier réflexe ? Si non --->> fais-le. Rien qu'en le faisant, tu te réveilleras.

Bonjour,
J'ai cru comprendre que tu tentes d'utiliser une cellule ou une plage nommée connue dans le classeur en utilisant un module feuille.
Exemple d'un code se trouvant dans le module d'une feuille qui affiche la valeur d'une cellule nommée Tva qui fait référence à une cellule de la feuille nommée Param

Code:

---

1 2 3

Sub Test() MsgBox Range("Tva").Value End Sub

---

Ce code renvoie une erreur 1024 sauf si tu es dans le module de la feuille Param ou dans le module ThisWorkbook

Pour accéder à une cellule ou plage de cellules nommée connue dans le classeur depuis n'importe quel module feuille,il faut utiliser

Code:

---

MsgBox ThisWorkbook.Names("Tva").RefersToRange

---

A-je bien compris ta question ?

Bonsoir,
merci pour vos posts.
Juste le sentiment que le novice n'est jamais compris par l'expert...

Umparia,
sauf erreur, un

Code:

---

If Not Application.Intersect(Target, Range("m22:m23")) Is Nothing Then

---

ne nécessite pas de définir le Range "M22:M23"

C'est juste que j'ai défini M22 = ProvAUTRE et M23 = SommenonAFFECT.

Philippe,
c'est un peu ça..

Je peux proposer autre chose ?
Comment je fais pour remplacer le code suivant :

Code:

---

If Not Application.Intersect(Target, Range("m22:m23")) Is Nothing Then

---

par celui-ci

Code:

---

If Not Application.Intersect(Target, Range("ProvAUTRE:SommenonAFFECT")) Is Nothing Then

---

sachant que les noms sont définis au niveau du classeur, afin de ne plus avoir à modifier les cellules du range si plus tard je modifie ma feuille.

merci

Tu mélange les genres, 419 ....****
Si tu veux utiliser les noms, voilà un exemple :

Code:

---

1 2 3

Range("A1:B2").Name = "titi" Range("D1:E3").Name = "bibi" MsgBox Application.Union(Range("titi"), Range("bibi")).Address

---

Et en voilà un exemple d'utilisation :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim toto As Range Set toto = Application.Union(Range("titi"), Range("bibi")) If Not Intersect(Target, toto) Is Nothing Then MsgBox "dedans" End If End Sub

---

EDIT : **** -->> Pour bien comprendre :
- un objet range utilise une adresse de cellule(s). Cette adresse est exprimée en chaîne de caractères --->> Range(adresse_de_cellule(s))
- une plage nommée n'est pas une adresse de cellule(s), ni même le nom donné à une adresse de cellule(s)), mais un nom de baptême donné à un objet Range

Le nom de baptême attribué à un objet Range constitue par ailleurs à lui seul également un objet (un objet Name et non un objet range***) et n'est en aucun cas une adresse en soi (il ne fait que se référer à une adresse)
*** pour se référer à l'objet range correspondant à cet objet name, il est nécessaire de préciser Range(Name) (et c'est un objet et non une adresse).
Ainsi :

Code:

---

1 2	MsgBox Range("titi").Address '--->> adresse le l'objet Range nommé titi

---

et

Code:

---

MsgBox Range(Range("titi").Address).Address ' --->>adresse de l'objet range basé sur l'adresse de l'objet range nommé titi

---

Retourneraient la même chose. La première syntaxe : directement (adresse de l'objet). La seconde syntaxe "ramenant" à la notation classique.

Umparia,
merci pour l'explication détaillée.

je pense avoir compris.
Mais je pense aussi que ce n'est pas le problème que je rencontre.

Si je fais dans mon code

Code:

---

1 2 3

range("ProvAutre").select ou Range("ProvAUTRE:SommenonAFFECT").select

---

et bien la ou les cellules concernées sont bien sélectionnées.
De plus, le code tel qu'indiqué (cf. premier post) marche.
Il n'y a que quand je fais référence à la feuille via une autre macro dans une autre feuille que celà bloque. (cf. premier post aussi). L'autre macro ne fait que modifier une cellule lambda dans ma feuille "BASE" déclenchant de fait (workseet_change) l'autre macro qui bogue.

J'ai défini les noms pour m'éviter d'avoir à modifier les références des cellules en cas d'ajout ou suppression de lignes dans ma feuille.
J'ai auparavant changé 3 fois les références des cellules dans la macro pour être à jour avec mes changements. La définition des noms me règle ce souci.
Mais m'en apporte un autre que je n'arrive tjs pas à régler.

Bonjour,
Juste pour ton information, la méthode SELECT de l'objet Range ne peut que renvoyer une erreur si la feuille où se trouve cette plage n'est pas active.
Pour le surplus relire ma réponse par rapport aux plages nommées et le module feuille.

Citation:

---

J'ai défini les noms pour m'éviter d'avoir à modifier les références des cellules en cas d'ajout ou suppression de lignes dans ma feuille

---

La propriété CurrentRegion de l'objet Range permet d'obtenir le même résultat (à condition bien entendu que la première cellule de la plage reste la même)

Bonsoir,

Philippe,
j'ai compris les .select si je ne suis pas sur la feuille active.
Je donnais à titre d'exemple pour Umparia sur le nommage des plages.

J'intègre ton premier post et sans doute une partie du pb vient de là..

Mais sur ma première feuille "ENR", la macro est sur worksheet_calculate (donc pas sur thisworkbook ou module) quand la macro sur la deuxième feuille est sur worksheet_change de ma feuille "BASE".

Je vais donner ma langue au chat et passer à autre chose..
Merci

Bonjour,

Ta réponse est dans ton intervention suivante :

Citation:

---

Envoyé par 419

Re,
je réessaye de m'expliquer.
.....
Ces noms définis le sont de la manière suivante : Nom / référence = !G39 (pour la cellule G39 par exemple)
Au lieu de : Nom / référence = 'base'!G39
Car celà me permet d'appliquer sur plusieurs feuilles ces noms définis.

---

Le fait d'avoir défini ce nom sur TOUTES tes feuilles fait que VBA ne sait pas à laquelle tu t'adresses dans ton WorkSheet_Change...

Donc, dans l'événement Change de ta WorkSheet "Base", remplace :

Code:

---

Range("ProvAUTRE:SommenonAFFECT")

---

par :

Code:

---

Me.Range("ProvAUTRE:SommenonAFFECT")

---

Me représente alors la feuille base.

Merci pour le retour mais

J'ai essayé

Code:

---

If Not Application.Intersect(Target, Me.Range("ProvAUTRE:SommenonAFFECT")) Is Nothing Then 'modification de M22 ou 23 qui ont la priorité

---

Et cela me renvoie la même erreur.

Exact, je n'avais pas testé.
Néanmoins, ton problème est bien dans le nommage commun à toutes les feuilles.
Pour contourner ce souci, il suffit de sélectionner ta feuille base, de manière invisible à l'utilisateur, dans le code d'appel.
Comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim ws As Worksheet Set ws = ActiveSheet Application.ScreenUpdating = False With Worksheets("base") .Select If ws.Range("i8").Value = 1 Then 'si CDD alors .. .Range("e20").Value = "OUI" ' préca = oui par défaut Else .Range("e20").Value = "NON" ' sinon préca = non par défaut End If End With ws.Select Application.ScreenUpdating = True

---

EDIT : Je rejoins unparia (salutations l'ami) sur la syntaxe avec Union...

kweel,
On est d'accord depuis le début que le nommage global pose problème.
Mais ta proposition que j'arrive à cerner dans son principe est trop touchy pour une création de ma part en solo..

En tout cas, posé rapidement, je n'ai a priori plus la problématique précédente.
Je n'ai pas le temps ce soir ou demain de finaliser.
Je reviendrais faire un retour dès que je peux m'y remettre.

Merci pour ce/ces posts.

Hey long time :)

j'ai réussi à avancer en appliquant les dernières recommandations. Merci pour celà.

Autre souci qui se présente. Je mets parfois à jour les données sur mes feuilles (via Données / mise à jour données) mais forcément mon problème revient pour chaque cellule qui est mise à jour.. sur chaque feuille..

J'aimerai donc pouvoir lancer une macro qui désactiverait toutes les macros pour éviter les erreurs bog. Mettre à jour mes liens puis réactiver les macros.
Je ne vois pas comment le faire. Merci