Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Remplacer le 33 du numéro de téléphone (Petite dernière du WE )

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

Ne trouvant pas la solution à mon besoin, je me tourne (encore une fois lol) vers nos ténors :

Tous mes numéros commencent par 33 et les 9 chiffres à la suite.
Pour appeler les Dom Tom pas de souci, appeler avec le 33 111111111, ça marche.
Mais pour envoyer un sms avec mon opérateur, il n'en est pas de même.
En effet, pour que le sms parte et arrive à destination, il faut que le 33 soit remplacé par l'indicatif téléphonique du département d'Outre mer.

Dans le fichier test joint, j'ai mis 2 numéros 33111111111 et 33222222222 en col "E".

Grâce à Gérard qui me l'a appris (comme tant d'autres trucs), je fais comme suit :
1 - je clic sur le numéro de téléphone et "ActiveCell.Name = "MaCell" 'nomme la cellule : ça c'est OK,
2 - ensuite, (ce que je n'ai pas trouvé pour l'instant), le clic sur l'indicatif choisi en col "I" doit me remplacer le 33 du n° mémorisé par l'indicatif de la cellule cliquée.

Mes recherches m'ont permis de trouver ce code "MaCell.value = Replace(ActiveCell.value, "33", "", 1, 1, 1)" que j'ai tenté de modifier mais sans succès jusqu'à maintenant.
Auriez-vous le bon code ?

Continuant mes recherches, je joins le fichier test bien connu maintenant.
Avec mes remerciements,
lionel 🙂
 

Pièces jointes

Solution
Pourquoi pas ce code très simple à la place de la bordélique SelectionChange :
VB: 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target(1).Locked = True Or Left(Target(1), 2) <> "33" Then Exit Sub
Dim code As Variant
Cancel = True
code = Application.InputBox("Code pour remplacer 33 :", "Code", , 2)
If code <> "" And code <> False Then Target(1) = code & Mid(Target(1), 3)
End Sub
Trier par date Trier par votes
Bonjour Gérard, Bonjour le Forum 🙂

Le code fonctionne toujours super bien (comme d'habitude) et encore un grand merci 🙂

J'aimerais y apporter une amélioration que je ne parviens pas à coder.
lol, je sens que là je vais être passé par les armes (c'est la tendance du moment).

Voici ce qui serait vraiment super :
Contexte de travail
Dans notre travail d'appels, pour être performant et efficace, tout doit être "TRES" rapide !

Pour optimiser :
J'en suis arrivé à limiter au strict minimum les saisies et à automatiser au maximum
en tentant de verrouiller toutes les actions pour éviter les erreurs de clics et tout canaliser pour :
- "diriger" toutes les actions dans toutes les situations possibles et pour que
- tout ce qui découle de l'exécution d'un code soit fait sans oubli et sans erreurs.

Dans cet état d'esprit :
Est-il possible plutôt que de saisir l'indicatif qui va remplacer le "33" …
que l'InputBox affiche la liste des départements (codés dans le code) et qu'au clic sur la ligne,
l'indicatif en fin de ligne remplace le 33 ?

On pourrait même supprimer le OK le clic sur la ligne remplacerait direct le 33 🙂
En cas de miracle, je joins le fichier test et je continue à chercher.

Merci, Merci ... encore et encore,
lionel 🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour

Contexte de travail
Dans notre travail d'appels, pour être performant et efficace, tout doit être "TRES" rapide !
Cliquez pour agrandir...
la solution
Oubliez Excel et investir dans un logiciel tiers dédié
Bizarrement Excel n'est pas dans la liste 😉
Mais il est vrai que l'addiction au gaz hilarant (fusse-t-il niché dans les tites cellules de notre tableur préféré) est difficile à vaincre 😉
Surtout quand en plus on a une attirance inexplicable pour les usines
😉

NB: ...Ce n'est que de l'humour (et je n'ai pas d'armes dans mon clavier) 😉
 
Vote positif 0 Vote négatif
Bjr JM : non de d'la avec le temps, tu m'as séduit lol ... je commence à apprécier ton humour 🙂
 
Vote positif 0 Vote négatif
Bonjour Lionel, JM, le fil,

Je plussoie ce que dit JM, pourquoi encore succomber à la tentation de l'usine ?

Avec la liste des départements à droite de la zone c'est le plus simple.

Dans tous les cas il faudra la lire !!!

A+
 
Vote positif 0 Vote négatif
Bonjour à toutes et à toutes,
Je vous souhaite un beau WE 🙂

Rappel :
Contexte de travail
Dans notre travail d'appels, pour être performant et efficace, tout doit être "TRES" rapide !
Pour optimiser :
J'en suis arrivé à limiter au strict minimum les saisies, les clics et à automatiser au maximum
en tentant de verrouiller toutes les actions pour éviter les erreurs de clics et tout canaliser pour :
- "diriger" toutes les actions dans toutes les situations possibles et pour que
- tout ce qui découle de l'exécution d'un code soit fait sans oubli et sans erreurs.
Dans cet état d'esprit :
Plutôt que de saisir l'indicatif à la mimine, le but est de remplacer le "33" …, par l'indicatif choisi.
quand Combo1_Change, la liste des départements (codés dans le code) est affichée
et au clic sur la ligne, l'indicatif en fin de ligne remplace le 33 ?

J'ai cherché ... cherché ...
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Enfin, je crois que j'y suis arrivé 😉 ... Et ce n'est pas une usine pleine de gaz lol 😛🤣
Et c'est grâce à vous tous que je remercie vraiment pour votre patience et votre gentillesse 🙂
En particulier :
job75 = je suis parti de ton code
Staple1600
Ce fil
et de :
laurent950 = j'ai intégré ton code

Microsoft 365 - msgbox avec liste de choix

Bonjour à toutes et à tous, Je me tourne une nouvelle fois vers nos ténors ;) J'ai fait des p'tits tests UF pour faire des choix de nombres ... Pas de souci particulier pour ça :) Mais les UF, me semble-t-il, alourdissent les classeurs et les miens sont déjà plutôt lourds et "Usines à gaz"...
www.excel-downloads.com
et :
https://www.excel-downloads.com/threads/coder-en-vba-une-formule.20066253/
cp4
Jacky67
vgendron
Staple1600
AtTheOne

Voici le fichier en pièce jointe,
Voulez-vous me dire ce que vous en pensez ?
Encore mille MERCIS.
Amicalement,
lionel 🙂
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Question Question
XL 2013 Saisie sécurisée numéros de téléphone et ajout fonction clic droit de la souris
2
Réponses
21
Affichages
892
Helios77
H
P
  • Question Question
XL 2016 35 Variantes d'écriture dans un numéro de téléphone portable à harmoniser en 1 seul
Réponses
13
Affichages
1 K
Philippe Château
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…