Insertion obligatoire d'un espace en 3ème postion dans cellule..si ..

Il se trouve que Michel a formulé :

bonsoir à toutes et tous

Je recherche le moyen d'insérer obligatoirement un
espasce en 3ème postion dans chaque cellules de ma
selection si
cette fameuse cellule commence obligatoirement par NR
et suivie de quelque chose. (ex : NR1234 devient NR
1234) si la
cellule commence par autre chose, rien ne se passe.
merci de jetre un coup d'oeil à l'ébauche de code
ci-dessous et m'indiquer le gros + qui y manque pour
parvenir
à ce résultat.

Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx

Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF" ' la zone à
vérifier
Dim c As Range
selection.SpecialCells(xlCellTypeConstants,
23).Select
For Each c In selection
IF c.Value = ' je voudrai que cela vérifie
3ème caractère' si c'est un espace c'est bon autrement
que l'espace soit automatiquement insérer en 3ème
position et le reste ne change pas"

''ci-dessous ce que j'ai essayé de tester...sans
succés. les puristes m'excuserons

If c.Value = "NR" & "????" or c.Value = "nr" & "????"
then
c.value = "NR" & "_" & "????"
End If
Next c 'cellule suivante
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub

Bonsoir JPS
Dis John Player Spécial (JPS)
c'est ici qu'il faut répondre ou, vu la date je
re-crée un fil ??
Mille excuses pour cette erreur de jeunesse
(merci quand même : 20 ans de moins pour mois)
Au fait, pas eu le temps de tester ta macro mais
demain si les deux de la maintenance informatique
me le pemettent, pomis je test..

bonsoir JPS

--
Amicalement
Michel . P

bonsoir à toutes et tous

Je recherche le moyen d'insérer obligatoirement un
espasce en 3ème postion dans chaque cellules de ma
selection si
cette fameuse cellule commence obligatoirement par NR
et suivie de quelque chose. (ex : NR1234 devient NR
1234) si la
cellule commence par autre chose, rien ne se passe.
merci de jetre un coup d'oeil à l'ébauche de code
ci-dessous et m'indiquer le gros + qui y manque pour
parvenir
à ce résultat.

Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx

Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF" ' la zone à
vérifier
Dim c As Range
selection.SpecialCells(xlCellTypeConstants,
23).Select
For Each c In selection
IF c.Value = ' je voudrai que cela vérifie
3ème caractère' si c'est un espace c'est bon autrement
que l'espace soit automatiquement insérer en 3ème
position et le reste ne change pas"

''ci-dessous ce que j'ai essayé de tester...sans
succés. les puristes m'excuserons

If c.Value = "NR" & "????" or c.Value = "nr" & "????"
then
c.value = "NR" & "_" & "????"
End If
Next c 'cellule suivante
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub