bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
Bonjour Eliot,
Dans le module feuille où l'action se déroule, tu peux utiliser ceci :
Il ne te reste plus qu'à déterminer la plage de cellules qui doivent
respecter le format....
'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, Pattern As String, R As String
Pattern = "[0-9][0-9][0-9][a-z][a-z]"
Pattern1 = "[0-9][0-9][0-9][a-z]"
Set Rg = Intersect(Target, Range("A:A")) ' à déterminer
Application.EnableEvents = False
If Not Rg Is Nothing Then
For Each c In Rg
If c <> "" Then
R = LCase(Replace(c.Value, " ", ""))
If R Like Pattern Then
c.Value = UCase(Left(R, 1) & Mid(R, 2, 1) _
& Mid(R, 3, 1) & " " & Mid(R, 4, 1) _
& Mid(R, 5, 1))
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
ElseIf R Like Pattern1 Then
c.Value = UCase(Left(R, 1) & Mid(R, 2, 1) _
& Mid(R, 3, 1) & " " & Mid(R, 4, 1))
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
Else
c.Interior.Color = vbRed
c.Font.Color = vbWhite
MsgBox "La donnée saisie ne respecte pas " & _
"le contenu de la cellule.", vbInformation + vbOKOnly _
, Application.UserName
End If
Else
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
End If
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------
"EliotNaiss" a écrit dans le message de news:
%
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
Bonjour Eliot,
Dans le module feuille où l'action se déroule, tu peux utiliser ceci :
Il ne te reste plus qu'à déterminer la plage de cellules qui doivent
respecter le format....
'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, Pattern As String, R As String
Pattern = "[0-9][0-9][0-9][a-z][a-z]"
Pattern1 = "[0-9][0-9][0-9][a-z]"
Set Rg = Intersect(Target, Range("A:A")) ' à déterminer
Application.EnableEvents = False
If Not Rg Is Nothing Then
For Each c In Rg
If c <> "" Then
R = LCase(Replace(c.Value, " ", ""))
If R Like Pattern Then
c.Value = UCase(Left(R, 1) & Mid(R, 2, 1) _
& Mid(R, 3, 1) & " " & Mid(R, 4, 1) _
& Mid(R, 5, 1))
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
ElseIf R Like Pattern1 Then
c.Value = UCase(Left(R, 1) & Mid(R, 2, 1) _
& Mid(R, 3, 1) & " " & Mid(R, 4, 1))
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
Else
c.Interior.Color = vbRed
c.Font.Color = vbWhite
MsgBox "La donnée saisie ne respecte pas " & _
"le contenu de la cellule.", vbInformation + vbOKOnly _
, Application.UserName
End If
Else
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
End If
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------
"EliotNaiss" <personne@microsoft.com> a écrit dans le message de news:
%23cqpWIz3GHA.4764@TK2MSFTNGP02.phx.gbl...
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
Bonjour Eliot,
Dans le module feuille où l'action se déroule, tu peux utiliser ceci :
Il ne te reste plus qu'à déterminer la plage de cellules qui doivent
respecter le format....
'----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, Pattern As String, R As String
Pattern = "[0-9][0-9][0-9][a-z][a-z]"
Pattern1 = "[0-9][0-9][0-9][a-z]"
Set Rg = Intersect(Target, Range("A:A")) ' à déterminer
Application.EnableEvents = False
If Not Rg Is Nothing Then
For Each c In Rg
If c <> "" Then
R = LCase(Replace(c.Value, " ", ""))
If R Like Pattern Then
c.Value = UCase(Left(R, 1) & Mid(R, 2, 1) _
& Mid(R, 3, 1) & " " & Mid(R, 4, 1) _
& Mid(R, 5, 1))
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
ElseIf R Like Pattern1 Then
c.Value = UCase(Left(R, 1) & Mid(R, 2, 1) _
& Mid(R, 3, 1) & " " & Mid(R, 4, 1))
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
Else
c.Interior.Color = vbRed
c.Font.Color = vbWhite
MsgBox "La donnée saisie ne respecte pas " & _
"le contenu de la cellule.", vbInformation + vbOKOnly _
, Application.UserName
End If
Else
c.Interior.ColorIndex = xlNone
c.Font.ColorIndex = xlAutomatic
End If
Next
End If
Application.EnableEvents = True
End Sub
'----------------------------
"EliotNaiss" a écrit dans le message de news:
%
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace pu is
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace pu is
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace pu is
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot
bonjour à tous
dans des cellules, je saisi un nombre à 3 chiffres suivi d'un espace puis
d'une ou deux lettres.(123 JA)
existe-t-il un format spécial qui puisse écrire le nombre, un espace, puis
la ou les lettres ?
Evidemment c'est pour éviter d'oublier la saisie de cet espace que je
cherche de format.
Merci
Cordialement
Eliot