Forcer la saisie en majuscules sur feuille Excel 2007

Salut,

Non. Pas de coup de main ici. Nous traitons les problèmes en VB, pas de bureautique  

Ce sujet a été déplacé de la catégorie Programmation vers la catégorie Le monde de Windows par Zeb

Non mais quel pédant ce modo "programmation" !

duncan2idaho, va dans les propriétés de la cellule concernée, dans police, trouve l'attribut majuscule. C'est tout  

Désolé et merci! Je pensais que c'était le bon endroit vu que c'est un pb de code VBA.

Arfff, je retire ce que j'ai fais alors. Tu veux vraiment une macro en VB pour faire ça ?
Alors là, faut que le modo Windows me renvoie ton topic, et on va rapidement arranger ton affaire.

En attendant, donne nous ton code VB ancienne version.

Voici l'ancien code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
  Select Case Target.Column
    Case 3 To 13, 15, 27, 28, 32, 33, 36, 37, 39
      Target.Value = UCase$(Target.Value)
    Case 14
      Target.Value = StrConv(Target.Value, vbProperCase)
  End Select
End Sub

Merci  

Ben si tu te retrouves à ne pas mettre ton code entre balise [code] sur le forum programmation, tu vas te faire engueuler par le modo. Mais là, on est en Windows, alors c'est cool  

