Remplir une cellule après activation d'un lien hypertexte [Résolu/Fermé]

Signaler
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
-
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
-
Bonjour,
Voilà, j'ai une petite application ou je rempli un tableau tel que :
A1 : nom
a2 : prénom
a3 : e-mail
a4 : envoi e-mail (qui est un lien hypertexte qui me renvoi sur une feuille e-mail...)

Ma demande est :
Je souhaiterait mettre en a5 : "mail envoyé" une fois que le lien en a4 a été activé

Est-ce possible ?

Merci à celui qui pourra me répondre

Joss

8 réponses

Messages postés
53655
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
19 avril 2021
15 694
Bonjour.

Non, sauf peut-être avec une macro ...
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
7339
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
19 avril 2021
625
Bonjour,

Un truc tout simple en vba.

Faire Alt F11 pour accéder à l'éditeur, ensuite sélectionner la feuille concernée et mettre ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A4")) Is Nothing Then
Range("A5").Value = "Mail envoyé"
End If
End Sub


3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 400
Bonjour à tous,

plutôt faire apparaître un bonton d'action,
Tu peux mais ce n'est pas très efficace car avec chaque bouton il faut mettre du code et si tu saisis des lignes cela sera beaucoup de travail.

"mail envoyé" une fois que le lien en a4 a été activé
Tu n'as besoin de rien faire car le lien activé change de couleur.

Le fait d'activer le lien ne prouve en rien que le mail a été envoyé car il faut ensuite le saisir et l'envoyer.

Sinon il faut envoyer directement le mail depuis excel et contrôler l'envoi : c'est une vraie petite application que j'ai dans des classeurs mais qui demande pas mal de mise au point et surtout de maintenance car il faut suivre les changement de paramètre des serveurs.
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
2
Ok, suis partant, tu as une idée dans le développement logique de la macro ?

Ou au lieu du Lien hypertexte, puis-je plutôt faire apparaître un bonton d'action, ça serait plus simple pour la suite ?

Merci a toi

Joss
Messages postés
53655
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
19 avril 2021
15 694
Non ; aucune idée ...
c'était juste pour te dire qu'il n'existait pas de solution classique (sans macro).
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
2
Bonjour, et merci de ta réponse,

Pour l'envoi du mail via excel, c'est bon, c'est fait.
En fait, une fois le lien activé, la personne arrive sur une fiche message, et via un bouton d'action, elle envoie le message automatiquement, je lui laisse la possibilité de vérifier le contenu avant la transmission, ca marche plutôt pas mal, j'en suis assez satisfait...

La personne a aussi le choix de ne pas envoyer le message et de revenir sur le tableau initial, donc, je ne cherche pas à savoir si le message à été envoyé (le paramétrage d'outlook permet de toute façon le suivi)

Et au lieu de laisser le lien changer de couleur automatiquement après activation (ce qui n'est pas très fun je trouve...), je voulais plutot faire apparaître un système de "coche", ici en "a5" pour aider la personne qui saisie les appels à se souvenir (visuellement) si elle à traité son appel jusqu'au bout... comme il y a beaucoup d'appel... le fait de voir si le lien a été activé, la personne se dit "OK" celui-ci est traité, même si elle a fait le choix d'envoyer ou pas le message...

J'ai essayé de passer tout simplement par une mise en forme conditionnelle de cellule mais bon, plein de choses sur les conditions de remplissage des cellule mais rien concernant l'activation de lien hypertexte...)

Voilà, j'espère avoir été clair dans cette petite explication.

Cordialement

Joss
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
2
Re bonjour,

Je penses avoir trouver une solution, je pofines tout ça et j'explique mon truc, ça pourra peut-être aider quelqu'un dans la même impasse !!!!

Merci

Joss
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
2
Merci
J'ai testé, ça marche nickel c'est cool.
J'ai essayé de l'adapter pour une colonne complète mai je dois merdé quelque part...

Sachant que mon tableau fait 1500 lignes... et que le lien se trouve en colonne D et Mail envoyé en colonne E, et que le lien en colonne D s'affiche sur condition en colonne C... voici ce que ça donne :


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D1:D1500")) Is Nothing Then
Range("E1:E1500").Value = "Mail envoyé"
End If
End Sub


Le problème c'est une fois le premier lien activé en D, il me rempli la colonne complète en E

Merci d'avance
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 400
Bonsoir,

Target.Offset(0, 1).Value = "Mail envoyé"

devrait corriger
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
2
Bonsoir,
Super, c'est nickel ça roule.

Peux tu me donner une petite explication sur cette ligne de code ? histoire de comprendre ce qui se passe...

Encore merci

Joss
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 400
Bonsoir,

Target est ta cellule cliquée en colonne D
Offset(0, 1) décale d'une cellule à droite > colonne E
avec Offset(0, -1) décale d'une cellule à gauche > colonne C
Messages postés
36
Date d'inscription
vendredi 7 novembre 2014
Statut
Membre
Dernière intervention
12 mai 2016
2 >
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020

Ok c'est clair !!!

Merci beaucoup !
Joss