Nom ambigu et liste

Bonjour,

Je débute dans le VBA, je ne souhaite malheureusement pas me spécialiser dedans mais j'en ai besoin pour m'aider dans mon travail.

J'ai deux fonctions sur une page, la première me permet d'appeler une macro à chaque fois que je clique sur une cellule (Worksheet_SelectionChange) afin de placer un ensemble de trois flèche en bas à droite de la page pour me déplacer dans un tableau.
La deuxième (Worksheet_Change) me permet de selectionner des items dans une liste et de les ajouter sous ce format :
A
+
B
+
C
etc...

J'ai ainsi deux soucis.
Le premier est le nom ambigu, en effet, si j'ai bien trouvé le moyen de fusionner les trois "CALL" dans la fonction Change, je n'arrive pas à garder les deux fonctions distinctes. J'appelle donc les macros lorsqu'une cellule est remplie, et pas quand je clique dessus comme je le voudrais.

Le deuxième problème concerne l'ajout d'item dans la colonne choix. En effet, si je clique sur A, puis B, puis C dans la liste déroulante, le format est le bon.
Si je sélectionne à nouveau A ou B dans la liste déroulante, A ou B disparaît de la cellule, comme je le souhaite.
Cependant, si je sélectionne C, ou bien le dernier item selectionné, celui-ci ne disparaît pas comme le font les autres (tel A ou B dans mon exemple).
Enfin, et c'est vraiment du plus, si je souhaite ajouter manuellement + Z à la suite de A + B, la cellule devient alors A + B + A + B + Z, et non pas A + B + Z.

J'espère pouvoir tomber sur une âme charitable qui saura m'aider et me faciliter mon travail.
Je vous remercie !
Pièce jointe 669256

Bonjour,
Vos explications sont pour le moins confuses.
Dites nous clairement les action et réactions. Par exemple si je sélectionne 'A' Dans la liste il doit se passer cela. et ceci pour chaque ligne.

Vous devez bien comprendre le fonctionnement des conditions If - ElseIf -Else. Pour chaque tests si la condition If est bonne le code ne passera par les autres conditions ElseIf sera tester si If n'est pas bon, et Else sera traiter que si If et ElseIf ne sont pas bon.
Méditez là dessus...

Maintenant, où est le gain de temps pour l'utilisation de flèches sur la feuille le pavé fait bien son travail non ?

Bonjour,
Sans avoir ouvert votre fichier et à la seule lecture de votre demande.
Si vous avez un message d'erreur "Nom Ambigu", cela signifie qu'une procédure (Sub ou Function) porte le même nom qu'une autre et/ou que le nom d'un module porte le même nom qu'une procédure.
A savoir également qu'il ne peut y avoir qu'une seule procédure événementielle telle que "Worksheet_Change" ou "Worksheet_SelectionChange" par module de la classe
"Feuille"

Citation:

---

Enfin, et c'est vraiment du plus, si je souhaite ajouter manuellement + Z à la suite de A + B, la cellule devient alors A + B + A + B + Z, et non pas A + B + Z.

---

Ce phénomène provient sans doute de la procédure évenementielle Worksheet_Change. Lorsque l'on écrit dans une plage de cellules depuis cette procédure, il faut momentanément empêcher l'interception de l'événement par l'instruction Application.EnableEvents = False sans oublier de remettre à True cette propriété juste après l'écriture

Citation:

---

Je débute dans le VBA, je ne souhaite malheureusement pas me spécialiser dedans mais j'en ai besoin pour m'aider dans mon travail.

---

Je comprends mais tout de même, la lecture de ce tutoriel titré Les évènements dans la feuille de calcul Excel et tout particulièrement le Chapitre I-Introduction vous permettra de mieux comprendre le problème.

Bonjour,
Si j'ai bien compris, ceci devrait le faire:

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 31 32 33 34 35 36 37 38 39 40 41

