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

[Usine à gaz]

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

 

[Usine à gaz]

Re-Gérard,
Fonctionnement nickel
Vraiment super !
lionel

 

[Usine à gaz]

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

 

[Staple1600]

Bonjour

Contexte de travail
Dans notre travail d'appels, pour être performant et efficace, tout doit être "TRES" rapide !

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)

 

[Usine à gaz]

Bonjour


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)

Bjr JM : non de d'la avec le temps, tu m'as séduit lol ... je commence à apprécier ton humour

 

[job75]

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+

 

[Usine à gaz]

Re-Gérard, je me disais bien que ce n'était pas possible Snifff

 

[job75]

Re-Gérard, je me disais bien que ce n'était pas possible Snifff

Tu plaisantes ?

Entre une solution avec UserForm forcément lourde et une petite InputBox je préconise l'InputBox !

 

[Usine à gaz]

C'est bien ce que je pensais le mieux est bien l'InputBox .... je cherche lol

 

[Usine à gaz]

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

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