Nom ambigu détecté

Re ,

Eh oui ,reste à modifier,mais par quoi remplacer,ce qui fait double emploi,donc ambiguité ?,c'est tout le Problème
Voila la ligne où se trouve l'os .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Elle est la même sur les deux macros
La fenêtre d'erreur détecte le nom ambigu:"Worksheet_SelectionChange",ce qui motive le rejet de la 2°.

Que mettre à la place ?

A plus

Bremic83

Re Mike-31


Voiçi l'extrait demandé

A plus

Bremic83

www.cijoint.fr/cjlink.php?file=cj200910/cijYsVBl1y.xlsm

Re Mike31

Oui,c'est le bazar !

Afin de te permettre de mieux comprendre ce que je veux faire,je t'explique:
Appliquer la macro qui actionne par un simple clic,sur la ligne de la colonne 6 ou de la colonne 12,les changements de colonnes et les couleurs,sur la ligne choisie .(On visualise son code vba dans l'onglet "développeur")
Je voudrais appliquer le macro "mois",qui elle est dans la liste de macros que l'on appelle,par le bouton "Macro"

La dite macro est rejetée,car sa première ligne est la même que celle çi-dessus.(C'est ce que je suppose,d'après le peu que j'ai compris dans "Aide"etJ'ai effacé cette première ligne,en attendant une solution)

Mes compétences,en langage VBA,sont très élémentaires,ainsi qu'en informatique,d'ailleurs,et il ya beaucoup de
choses qui m'échappent,donc ceci explique le bazar que tu as trouvé.

La seconde macro devrait me permettre d'appeler des tableaux d'archives des mois précédents,par un clic sur
le nom du mois en question,qui appelle la cellule dans la colonne de droite,dans les colonnes de R4 à W4.
Si tu connais un moyen plus simple,je suis preneur.
Cordialement.

Bremic83

Re Mike-31

Toutes mes excuses,j'ai encore fait une boulette pour transmettre ma pièce jointe,et t'ai fait perdre du temps pour rien.
Je vais mieux étudier mon coup et te transmettre le bon classeur.pas étonnant que tu n'y comprenais rien,et
que tes réponses me laissaient perplexe.
A demain.
Encore merci

Bremic83

Re Mike-31

J'ai eu un temps de répit inespéré,alors,voici le nouveau lien.
J'ai essayé,c'est le bon.
Bonsoir
Bremic83


http://www.cijoint.fr/cjlink.php?file=cj200911/cijhjxmoXC.xlsm

Bonsoir Mike-31

Je ne te voyais plus sur le forum,j'attendais que tu réapparaisses,j'espérais que tu allais m'indiquer une solution
avec le fichier que je t'ai transmis par "Ci-joint",mais ma demande était partie plusieurs pages en arrière,je suppose qu'elle t'a échappé.

Excuse moi de te relancer.
Le lien est sur mon précédent envoi.

J'espère à plus.
Cordialement

Bremic83

Re et bonsoir Mike-31

Ce que je veux,c'est appliquer la macro çi-dessous,dans le classeur que je t'ai envoyé,que,si tu ne l'as pas eu ,tu peux sortir avec le lien,également recopié çi-dessous.
Le problème est que "Private Sub Worksheet_SelectionChange(ByVal Target As Range)
"Worksheet_SelectionChange" est le nom ambigu,car,dans le classeur,il y a une autre macro qui débute par la même ligne,et que je ne sais pas quel terme il faut mettre à la place.
C'est tout ce qu'il ya à faire,le reste fonctionne très bien.



www.cijoint.fr/cjlink.php?file=cj200911/cijhjxmoXC.xlsm


Tâches à effectuer pour cette macro:
Appeler les cellules,identifiées colonnes T ,V, X
en cliquant sur les cellules colonnes S , U , W.



Sub mois()


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
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

Bonjour,Mike-31,

Je vais tester tes deux propositions,mais ton idée de liste déroulante me plairait assez,mais je ne sais absolument pas comment on réalise celà.
Je ne demande qu'à apprendre,(si ce n'est pas trop compliqué,car je n'ai pas beaucoup d'expérience dans ces domaines)
Si celà ne te rebute pas trop de jouer les initiateurs,je suis partant.

A plus.

Cordialement.

Bremic83

Re Mike-31

Essais non concluants :
Sur les deux apparait la fenêtre d'erreur : "Erreur de compilation fin d'instruction",la ligne çi-dessous est surlignée en rouge,et le trait d'union entre Selectijava et script surligné en bleu

Private Sub Worksheet_Selectijava-script(ByVal Target As Range)

Sur "Aide",on parle de parenthèses absentes,mais rien ne dit,où !

A plus

Bremic83

Re Mike-31

Bien reçu,très sympa,merci et à plus

Bremic83

Re Mike-31

