Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
Bonjour
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.cells.count > 1 then exit sub
If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:470001c4a166$6ca36440$a501280a@phx.gbl...
Bonjour,
Peut-on forcer une saisie en majuscules même si
l'utilisateur saisit en minuscules?
Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
papou
Re Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans le menu contextuel affiché et tu places les lignes dans la page blanche à droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft Excel) et tu testes. Cordialement Pascal
"fred" a écrit dans le message de news:163e01c4a16b$4a9703c0$ bonjour,
je saisis ton code dans une macro ?
cordialement fred
-----Message d'origine----- Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de
news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
.
Re
Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft
Excel) et tu testes.
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:163e01c4a16b$4a9703c0$a401280a@phx.gbl...
bonjour,
je saisis ton code dans une macro ?
cordialement
fred
-----Message d'origine-----
Bonjour
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.cells.count > 1 then exit sub
If Target.Value <> "" And Not IsNumeric(Target.Value)
Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Re Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans le menu contextuel affiché et tu places les lignes dans la page blanche à droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft Excel) et tu testes. Cordialement Pascal
"fred" a écrit dans le message de news:163e01c4a16b$4a9703c0$ bonjour,
je saisis ton code dans une macro ?
cordialement fred
-----Message d'origine----- Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de
news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
.
fred
je te remercie pour ton aide. cela fonctionne bien sauf lorsque les cellules sont fusionnées!!
cordialement
fred
-----Message d'origine----- Re Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft
Excel) et tu testes. Cordialement Pascal
"fred" a écrit dans le message de
news:163e01c4a16b$4a9703c0$ bonjour,
je saisis ton code dans une macro ?
cordialement fred
-----Message d'origine----- Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de
news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
.
.
je te remercie pour ton aide.
cela fonctionne bien sauf lorsque les cellules sont
fusionnées!!
cordialement
fred
-----Message d'origine-----
Re
Clic droit sur l'onglet de ta feuille, tu
choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans
la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et
retourner à Microsoft
Excel) et tu testes.
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit
dans le message de
-----Message d'origine-----
Bonjour
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.cells.count > 1 then exit sub
If Target.Value <> "" And Not IsNumeric(Target.Value)
Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit
dans le message de
je te remercie pour ton aide. cela fonctionne bien sauf lorsque les cellules sont fusionnées!!
cordialement
fred
-----Message d'origine----- Re Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft
Excel) et tu testes. Cordialement Pascal
"fred" a écrit dans le message de
news:163e01c4a16b$4a9703c0$ bonjour,
je saisis ton code dans une macro ?
cordialement fred
-----Message d'origine----- Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de
news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
.
.
papou
Ok Mais si je peux me permettre de te re-trasnmettre un petit conseil donné par ici il n'y a pas si longtemps : évite de fusionner des cellules lorsqu'elles doivent être utilisées pour des entrées de valeur. Privilégie la fusion des cellules plus dans un contexte de finition d'un tableau. Mais encore une fois ce n'est qu'un humble avis personnel. Cordialement Pascal
"fred" a écrit dans le message de news:47df01c4a170$d2489e00$ je te remercie pour ton aide. cela fonctionne bien sauf lorsque les cellules sont fusionnées!!
cordialement
fred
-----Message d'origine----- Re Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft
Excel) et tu testes. Cordialement Pascal
"fred" a écrit dans le message de
news:163e01c4a16b$4a9703c0$ bonjour,
je saisis ton code dans une macro ?
cordialement fred
-----Message d'origine----- Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de
news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
.
.
Ok
Mais si je peux me permettre de te re-trasnmettre un petit conseil donné par
ici il n'y a pas si longtemps :
évite de fusionner des cellules lorsqu'elles doivent être utilisées pour des
entrées de valeur.
Privilégie la fusion des cellules plus dans un contexte de finition d'un
tableau.
Mais encore une fois ce n'est qu'un humble avis personnel.
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:47df01c4a170$d2489e00$a501280a@phx.gbl...
je te remercie pour ton aide.
cela fonctionne bien sauf lorsque les cellules sont
fusionnées!!
cordialement
fred
-----Message d'origine-----
Re
Clic droit sur l'onglet de ta feuille, tu
choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans
la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et
retourner à Microsoft
Excel) et tu testes.
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit
dans le message de
-----Message d'origine-----
Bonjour
Dans le code de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.cells.count > 1 then exit sub
If Target.Value <> "" And Not IsNumeric(Target.Value)
Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub
Cordialement
Pascal
"fred" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Ok Mais si je peux me permettre de te re-trasnmettre un petit conseil donné par ici il n'y a pas si longtemps : évite de fusionner des cellules lorsqu'elles doivent être utilisées pour des entrées de valeur. Privilégie la fusion des cellules plus dans un contexte de finition d'un tableau. Mais encore une fois ce n'est qu'un humble avis personnel. Cordialement Pascal
"fred" a écrit dans le message de news:47df01c4a170$d2489e00$ je te remercie pour ton aide. cela fonctionne bien sauf lorsque les cellules sont fusionnées!!
cordialement
fred
-----Message d'origine----- Re Clic droit sur l'onglet de ta feuille, tu choisis "Visualiser le code" dans
le menu contextuel affiché et tu places les lignes dans la page blanche à
droite puis tu fermes l'éditeur VB (Fichier Fermer et retourner à Microsoft
Excel) et tu testes. Cordialement Pascal
"fred" a écrit dans le message de
news:163e01c4a16b$4a9703c0$ bonjour,
je saisis ton code dans une macro ?
cordialement fred
-----Message d'origine----- Bonjour Dans le code de la feuille : Private Sub Worksheet_Change(ByVal Target As Range) If Target.cells.count > 1 then exit sub If Target.Value <> "" And Not IsNumeric(Target.Value) Then
Application.EnableEvents = False Target = UCase(Target) Application.EnableEvents = True End If End Sub
Cordialement Pascal
"fred" a écrit dans le message de
news:470001c4a166$6ca36440$ Bonjour,
Peut-on forcer une saisie en majuscules même si l'utilisateur saisit en minuscules?
merci d'avance
fred
.
.
Alain CROS
Bonjour.
Ceci a l'air de fonctionner avec des cellules fusionnées.
Private Sub Worksheet_Change(ByVal Target As Range) Dim MaCell As Range With Target If .Cells.Count > 1 Then If .MergeCells = False Or .Areas.Count > 1 Then Exit Sub End If Set MaCell = .Cells(1, 1) End With If MaCell.Value <> "" And Not IsNumeric(MaCell.Value) Then Application.EnableEvents = False MaCell = UCase(MaCell) Set MaCell = Nothing Application.EnableEvents = True End If End Sub
Alain CROS
"fred" a écrit dans le message de news: 47df01c4a170$d2489e00$ je te remercie pour ton aide. cela fonctionne bien sauf lorsque les cellules sont fusionnées!!
cordialement
fred
Bonjour.
Ceci a l'air de fonctionner avec des cellules fusionnées.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MaCell As Range
With Target
If .Cells.Count > 1 Then
If .MergeCells = False Or .Areas.Count > 1 Then Exit Sub
End If
Set MaCell = .Cells(1, 1)
End With
If MaCell.Value <> "" And Not IsNumeric(MaCell.Value) Then
Application.EnableEvents = False
MaCell = UCase(MaCell)
Set MaCell = Nothing
Application.EnableEvents = True
End If
End Sub
Alain CROS
"fred" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 47df01c4a170$d2489e00$a501280a@phx.gbl...
je te remercie pour ton aide.
cela fonctionne bien sauf lorsque les cellules sont
fusionnées!!
Ceci a l'air de fonctionner avec des cellules fusionnées.
Private Sub Worksheet_Change(ByVal Target As Range) Dim MaCell As Range With Target If .Cells.Count > 1 Then If .MergeCells = False Or .Areas.Count > 1 Then Exit Sub End If Set MaCell = .Cells(1, 1) End With If MaCell.Value <> "" And Not IsNumeric(MaCell.Value) Then Application.EnableEvents = False MaCell = UCase(MaCell) Set MaCell = Nothing Application.EnableEvents = True End If End Sub
Alain CROS
"fred" a écrit dans le message de news: 47df01c4a170$d2489e00$ je te remercie pour ton aide. cela fonctionne bien sauf lorsque les cellules sont fusionnées!!
