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

Usine à gaz · 27 Mars 2022

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

job75 · 27 Mars 2022

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

Staple1600 · 27 Mars 2022

Bonsoir le fil,

Lionel
Je ne sais pas comment tu cherches mais tu le fais bizarrement
A titre d'inspiration et pour adaptation à ton fichier

VB:

Sub argggh()
Dim X$, INDIC
INDIC = "TOTO"
X = "33121111111"
MsgBox X
Z = INDIC & Mid(X, 3, 999)
MsgBox Z
End Sub

Staple1600 · 27 Mars 2022

Re

La même mais dans une cellule

VB:

Sub ateau_sur_lo()
Dim ind_Guadeloupe$
ind_Guadeloupe = "590"
[A1].NumberFormat = "@"
[A1] = "33121111111"
[A1].Value = ind_Guadeloupe + Mid([A1], 3, 999)
[A1].Columns.AutoFit
End Sub

Usine à gaz · 27 Mars 2022

Merci JM
Je vais tester

Staple1600 · 27 Mars 2022

Re

Les indicatifs sont bien ceux-ci?
'Pays Indicatif
'Guadeloupe 590
'Guyane 594
'La reunion 262
'Martinique 596
'Mayotte 269
'Nouvelle-calédonie 687
'Polynésie française 689
'Saint-barthélemy 590
'Saint-martin 590
'Saint-pierre-et-miquelon 508
'Wallis-et-futuna 681

PS: je n'ai pas ouvert ton fichier
Je ne voudrais qu'il fiche le souk dans mon Dock

Usine à gaz · 27 Mars 2022

Re-JM
Celle-ci semble bien convenir :

VB:

Sub argggh()
Dim X$, INDIC
INDIC = ActiveCell
X = "33111111111"
[e4] = X
'MsgBox X
Z = INDIC & Mid(X, 3, 999)
[e4] = Z
'MsgBox Z
End Sub

Usine à gaz · 27 Mars 2022

Staple1600 à dit:
Re

Les indicatifs sont bien ceux-ci?
'Pays Indicatif
'Guadeloupe 590
'Guyane 594
'La reunion 262
'Martinique 596
'Mayotte 269
'Nouvelle-calédonie 687
'Polynésie française 689
'Saint-barthélemy 590
'Saint-martin 590
'Saint-pierre-et-miquelon 508
'Wallis-et-futuna 681

PS: je n'ai pas ouvert ton fichier
Je ne voudrais qu'il fiche le souk dans mon Dock

LOL : OUI, ça semble bon et tu m'en a ajoutée

Staple1600 · 27 Mars 2022

Re

Donc en relisant ton message et en testant un chouia plus

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E1:E20")) Is Nothing Then
If Len(Target) = 11 Then
Target.NumberFormat = "@"
Target = Target.Offset(, 4) & Mid(Target, 3, 99)
End If
End If
End Sub

CECI EST UN TEST
(donc à adapter ou à tester comme moi sur une feuille vierge)
J'ai saisi les indicatifs en colonne I
puis je saisi 33111111111 en E5 par exemple
puis je sélectionne E5
Le remplacement se fait alors.

EDITION: Bonsoir job75

job75 · 27 Mars 2022

Bonsoir Lionel, JM,

Lionel quand tu écris un code évite de dire que Gérard t'a conseillé quand c'est faux.

Ta macro SélectionChange est alambiquée et je n'y comprends pas grand-chose.

A+

Usine à gaz · 27 Mars 2022

job75 à dit:
Bonsoir Lionel, JM,

Lionel quand tu écris un code évite de dire que Gérard t'a conseillé quand c'est faux.

Ta macro SélectionChange est alambiquée et je n'y comprends pas grand-chose.

A+

Bsr Gérard
Je parlais de : "ActiveCell.Name = "MaCell" 'nomme la cellule

Usine à gaz · 27 Mars 2022

Re JM,

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("E6:E15")) Is Nothing Then
If Len(Target) = 11 Then
Target.NumberFormat = "@"
Target = Target.Offset(, 4) & Mid(Target, 3, 99)
End If
End If
End Sub

Fonctionne

J'aimerais créer une msgbox pour sélectionner l'indicatif de remplacement.
Je vais chercher en espérant que je saurai modifier ton code lol.
Merci JM

job75 · 27 Mars 2022

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

Usine à gaz · 27 Mars 2022

Merci Gérard, mais je ne vois pas comment ça fonctionne

Usine à gaz · 27 Mars 2022

si, c'est bon ,j'ai trouvé ... je teste

Usine à gaz · 27 Mars 2022

Bon sang, super encore merci pour tout ce que tu fais
lionel, tellement redevable

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

job75

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires