Nom ambigu détecté Résolu/Fermé

Question

Bonjour à tous.

Comme le titre de ma demande l'indique,,je me trouve devant un problème pour l'installation d'une macro
dans un fichier:
J'ai adapté une macro à un fichier,dans un dossier où je teste mes essais,avant de les placer dans le dossier 
de destination.Elle fonctionne parfaitement.
Mais,lorsque je la transfère dans le dossier en question,j'obtiens une fenêtre d'erreur,qui me dit :
"Nom ambigu détecté : Worksheet_SélectionChange .
J'ai regardé dans "Aide",je n'ai pas compris grand chose,sauf,peut-être,que j'ai déjà,dans ce dossier,une autre macro qui commence de la même façon:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Aide indique la correction à effectuer,mais,mes connaissances en VBA ne me permettent pas de savoir de quelle façon je dois l'insérer dans le code,ni à quel endroit de la ligne.
Merci à celui qui me le dira.

A plus.

Bremic83

Mike-31 · Answer

Salut,

Contrôle dans le Visual Basic Editor si tu n'as pas deux titres de codes identiques

comme celui ci 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ou dans un module deux macros avec le même nom

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

 he ben voila reste à modifier et te voilà sauvé

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Soit tu peux mettre ton code à la suite dans la même procédure si tu souhaites que le code se déclenche à chaque déplacement de cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Ou tu utilises la syntaxe ci-dessous pour déclencher ton code lorsque la valeur d'une cellule change

Private Sub Worksheet_Change(ByVal Target As Range)

Si tu es géné mets ton fichier sans notes confidentielles sur le forum avec ce lien

https://www.cjoint.com/

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

C'est un peu la faune, 
tu as un code associé à un CommandButton1 dans le module2, alors qu'il devrait être dans les propriétès de la feuille concernée et inversement sur les propriètés de ta feuille 1 un code macro1 alors qu'il devrat être dans un module ce que j'ai fait.
Tu as également une multitude de modules vides que j'ai supprimé

mais ou est ce code feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Sur le fichier tu as des laison avec d'autres fichiers, les codes ne serait il pas sur les autres

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Comprends pas, dans le fichier que tu as joint, il n'y a pas d'onglet développeur ni de macro "mois"

https://www.cjoint.com/?lbsTwlrar3

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Tu as bien fait de me relancer, quelques occupations annexe avec quelques grosses discussions sur le forum, je t’avais un peu oublié.

Nous allons si tu le veux bien traiter un problème à la fois

Rafraichi moi la mémoire, par rapport à ton dernier fichier que souhaites tu faire et sur quelle cellule

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Regardes ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("S1:S4,U1:U4,W1:W4")) Is Nothing Then: Exit Sub
Select Case Target.Offset(0, 1)
Case Is = "S1"
Range("e76").Select
Case Is = "S2"
Range("e138").Select
Case Is = "S3"
Range("ee188").Select
Case Is = "S4"
Range("ad76").Select
Case Is = "u1"
Range("ad139").Select
Case Is = "u2"
Range("ad188").Select
Case Is = "u3"
Range("e240").Select
Case Is = "u4"
Range("e293").Select
Case Is = "w1"
Range("e344").Select
Case Is = "w2"
Range("ad240").Select
Case Is = "w3"
Range("ad288").Select
Case Is = "w4"
Range("ad342").Select
End Select
End Sub

Mais si à la place de saisir dans les plages en T, V, X exemple S1 ou S2 etc … tu saisissais la référence de la cellule à sélectionner exemple E76 ou E138 etc

Le code serait plus simple et se limiterait à cette formule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("S1:S4,U1:U4,W1:W4")) Is Nothing Then: Exit Sub
Select Case Target.Offset(0, 1).Select
Case Is = Range(ActiveCell).Select
End Select
End Sub

Et si il y a plusieurs possibilités de sélection pour chaque mois pourquoi ne pas créer des listes déroulantes qui proposeraient ces références de cellules associées

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Je te prépare un fichier avec liste déroulante et le code dans la soirée

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Récupères le fichier et on en reparle

https://www.cjoint.com/?lfs6j2QgRs

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

Remplace le code macro par celui ci pour la gestion des erreurs

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Fin
    If Intersect(Target, Range("S1:S4,U1:U4,W1:W4")) Is Nothing Then: Exit Sub
    Select Case Target.Offset(0, 1).Select
    Case Is = Range(ActiveCell).Select
    End Select
Fin:
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

gbinforme · Answer

bonjour

Ceci devrait mieux aller car tu as un peu tout mélangé :

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
On Error Resume Next
If not Intersect(sel, Range("S1:S4,U1:U4,W1:W4")) Is Nothing Then
    Select Case sel.Offset(0, 1).Select
        Case Is = Range(ActiveCell).Select
        On Error GoTo 0
    End Select
end if
If sel.Row < 5 Or sel.Row > 49 Then Exit Sub
If (sel.Column = 6 or sel.Column = 12) And sel.Count = 1 Then
    If sel.Offset(0, -2).Value <> "" Then
        sel.Offset(0, -1).Value = sel.Offset(0, -2).Value
        sel.Offset(0, -1).Font.ColorIndex = 10
        sel.Offset(0, -2).Value = ""
        sel.Offset(0, -4).Font.ColorIndex = 3
    End If
End If
End Sub

Une macro événementielle est un tout et il faut que tout soit cohérent.

Si tu sors d'entré sur certains critères, les autres ne peuvent pas être pris en compte.

gbinforme · Answer

bonjour

Où as-tu vu cette ligne dans ma macro ?

Private Sub Worksheet_Selectijava-script(ByVal sel As Range)


Private Sub Worksheet_SelectionChange(ByVal sel As Range)

Mike-31 · Answer

Salut tout le monde,

Bremic83, j'ai repris tes discussions sur le forum elles reflètent les mêmes problèmes, à savoir que tes demandent sont changeantes ou évolutives malgré les observations de certains intervenants comme pour le mini loto. Il serait plus facile pour nous d’avoir dès le départ une demande précise.
Ensuite il ne suffit pas de prendre sur un forum, dans une discussion un code et le copier dans son fichier pour qu’il marche, comme le souligne Gbinforme que je salut un code a une fonction spécifique adapté à un besoin et s’il y a une erreur dans le code, les fonctions d’Excel se bloquent.

Je pense que dans le cas présent, il faudrait effacer dans le Visual basic tout les codes que tu aurais pu coller (propriétés feuille, module et thisworkbox)

Essayer d’énumérer simple tes attentes par rapport au fichier que tu as mis sur le post 11 s’il n’a pas changé
Exemple : lorsque je clique sur une cellule des plages S1 à S4 la cellule inscrite dans la cellule de droite est sélectionnée la même chose pour U et W

Une fois la cellule sélectionnée je voudrai qu’il se passe …..

Ou avant que la cellule se sélectionne qu’il se passe ….

Etc …

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Salut,

Holà, on se calme avant de porter de tel jugement,

Sur le post 23 de gbinforme le code demandé exécute parfaitement les attentes formulées dans cette discussion

Ce code reprend mon code de mon fichier joint le post 20 et un code écrit par Gbinforme ce code s’exécute parfaitement.
Lorsque l’on clique sur une cellule de la plage F5 à F49, et de L5 à L49 = la valeur se trouvant sur la colonne de gauche se transféré sur la cellule active

De même lorsque l’on clique sur une cellule de la plage S1 à S4 ou U1 à U4 et W1 à W4, la cellule identifier dans la cellule de droite est activée

je ne vois pas ce qui pourrait être ajouté à ce code si ce n'est une autre action pour une exécussion non spécifiée

Je n’ai pas l’habitude d’abandonner une conversation et encore moins de manquer de courtoisie. Je voudrais rappeler que nous sommes des bénévoles avec une cadence d’intervention qui nous est propre en fonction de nos disponibilités.
Le jugement porté sur le post 29 est à mon sens déplacé, toute fois il est possible d’alerter la modération qui jugera en cliquant sur le triangle jaune en haut d’un post.
Pour ma part je tirerai la leçon de ce comportement déplacé qui m’agace

gbinforme · Answer

bonjour Bremic83,

Désolé que la discussion prenne cette tournure.

Je sais bien que ce n'est pas facile de débuter mais :

- je t'écris
Private Sub Worksheet_SelectionChange(ByVal sel As Range)
- tu recopies
Private Sub Worksheet_Selectijava-script(ByVal sel As Range)
- puis
Sub Macro1()Private Sub Worksheet_SelectionChange(ByVal sel As Range) 

et tu dis te cela ne fonctionne toujours pas : cherchez l'erreur.

La macro combinée de Mike et la mienne revue par tes soins (sans tenir compte des améliorations apportées : un peu désolant tout de même...) que je t'ai mise en poste 23 me parait fournir toutes les fonctions demandées dans 2 sujets, à condition qu'elle soit intégralement et proprement copiée et je viens encore, en la reprenant sur le site de la tester avec ton classeur.

Si elle ne fonctionne pas parce que tu n'arrives pas à la copier proprement nous ne pouvons pas grand-chose pour toi dans ce cas.

D'autre part je t'avais fourni une fonction double clic pour revenir facilement en arrière en cas d'erreur que tu as snobée : pourquoi pas, c'est toi qui décide. Cependant ces attitudes risquent de décourager aussi car il ne me semble pas que j'ai utilisé à ce point Cette attitude discourtoise et méprisante est elle conforme aux préceptes de la charte ? dont tu parles.

Tout ce temps passé pour n'avoir que des reproches, n'aurait-il pas mieux été utilisé à aller à la cueillette aux champignons ?

Mike-31 · Answer

Re,

Je ne suis pas du tout d'accord, en pièce jointe le fichier fourni post 11 avec mon code post 20, couplé avec celui de gbinforme post 23

il suffit de tester ce fichier et pas un autre, toutes les fonctions demandées sont exécuter

https://www.cjoint.com/?ljqxwvALkk

Lorsque l’on clique sur une cellule de la plage F5 à F49, et de L5 à L49 = la valeur se trouvant sur la colonne de gauche se transféré sur la cellule active

lorsque l’on clique sur une cellule de la plage S1 à S4 ou U1 à U4 et W1 à W4, la cellule identifier dans la cellule de droite est activée

L'arbitrage d'un modérateur est toujours possible surtout lorsqu'on met de la mauvaise fois

Mike-31 · Answer

Re,

Allez faute avouée, faute à demi pardonnée.

J'interviens sur plusieurs forums bien que principalement sur comment ça marche, c’est la première fois que j’essuie un reproche et encore plus des propos que je préfère ne pas relever du post 29 et 34, pourtant depuis mon plus jeune âge, et je suis retraité, j’ai aidé, formé assisté des personnes pas toujours faciles dans diverses disciplines, et je continu.
Si tu veux de l’aide, il faudra à l’avenir réfléchir et tenir un autre langage.

Nom ambigu détecté

17 réponses

Discussions similaires