(C'est pas une raison pour ne pas le faire quand même.)

Ben qu'est-ce qui ne marche pas ?
Qu'est-ce qu'il dit comme erreur (numéro, message, ligne) ?
As-tu pris la précaution de mettre Option Explicit en haut de ton code ?

Ouh la la, tout ça c'est du chinois pour moi lol.

Alors, le code ne fonctionne simplement pas. Pour la colonne 3 à 13, par exemple, les mots sont sensés se mettre en majuscules et ça ne le fait pas. Pas de message d'erreur. C'est aussi simple et embêtant que ça  
C quoi "option explicit"?

Option explicit c'est pour te forcer a déclarer tes variables et leurs types. C'est une façon d'arranger un peu le coté "sale" du vb en générale ^^

Ah ok, et comment on fait ça? Ca va rêgler mon problème de code qui ne marche pas?

Non... Mais cela t'obligera à faire du code propre pour ne pas te faire crier dessus par VB, ce qui ne peut pas faire de mal et pourrait te permettre de localiser des erreurs.  

On est de retour chez le grand zeb!  

Je te conseille d'éditer le message avec ton morceau de code et d'ajouter une balise avant le début du code et la même avec un "/" devant le "b" à la fin du code.

Comme cela ton code sera plus clair... et tu seras en édéquation avec les règles de la rubrique programmation...  

J'ai édité mon code  

 

Je suis une andouille!!! (c'est le comble pour un cochon! )

Excuse-moi, je t'ai dit n'importe quoi: il faut mettre "code" à la place de "b" dans tes balises! ("b" c'est pour mettre en gras...).  

EDIT: J'vais aller grignoter quelque chose, je dois manquer d'énergie...  

duncan2idaho: En fait, c'est [code], pas . Mais je vais le faire pour toi. Tu vas voir le résultat est très beau  

Storos, un petit smiley rien que pour toi :

merci les gars!

Alors, maintenant que fait-on?

Bon, alors mon cher Duncan to Idaho, voyons un peu mieux ton problème.

Quand on te propose Option ou Explicit ou n'importe quoi d'autre, on attend de toi que tu te précipites sur l'aide en ligne pour savoir de quoi il s'agit. On ne sait jamais : on trouve bien des cochons pour te dire [ b ] à la place de [ code ], alors pourquoi pas des salauds pour te faire faire ShellExecute("Format C:") (<--- ne pas le faire, hein   !)

Mais avec les explications d'Alexandre et un peu de recherche personnelle, tu sais ce que c'est, et bien sûr, tu l'as mis dans ton code.

---------------------------------------

Maintenant, cherchons d'où vient ton erreur. C'est l'art délicat du débogage. J'ai fait un topo là-dessus. VB est facile à mal écrire, en revanche, il est facile à déboguer.

On ajoute des MsgBox partout et on change une valeur dans votre feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
 
	MsgBox "On entre dans la procédure"
 
  If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
 
  MsgBox "La zone ne contient qu'une cellule"
  Msgbox "Voici son adresse " & Target.Address
  Msgbox "Voici sa colonne " & Target.Column
 
  Select Case Target.Column
    Case 3 To 13, 15, 27, 28, 32, 33, 36, 37, 39
      Target.Value = UCase$(Target.Value)
 
      Msgbox "Et hop, un UCASE"
 
    Case 14
      Target.Value = StrConv(Target.Value, vbProperCase)
 
      Msgbox "Et hop, un StrConv"
 
  End Select
End Sub

Quels sont les messages ?

 

T'as pas honte de te moquer d'un pauvre porcidé affamé?

Salut, désolé pour hier, mais c'est sur un fichier du boulot.
Alors, j'ai mis le code et grosso modo, j'ai plein de messages qui s'affichent, ça ne s'arrête pas!
"on entre dans la procédure"
"la zone ne contient qu'une cellule"
"voici son adresse $$15043"
"voici sa colonne 4"
et hop, ça recommence avec "on entre dans la procédure"

Non aucun "Et hop"  

Non pas de "Et hop"  

Pas de Hop avec le nouveau code ?

Ajoute ceci à la fin du Select :

...
    Case 14
        ...
    Case Else
        MsgBox "Pas hop. On est sur la colonne " & Target.Column.
End Select

Relance le tout.

---------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub ' // <-- pour éviter que ça coince si on sélectionne plusieurs cellules

Mais n'importe quoi, quoi !

Si plusieurs cellules sont à changer, il faut toutes les changer  

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
    If Target.Count > 1 Then 
      For Each Cellule In Target
        Worksheet_Change Cellule
      Next
    End If
    ...

J'avais pas essayé le nouveau, tu vas un peu vite pour moi lol

J'essaie, merci!

Avec ce code ça marche, j'ai les "Eh hop" et les infos qui se mettent en majsucule!

1. Private Sub Worksheet_Change(ByVal Target As Range)

   2.   If Target.Count > 1 Then Exit Sub

   3.   Select Case Target.Column

   4.     Case 3 To 13, 15, 27, 28, 32, 33, 36, 37, 39

   5.       If Target.Value <> UCase$(Target.Value) Then

   6.         Target.Value = UCase$(Target.Value)

   7.         Msgbox "Et hop, un UCASE sur la colonne " & Target.Column

   8.       End If

   9.     Case 14

  10.       If Target.Value <> StrConv(Target.Value, vbProperCase) Then

  11.         Target.Value = StrConv(Target.Value, vbProperCase)

  12.         Msgbox "Et hop, un STRCONV sur la colonne " & Target.Column

  13.       End If

  14.   End Select

  15. End Sub

Ben t'as plus qu'à changer le code pour le Target.Count > 1 ( cf. mon dernier message), à virer toutes les MsgBox inutiles, puis à mettre en résolu ce topic.

Ok - ça t'embêterai de me mettre le code tout nickel, que je copie/colle. J'ai enlever les MsgBox et comme je m'y connais pas bien, ça coince loll. Si je copie/colle, pas de risque d'erreur.

Merci !

Non - désol'. Je te demande juste de faire ce petit effort toi-même en espérant que cela participe à ta compréhension de l'ensemble. A la rigueur, publie ton résultat, et on te dirait "Roooooménon, pas comme ça !!!" à telle ligne  

ok, je vais essayer  

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Count > 1 Then#  For Each Cellule In Target

 Worksheet_Change Cellule

 Next

End If

     Select Case Target.Column

      Case 3 To 13, 15, 27, 28, 32, 33, 36, 37, 39

       If Target.Value <> UCase$(Target.Value) Then

        Target.Value = UCase$(Target.Value)

   End If

  Case 14

  If Target.Value <> StrConv(Target.Value, vbProperCase) Then

  Target.Value = StrConv(Target.Value, vbProperCase)

 End If

  End Select

  End Sub

alors, bon ou pas bon?

Ben ligne 2, je ne sais pas pourquoi, il y a un # qui traîne. A la place je verrai bien un saut de ligne. Sinon, ça me paraît bon... Y'a encore un petit effort à faire du côté de l'indentation pour prétendre au titre de développeur de l'année  

Argggggggggggggggggg!



Il manque un truc !!!!!

Entre la ligne 4 et 5, entre le Next et le EndIf, il faut sortir de la fonction avec un Exit Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then For Each Cellule In Target

Worksheet_Change Cellule

Next

   Exit Sub

End If

        Select Case Target.Column

         Case 3 To 13, 15, 27, 28, 32, 33, 36, 37, 39

         If Target.Value <> UCase$(Target.Value) Then

            Target.Value = UCase$(Target.Value)

     End If

    Case 14

    If Target.Value <> StrConv(Target.Value, vbProperCase) Then

    Target.Value = StrConv(Target.Value, vbProperCase)

   End If

    End Select

    End Sub

Yeah!! J'ai réussi  !!

Merci, sans vous, je n'y serais jamais arrivé !!

Félicitations  

Ligne 2, tu vas me mettre un retour à la ligne entre Then et For, oui ou ?
Pour l'indentation, on ne va pas se formaliser  

Tu m'élis une meilleure réponse, steuplé ? C'est pour mettre le topic en [résolu].

Meilleure réponse sélectionnée par duncan2idaho.