Option Explicit   Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Dim Tmpvalue As String Dim k As Integer Dim Plus As String   If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub If Target.Value = "" Then GoTo Exitsub   Application.EnableEvents = False Tmpvalue = Target Application.Undo Oldvalue = Target   If Oldvalue = "" Then Target = Tmpvalue ElseIf Oldvalue = Tmpvalue Then Target = "" Else k = InStr(1, Oldvalue, Tmpvalue) Plus = vbLf & " + " & vbLf If k = 0 Then '--- nouvelle valeur ---> ajouter Newvalue = Oldvalue & Plus & Tmpvalue ElseIf k = 1 Then '--- existe déjà ---> à supprimer Newvalue = Replace(Oldvalue, Tmpvalue & Plus, "") '--- supprime au début Else Newvalue = Replace(Oldvalue, Plus & Tmpvalue, "") '--- supprime après le début End If Target = Newvalue End If   Exitsub: Application.EnableEvents = True Call HautFixer Call BasFixer Call GaucheFixer End Sub

---

En général il n'est pas nécessaire de mentionner la propriété .Value, cette propriété étant celle exploitée par défaut.
Bonne continuation.

Bonjour Eric,

Citation:

---

En général il n'est pas nécessaire de mentionner la propriété .Value, cette propriété étant celle exploitée par défaut.

---

L'omission de la propriété Value dans une instruction VBA avec un objet Range peut conduire à des erreurs ou des comportements inattendus, surtout lorsqu'on manipule des données complexes ou lorsqu'on travaille avec des feuilles de calcul dynamiques.
Pour moi, il est évident qu'il est important d'utiliser explicitement cette propriété.

Il y a eu tout un débat sur cette problématique dans ce forum mais malheureusement, je ne la retrouve pas.
J'ai tenté également de trouver un ou deux exemples concrets mais pour l'instant, je n'en ai trouvé qu'un

Dans une cellule quelconque, par exemple D4, entrer la fonction =AUJOURDHUI()
Code de la procédure d'exemple qui renvoie un résultat différent

Code:

---

1 2 3 4

Sub T() Debug.Print TypeName(Range("D4")) Debug.Print TypeName(Range("D4").Value) End Sub

---

La première ligne renvoie Range et la seconde Date

Bonjour Philippe,

Ok, j'admets qu'il faut recommander l'utilisation explicite de la propriété Value.

Un extrait de cette discussion abordant ce sujet

Citation:

---

... mais un point n'est pas en accord avec ma façon de voir l'apprentissage de la programmation VBA.

Dans le chapitre II Prérequis, il est écrit:

Citation:

---

Un objet peut avoir une propriété par défaut. Par exemple la propriété Value pour l'objet Range. Dans ce cas il n'est pas nécessaire de saisir cette propriété. Et Range("A1") = 15 équivaut à Range("A1").Value = 15

---

Cela me semble dangereux, sur un tutoriel dont la vocation principale est tournée vers les débutants, de leur donner cette pratique, à la fois "non conforme aux règles de l'art", mais surtout laissant à VBA la libre interprétation de la bonne propriété en fonction du contexte.

En effet, débat déjà abordé dans plusieurs sujets de la section VBA Excel : dans certaines situation, c'est le propriété .Text qui sera prise par défaut. Et là clairement, on est plus sur le même type de variable (.Text = ce qui est affiché dans la cellule, .Value = ce qui est affiché dans la barre de formule pour simplifier grandement)
De quoi rendre chauve un débutant qui ne va pas réussir à débogger.

...

Je confirme : Range n'a pas de propriété par défaut !

Souvent VBA sélectionne Value mais selon le contexte il arrive parfois à la propriété Text d'être choisie,
j'en connais encore se les mordant (au choix !) en ayant buté plusieurs jours sans spécifier de propriété !

---

A+

Bonjour,
Personnellement j'oscille entre différents langages de programmation et il est préférable de toujours décliner les propriétés et méthodes.

De toutes les façons il est préférable de ne pas laisser excel choisir pour toi ce qui est le mieux.
Exemple Range("A1")=Range("A1")