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
stephprod
juste une petite précision je voudrais que la plage de celleule soit respectée mais qu il me mettre en majuscule que les cellules modifiées... ben voui sinon ca serait trop simple!!! merci d avance
"stephprod" a écrit dans le message de news: 4795a2c1$0$883$
bonjour,
comment mettre en vba toutes les cellules des colonne D à J d'une page appelé "toto" en avec des caracteres en majuscule.. merci d'avance
juste une petite précision
je voudrais que la plage de celleule soit respectée mais qu il me mettre en
majuscule que les cellules modifiées... ben voui sinon ca serait trop
simple!!! merci d avance
"stephprod" <steph240900@hotmail.com> a écrit dans le message de news:
4795a2c1$0$883$ba4acef3@news.orange.fr...
bonjour,
comment mettre en vba toutes les cellules des colonne D à J d'une page
appelé "toto" en avec des caracteres en majuscule.. merci d'avance
juste une petite précision je voudrais que la plage de celleule soit respectée mais qu il me mettre en majuscule que les cellules modifiées... ben voui sinon ca serait trop simple!!! merci d avance
"stephprod" a écrit dans le message de news: 4795a2c1$0$883$
bonjour,
comment mettre en vba toutes les cellules des colonne D à J d'une page appelé "toto" en avec des caracteres en majuscule.. merci d'avance
papou
Bonjour Avec quelque chose dans ce goût-là : (clic droit sur l'onglet de la feuille, Visualiser le code, coller le code ci-dessous dans la partie droite de l'écran fon blanc) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range(Target.Address), Range("D1:J65536")) Is Nothing Then Application.EnableEvents = False On Error GoTo YaUnOS Target.Value = UCase(Target.Value) Application.EnableEvents = True End If Exit Sub
YaUnOS: Err.Clear On Error GoTo 0 MsgBox "Je n'ai pas pu mettre en majuscule" _ & vbLf & "Il y a eu un problème sur la valeur de la cellule modifiée", _ vbInformation, "Erreur sur valeur" Application.EnableEvents = True End Sub
Cordialement Pascal
"stephprod" a écrit dans le message de news: 4795a788$0$876$
juste une petite précision je voudrais que la plage de celleule soit respectée mais qu il me mettre en majuscule que les cellules modifiées... ben voui sinon ca serait trop simple!!! merci d avance
"stephprod" a écrit dans le message de news: 4795a2c1$0$883$
bonjour,
comment mettre en vba toutes les cellules des colonne D à J d'une page appelé "toto" en avec des caracteres en majuscule.. merci d'avance
Bonjour
Avec quelque chose dans ce goût-là :
(clic droit sur l'onglet de la feuille, Visualiser le code, coller le code
ci-dessous dans la partie droite de l'écran fon blanc)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range(Target.Address), Range("D1:J65536")) Is Nothing Then
Application.EnableEvents = False
On Error GoTo YaUnOS
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
Exit Sub
YaUnOS:
Err.Clear
On Error GoTo 0
MsgBox "Je n'ai pas pu mettre en majuscule" _
& vbLf & "Il y a eu un problème sur la valeur de la cellule modifiée", _
vbInformation, "Erreur sur valeur"
Application.EnableEvents = True
End Sub
Cordialement
Pascal
"stephprod" <steph240900@hotmail.com> a écrit dans le message de news:
4795a788$0$876$ba4acef3@news.orange.fr...
juste une petite précision
je voudrais que la plage de celleule soit respectée mais qu il me mettre
en majuscule que les cellules modifiées... ben voui sinon ca serait trop
simple!!! merci d avance
"stephprod" <steph240900@hotmail.com> a écrit dans le message de news:
4795a2c1$0$883$ba4acef3@news.orange.fr...
bonjour,
comment mettre en vba toutes les cellules des colonne D à J d'une page
appelé "toto" en avec des caracteres en majuscule.. merci d'avance
Bonjour Avec quelque chose dans ce goût-là : (clic droit sur l'onglet de la feuille, Visualiser le code, coller le code ci-dessous dans la partie droite de l'écran fon blanc) Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range(Target.Address), Range("D1:J65536")) Is Nothing Then Application.EnableEvents = False On Error GoTo YaUnOS Target.Value = UCase(Target.Value) Application.EnableEvents = True End If Exit Sub
YaUnOS: Err.Clear On Error GoTo 0 MsgBox "Je n'ai pas pu mettre en majuscule" _ & vbLf & "Il y a eu un problème sur la valeur de la cellule modifiée", _ vbInformation, "Erreur sur valeur" Application.EnableEvents = True End Sub
Cordialement Pascal
"stephprod" a écrit dans le message de news: 4795a788$0$876$
juste une petite précision je voudrais que la plage de celleule soit respectée mais qu il me mettre en majuscule que les cellules modifiées... ben voui sinon ca serait trop simple!!! merci d avance
"stephprod" a écrit dans le message de news: 4795a2c1$0$883$
bonjour,
comment mettre en vba toutes les cellules des colonne D à J d'une page appelé "toto" en avec des caracteres en majuscule.. merci d'avance