Discussion :

[NEC14]

Bonjour,

Je voudrai savoir comment on peut modifier une cellule mise en minuscule par une majuscule, toute la cellule, maxi 2 lettres à l'aide de Vba ?
Dans la colonne G de mon fichier je saisie une lettre, P par exemple, si elle est saisie en minuscule, alors au changement de cellule elle doit passer en majuscule.

Savez-vous où se trouve la boîte à outils dans Excel 2007 (pas celle de Vba) c'est pour insérer un bouton sur la feuille de calcul.
Merci par avance

[zyhack]

Bonjour

dans l'événement change de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
'si tu veux limiter la modification à une ou plusieurs cellule
'voir une plage
'If Not Intersect(Target, Range("A2:G12")) Is Nothing Then
 
Target = UCase(Target.Value)
 
'End If
End Sub

pour la 2eme question je suis désolé je n'est pas xl2007

[mapeh]

bonsoir,

Pour afficher la boîte à outils "Formulaires", ou "Contrôles", tu fais :

Clic sur le bouton Office, en haut à gauche

"Options Excel", en bas à droite

dans le menu "Standard", coche "Afficher l'onglet Développeur dans le ruban"

"OK"

Dans l'onglet Développeur, tu cliques sur "Insérer", tu as accès aux deux boîtes

Bonne soirée

[NEC14]

Bonjour zyhac,

ça fonctionne bien, par contre j'ai un message d'erreur lorsque j'efface la sélection

merci mapeh et bonne soirée également

[zyhack]

il est vrai que s'il y a plus d'une cellule de selectionné il y a une erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UCase(Target.Value)

a modifier par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Count = 1 Then Target = UCase(Target.Value)

[NEC14]

Voici mon code. Maintenant il ne veut plus mettre en majuscule ?????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G4:G500")) Is Nothing Then
If Target.Count = 1 Then Target = UCase(Target.Value)
End If
End Sub

[zyhack]

Excuse moi mais j'ai fais 2 erreurs dont une qui tournait en rond

je viens de le tester dans tous les sens et il fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Not Intersect(Target, Range("G4:G500")) Is Nothing Then
  If Target <> UCase(Target) Then Target = UCase(Target.Value)
End If
End Sub

[mercatog]

Je ferai ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    Application.EnableEvents = False
    Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
End If
End Sub