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
--
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
--
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
--
Amicalement
Michel . P
Salut Michel,
Ceci devrait te convenir (à mettre dans la boucle For)
: If Left(c, 2) = "NR" And Mid(c, 3, 1) <> " " Then c =
_ Left(c, 2) & " " & Mid(c, 3, Len(c) - 2)
A+
--
Nicolas B.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
--
Amicalement
Michel . P
Salut Michel,
Ceci devrait te convenir (à mettre dans la boucle For)
: If Left(c, 2) = "NR" And Mid(c, 3, 1) <> " " Then c =
_ Left(c, 2) & " " & Mid(c, 3, Len(c) - 2)
A+
--
Nicolas B.
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
--
Amicalement
Michel . P
Salut Michel,
Ceci devrait te convenir (à mettre dans la boucle For)
: If Left(c, 2) = "NR" And Mid(c, 3, 1) <> " " Then c =
_ Left(c, 2) & " " & Mid(c, 3, Len(c) - 2)
A+
--
Nicolas B.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
--
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
--
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
--
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
--
Amicalement
Michel . P
Salut Michel,
Ceci devrait te convenir (à mettre dans la boucle For)
: If Left(c, 2) = "NR" And Mid(c, 3, 1) <> " " Then c =
_ Left(c, 2) & " " & Mid(c, 3, Len(c) - 2)
A+
--
Nicolas B.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
--
Amicalement
Michel . P
Salut Michel,
Ceci devrait te convenir (à mettre dans la boucle For)
: If Left(c, 2) = "NR" And Mid(c, 3, 1) <> " " Then c =
_ Left(c, 2) & " " & Mid(c, 3, Len(c) - 2)
A+
--
Nicolas B.
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
--
Amicalement
Michel . P
Salut Michel,
Ceci devrait te convenir (à mettre dans la boucle For)
: If Left(c, 2) = "NR" And Mid(c, 3, 1) <> " " Then c =
_ Left(c, 2) & " " & Mid(c, 3, Len(c) - 2)
A+
--
Nicolas B.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
--
Amicalement
Michel . P
Salut Michel,
Peut être avec ceci ?
Sub saisieModif()
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF"
Dim c As Range
For Each c In Cells.SpecialCells(2, 23)
If Left(c.Value, 2) = "NR" Then
If Mid(c.Value, 3, 1) <> " " Then
c.Value = "NR " & _
Right(c.Value, Len(c.Value) - 2)
End If
End If
Next c
Call ferme
ActiveWorkbook.Save
Sheets("accueil").Activate
affichée
End Sub
Hervé
"Michel" a écrit
dans le message news: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
--
Amicalement
Michel . P
Salut Michel,
Peut être avec ceci ?
Sub saisieModif()
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF"
Dim c As Range
For Each c In Cells.SpecialCells(2, 23)
If Left(c.Value, 2) = "NR" Then
If Mid(c.Value, 3, 1) <> " " Then
c.Value = "NR " & _
Right(c.Value, Len(c.Value) - 2)
End If
End If
Next c
Call ferme
ActiveWorkbook.Save
Sheets("accueil").Activate
affichée
End Sub
Hervé
"Michel" <prive.ma-boite_sans_spam@laposte.net> a écrit
dans le message news:
mn.0c797d477a309b17.11921@laposte.net...
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
--
Amicalement
Michel . P
Salut Michel,
Peut être avec ceci ?
Sub saisieModif()
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF"
Dim c As Range
For Each c In Cells.SpecialCells(2, 23)
If Left(c.Value, 2) = "NR" Then
If Mid(c.Value, 3, 1) <> " " Then
c.Value = "NR " & _
Right(c.Value, Len(c.Value) - 2)
End If
End If
Next c
Call ferme
ActiveWorkbook.Save
Sheets("accueil").Activate
affichée
End Sub
Hervé
"Michel" a écrit
dans le message news: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
--
Amicalement
Michel . P
Salut Michel,
Peut être avec ceci ?
Sub saisieModif()
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF"
Dim c As Range
For Each c In Cells.SpecialCells(2, 23)
If Left(c.Value, 2) = "NR" Then
If Mid(c.Value, 3, 1) <> " " Then
c.Value = "NR " & _
Right(c.Value, Len(c.Value) - 2)
End If
End If
Next c
Call ferme
ActiveWorkbook.Save
Sheets("accueil").Activate
affichée
End Sub
Hervé
"Michel" a écrit
dans le message news: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
--
Amicalement
Michel . P
Salut Michel,
Peut être avec ceci ?
Sub saisieModif()
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF"
Dim c As Range
For Each c In Cells.SpecialCells(2, 23)
If Left(c.Value, 2) = "NR" Then
If Mid(c.Value, 3, 1) <> " " Then
c.Value = "NR " & _
Right(c.Value, Len(c.Value) - 2)
End If
End If
Next c
Call ferme
ActiveWorkbook.Save
Sheets("accueil").Activate
affichée
End Sub
Hervé
"Michel" <prive.ma-boite_sans_spam@laposte.net> a écrit
dans le message news:
mn.0c797d477a309b17.11921@laposte.net...
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
--
Amicalement
Michel . P
Salut Michel,
Peut être avec ceci ?
Sub saisieModif()
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert
ActiveSheet.ShowDataForm
Application.Goto Reference:="VERIF"
Dim c As Range
For Each c In Cells.SpecialCells(2, 23)
If Left(c.Value, 2) = "NR" Then
If Mid(c.Value, 3, 1) <> " " Then
c.Value = "NR " & _
Right(c.Value, Len(c.Value) - 2)
End If
End If
Next c
Call ferme
ActiveWorkbook.Save
Sheets("accueil").Activate
affichée
End Sub
Hervé
"Michel" a écrit
dans le message news: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
--
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
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 à 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
Bonjour,
Une autre approche possible :
Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx
Dim cell As Range
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
'***************
For Each cell In Range("VERIF")
If LCase(Left(cell.Text, 2)) = "nr" _
And Mid(cell.Text, 3, 1) <> " " Then
cell.Value = Join(Split(cell.Text,
Left(cell.Text, 2)), "NR ")
End If
Next cell
'***************
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal
!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
Bonjour,
Une autre approche possible :
Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx
Dim cell As Range
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
'***************
For Each cell In Range("VERIF")
If LCase(Left(cell.Text, 2)) = "nr" _
And Mid(cell.Text, 3, 1) <> " " Then
cell.Value = Join(Split(cell.Text,
Left(cell.Text, 2)), "NR ")
End If
Next cell
'***************
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal
!
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
Bonjour,
Une autre approche possible :
Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx
Dim cell As Range
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
'***************
For Each cell In Range("VERIF")
If LCase(Left(cell.Text, 2)) = "nr" _
And Mid(cell.Text, 3, 1) <> " " Then
cell.Value = Join(Split(cell.Text,
Left(cell.Text, 2)), "NR ")
End If
Next cell
'***************
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal
!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
Il se trouve que Frédéric Sigonneau a formulé :Bonjour,
Une autre approche possible :
Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx
Dim cell As Range
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
'***************
For Each cell In Range("VERIF")
If LCase(Left(cell.Text, 2)) = "nr" _
And Mid(cell.Text, 3, 1) <> " " Then
cell.Value = Join(Split(cell.Text,
Left(cell.Text, 2)), "NR ")
End If
Next cell
'***************
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal
!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 et merci Frédéric pour cete nouvele
approche.
je test dés demain
--
Amicalement
Michel . P
Il se trouve que Frédéric Sigonneau a formulé :
Bonjour,
Une autre approche possible :
Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx
Dim cell As Range
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
'***************
For Each cell In Range("VERIF")
If LCase(Left(cell.Text, 2)) = "nr" _
And Mid(cell.Text, 3, 1) <> " " Then
cell.Value = Join(Split(cell.Text,
Left(cell.Text, 2)), "NR ")
End If
Next cell
'***************
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal
!
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 et merci Frédéric pour cete nouvele
approche.
je test dés demain
--
Amicalement
Michel . P
Il se trouve que Frédéric Sigonneau a formulé :Bonjour,
Une autre approche possible :
Sub saisieModif()
' Macro en acces complet et verif les n° de courrier.
format xx_xxxx
Dim cell As Range
Application.ScreenUpdating = False
Sheets("dossiers").Activate
Call ouvert 'enleve le mdp
ActiveSheet.ShowDataForm
'***************
For Each cell In Range("VERIF")
If LCase(Left(cell.Text, 2)) = "nr" _
And Mid(cell.Text, 3, 1) <> " " Then
cell.Value = Join(Split(cell.Text,
Left(cell.Text, 2)), "NR ")
End If
Next cell
'***************
Call ferme 'remet le mot de passe
ActiveWorkbook.Save
Sheets("accueil").Activate 'page d'accueil affichée
End Sub
FS
---
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal
!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 et merci Frédéric pour cete nouvele
approche.
je test dés demain
--
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
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 à 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