Depuis que j'ai reçu ta macro,j'essaie de la mettre dans le classeur où elle doit être,sans succès.
Je reçois ,si je la copie telle que tu l'as rédigée,le message d'erreur:Erreur de syntaxeou erreur de compilation, avec la ligne 1 surlignée en bleu.
J'ai essayé de l'intégrer à la suite d'une autre,comme copié çi-dessous.
Plus de fenêtre d'erreur,mais aucun résultat.
Je cale, pour ce soir,je vais aller faire dodo !
Je mettrai le nouveau texte demain.
Merci de tes efforts.
Bonsoir,et à plus

Bremic83

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Row < 5 Or sel.Row > 49 Then Exit Sub
If sel.Column = 6 And sel.Count = 1 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
If sel.Column = 12 And sel.Count = 1 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
On Error Resume Next
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
On Error GoTo 0
End Select
End Sub

Re gbinforme
Que j'aie tout mélangé,ce n'est pas une surprise,cela m'arrive plus souvent que de toucher le quinté dans l'ordre ! (ou même dans le désordre ) !
Ceci étant,merci de venir à mon secours une nouvelle fois.
Je viens de mettre ta macro dans le classeur ,et,je me retrouve encore avec la fenêtre d'erreur:
"Erreur de compilation,erreur de syntaxe " et la première ligne, copiée çi-dessous,surlignée en bleu :

Private Sub Worksheet_Selectijava-script(ByVal sel As Range)

Comme à l'origine de cette discussion,où je buttais sur l'erreur : "Nom ambigu détecté",je me retrouve
pratiquement devant le même problème,dont,pour moi,la solution est toujours aussi insaisissable.

Que faut-il faire ?

A plus

Bremic83

Re gbinforme
Encore une boulette en voulant aller trop vite ! Excuses !

La fenêtre d'erreur qui s'affiche à l'essai de mise en place de ta macro,est la suivante:
"Erreur de compilation,fin d'instruction",la ligne est imprimée en rouge et "Private" est surligné en bleu

Sub Macro1()Private Sub Worksheet_SelectionChange(ByVal sel As Range)

A plus

Bremic83

Re Mike-31,gbinforme

Aîe ! Aïe, ! Eh bien mes bretelles sont remontées.
J'avoue,je me mélange souvent les pinceaux.

Mike,mon fichier n'a pas changé,et voiçi ce qui devrait se passer :
1°) Cliquer sur une cellule de la plage S1 à S4 = Sélection de la cellule de droite.Même chose pour U et W .

2°) Cliquer sur une cellule,dans les colonnes F et L,sur une plage allant de F5 à F49,et de L5 à L49 = action
de la macro,copiée çi-dessous,élaborée par gbinforme,et que j'ai légèrement modifiée,en insérant dans la sélection une petite formule trouvée sur un autre forum,et qui donne pleine satisfaction.

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
If sel.Row < 5 Or sel.Row > 49 Then Exit Sub
If sel.Column = 6 And sel.Count = 1 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
If sel.Column = 12 And sel.Count = 1 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 sub

Ton allusion,Mike à l'agacement de Michel_m,que je remercie encore de s'être montré si conciliant,au sujet du miniloto,là,je plaide non coupable,c'est le succès de son procédé qui a suscité un enthousiasme et moult propositions d'adaptation à d'autres utilisations que celle initialement prévue.Je prévoyais sa réaction et en avais fait part à mes amis.A sa place,je ne sais si j'aurais été aussi patient !

A plus

Bremic83

Re Bonjour Mike-31

Dans la charte du forum,il est demandé aux membres,de faire preuve de courtoisie dans leurs échanges.
Je constate,avec amertume,que ces préceptes n'on pas été appliqués,dans les nôtres.

En effet,pourquoi m'avoir,le 6 novembre,demandé de te préciser mes objectifs ?,(ce que j'ai fait immédiatement,bien que le titre de la discussion le spécifie clairement ! )
Pour,ensuite appliquer un "Silence Radio" total !!!! (Bien que tu sois présent sur le forum )

Cette attitude discourtoise et méprisante est elle conforme aux préceptes de la charte ?

Ce forum est un lieu de discussion,non un club privé réservé aux seuls initiés,et ,à mon niveau,on y apporte plus de questions que de réponses.

Je regrette que notre discussion se termine ainsi.

Bremic83

Re Mike-31
Je te cite:
(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 )

D'accord,cette partie fonstionne bien



Je te cite:
(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 )

Pas d'accord,il y a la fenêtre d'erreur,objet de la discussion.

Je sais que vous êtes tous des bénévoles,et que les débutants peuvent vous agacer,mais poser un question
et ne pas y répondre peut également agacer la partie adverse.

Cette discussion étant close,il n'y a aucune raison,de mon point de vue,de demander un arbitrage.

Chacun d'entre nous tirera les conclusions qu'il en déduira,et la terre continuera de tourner.

Ainsi soit il .

Remerciements pour le temps consacré .


Bremic83

Re gbinforme
Bonjour,je suis consterné que tu aies pris pour toi les reproches que j'ai adressé à Mike-31,je n'en ai aucun à
ton adresse,ta macro fontionne parfaitement ,et,grâce à tes explications je suis arrivé à une solution.
Ce qui a motivé ces reproches,c'est l'attitude de Mike,qui me demande de préciser ma demande,et ,ensuite
ne me donne aucune réponse,ce que j'ai pris pour du mépris.
Pour arranger les choses,il me déclare aujourd'hui de mauvaise foi !
C'est vraiment consternant !
Je te prie d'accepter mes excuses les plus plates pour ce quiproquo,et j'espère,que tne m'en tiendras pas rigueur.
Sincèrement désolé.

Bremic83

Re Mike-31 et gbinforme.
Bonsoir,
Votre insistance à me confirmer le bon fonctionnement de votre macro,m'a incité à rechercher le pourquoi du non fonctionnement chez moi.
Je viens enfin d'en découvrir la cause
lorsque j'ai enregistré la macro,en téléchargement,et recopiée dans la fenêtre code vba,une virgule a été enregistrée devant la deuxiémé ligne,ce qui la rendait inopérante.
Un utilisateur plus expérimenté que moi aurait découvert celà de suite,et de ce fait,aurait évité la dérive de cette discussion.
Ce n'est malheureusement pas mon cas.
Je fais amende honorable,et vous prie d'excuser ce mouvement d'humeur.
Peut-être à plus.

Avec mes regrets.

Bremic83

Re Mike31
Je récapitule la discussion,qui semblait avoir bien débuté entre nous:
Post 11: Le 10 sans réponse de ta part,je te relance dans le poste 12.
Post 14;sur ta demande, je reprécise mon objectif.
Post 15:Propositions de ta part.
Post 22:Je signale les obstacles rencontrés.
Post 23:intervention de gbinforme,qui propose une macro que je tranxfère dans mon dossier par copier-coller.
Post 24:je signale le problème rencontré,mais je commets une erreur de macro.
Post 26:Je précise l'erreur rencontrée.
Post 27:tu interviens et tu argues de faits survenus dans une autre discussion,qui n'a rien à voir avec celle-çi
pour m'accuser de versatilité dans mes demandes,et tu me prie de bien préciser ce que je veux,ce que je fais .
"Pas de réponse"
Post 29:réaction de ma part
Post30: violente réaction de la tienne.
Prends la peine de relire tout celà,objectivement,tu verras que je n'ai aucunement mis tes compétences en doute,je me suis insurgé,car tu m'as laissé tomber pour la deuxième fois,et,que cette attitude désinvolte m'est apparue comme une certaine forme de mépris.
Si mon problème ne t'intéressais plus,j'aurais compris,mais tu n'avais qu'à me le dire.

Post 33 et 34 gbinforme et toi m'assurez du bon fonctionnement de la macro chez vous deux.
Comme ce n'est pas le cas chez moi,je reprends un examen approfondi de la situation.
après être passé nombre de fois sur le hic,sans le voir,j'ai réenregistré la macro par copier-coller dans
le visual basic de mon fichier,et là,ça marche.Vous auriez,sans doute détecté le problème au premier coup d'oeil,moi,j'y ai mis plusieurs jours.
Post 36: Loin de te montrer compréhensif,tu me "pardonne à demi,une faute avouée" !!!
Quelle faute ?,J'ai commis des erreurs,je les reconnais,moi !
Je ne confond pas erreur involontaire et faute, niée de mauvaise foi,,,,,,

Si c'est la première fois que tu essuies un reproche,c'est peut-être la première fois que tu agis ainsi.
Tu es retraité,moi aussi,si Dieu le veut,je fêterai mon 82° anniversaire le 5 févier prochain,.
Moi aussi,j'ai aidé des gens dans la peine dans la COTOREP de mon département,et dans d'autres activités sociales,ce n'est pas pour celà que je vais me sentir supérieur aux autres.
Je pense que tu es de ces personnes imbues de leur savoir et de leur ego,qui acceptent mal un reproche ou un manque,mais qui ne se gênent pas pour en faire aux autres.
Tu fréquentes plusieurs forums,tu as beaucoup d'occupations,c'est très bien,mais,toi qui aimes les citations et les adages,médites un peu sur celui-çi: "Qui trop embrasse,mal étreint"
Après ce long laïus,si tu veux demander un arbitrage,ne te gênes pas,car,un juge impartial ne
pourra conclure qu'à des torts réciproques.

Merci de m'avoir lu jusqu'içi.

Salutations distinguées

Bremic83