Lettres majuscules

[fenec]

Bonjour le forum
Je reviens vers vous car je rencontre un problème avec mon code,en effet pour qu'il s'excécute je dois revenir sur la cellule
Cordialement
Fenec

 

[Victor21]

Re : Lettres majuscules

Bonjour.

Utilisez Worksheet_Change au lieu de Worksheet_selectionChange

 

[GIBI]

Re : Lettres majuscules

bonjour,

Victor21 à raison mais il est très important, avant de modifier la cellule, de désactiver temporairement le déclenchement d’évènements, car le fait de de forcer la cellule en majuscule provoque un évènement Change;;; et ça boucle

Application.EnableEvents=False
Application.EnableEvents = true

Private Sub Worksheet_Change(ByVal Target As Range)

Dim plage As Range
If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
 
 Set plage = Range("B2:B4")

Application.EnableEvents = False

If Not Application.Intersect(Target, plage) Is Nothing Then
 Target.Value = StrConv(Target.Value, 3)
End If
 
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
 Target = UCase(Target)
 End If
 
Application.EnableEvents = True

 
End Sub

 

[fenec]

Re : Lettres majuscules

Bonjour Victor
merci pour ta réactivité
encore une petite chose s'il te plait
est-il possible d'utiliser ce code sur plusieurs pages,les cellules étant bien entendu les memes?

 

[fenec]

Re : Lettres majuscules

Re,
Merci GIBI pour cette précision

 

[Victor21]

Re : Lettres majuscules

Re,

Pour que cette procédure fonctionne sur toute les pages, collez-la dans le ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim plage As Range
    If Target.Count > 1 Then Exit Sub    '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
    Set plage = Range("B2:B4")
    Application.EnableEvents = False
    If Not Application.Intersect(Target, plage) Is Nothing Then
        Target.Value = StrConv(Target.Value, 3)
    End If
    If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
        Target = UCase(Target)
    End If
    Application.EnableEvents = True
End Sub

Dans l'attente de la suite de votre question...

 

[fenec]

Re : Lettres majuscules

Re,
Encore merci mais je ne veux pas l'appliquer à toutes les pages mais seulement à trois vu que j'utilise cette procédure dans une autre feuille mais pas avec la meme plage ou alors,
Est-il possible de définir plusieurs plages?

 

[Victor21]

Re : Lettres majuscules

Re,

... merci mais je ne veux pas l'appliquer à toutes les pages mais seulement à trois ...

Effectuez un test sur le nom des feuilles ...
If Sh.name...

 

[fenec]

Re : Lettres majuscules

Re,

Effectuez un test sur le nom des feuilles ...
If Sh.name...

Houla merci pour cette proposition mais avec mon niveau en vba je me casserais la tete demain ,c'est pas gagné
Cordialement
Fenec

 

[Victor21]

Re : Lettres majuscules

Re,

N'hésitez pas à mettre les mains dans le cambouis : c'est comme ça que ça rentre 🙂

 

[fenec]

Re : Lettres majuscules

Bonjour le forum

N'hésitez pas à mettre les mains dans le cambouis : c'est comme ça que ça rentre

En plus des mains j'ai la tête,mais ne connaissant pas "sh.Name" pas simple...
Une âme charitable voudrait elle bien m'expliquer cette fonction afin de me rendre la tâche plus simple
Cordialement
Fenec

 

[fenec]

Re : Lettres majuscules

Bonjour le forum

Je suis parvenu à m'appliquer la procédure que sur une seule page en faisant ceci

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name = "Feuil1" Then


     Dim plage As Range
     If Target.Count > 1 Then Exit Sub    '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
    Set plage = Range("B2:B4")
     Application.EnableEvents = False
     If Not Application.Intersect(Target, plage) Is Nothing Then
         Target.Value = StrConv(Target.Value, 3)
     End If
     If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
         Target = UCase(Target)
     End If
     Application.EnableEvents = True
     End If
    
 End Sub

Mais je ne parviens pas à rajouter une autre feuille si je renseigne ainsi:

If Sh.Name = "Feuil1","Feuil3" Then

je rencontre une erreur de compilation !!!

Cordialement

Fenec

 

[Victor21]

Re : Lettres majuscules

Bonsoir.

Essayez :

If Sh.Name = "Feuil1" or sh.name = "Feuil3" Then

 

[pierrejean]

Re : Lettres majuscules

bonjour à tous

A tester:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
     Dim plage As Range
     If Target.Count > 1 Then Exit Sub    '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
     lesfeuiles = ";Feuil1;Feuil2;Feuil3;"
     If InStr(lesfeuiles, ";" & Sh.Name & ";") <> 0 Then
       Set plage = Range("B2:B4")
       Application.EnableEvents = False
       If Not Application.Intersect(Target, plage) Is Nothing Then
         Target.Value = StrConv(Target.Value, 3)
       End If
       If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
         Target = UCase(Target)
       End If
       Application.EnableEvents = True
      End If
 End Sub

 

[fenec]

Re : Lettres majuscules

Bonjour le forum,Victor 21,PierreJean

Désolé pour le retard, viens de tester.
Vos solutions fonctionnent.

Merci pour votre aide

Cordialement

Fenec