Discussion :

[devdev]

Bonjour à tous,
J'ai ce code vba dans ma feuille pour forcer la majuscule sur une colonne :

Code :

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

1
2
3
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D7:D285 ")) Is Nothing Then Exit Sub
Target.Value = UCase(CStr(Target.Value))

Sans la première ligne, ca ne fonctionne pas en cas d'insertion simultannée sur plusieurs lignes ( par un copier coller par exemple ), comment pourrais je forcer la majuscule même si Target.Count>1

Quelqu'un a une idée ?

[casefayere]

Bonsoir,
et si tu faisais le contraire :

Code :

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

1
2
3
4
5
6
dim x as integer
If Target.address = "$d$7" Then
 
for x = 7 to 285
range("d" & x) = UCase(Cstr(range("d" & x)))
next x

Bon ben tu vois....et adapte si ça te va

Bonne soirée

[Gorfael]

Salut devdev et le forum
Quand tu veux une solution, par rapport à ton code, donne le code en entier

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)
Dim Cel As Range
Dim Plg As Range
Set Plg = Intersect(Target, [D7:D285])
If Plg Is Nothing Then Exit Sub
For Each Cel In Plg
    Cel = UCase(Cel)
Next Cel
End Sub

A+

[devdev]

Ca fonctionne très bien merci gorfael,
Un seul problème tout de même, lorsque j'efface le contenu de la cellule, j'ai le sablier pendant deux secondes. C'est bizarre, ca ne me le fait pas quand j'insère quelquechose dans la cellule.
Je vais essayer l'autre solution.
... La première solution ne fonctionne pas, je vais voir pourquoi

[laetitia]

bonjour le fil as tu essayele code de l ami gorfael dans

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

a la place

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

[Gorfael]

Salut devdev et le forum
Je ne vois pas pourquoi, mais tu peux remplacer :

Code :

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

Cel = UCase(Cel)

par

Code :

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

if not(isempty(Cel)) then Cel = UCase(Cel)

A+

[devdev]

Merci à vous deux, en rajoutant le code, ca fonctionne très bien.

... Enfin, j'ai parlé trop vite.... Le code est très très lent quand je fais un copier coller !!

Il me faut une autre solution, est ce qu'il n'y a pas un moyen de faire autrement que par du vba ?

[laetitia]

re as tu essaye au moins de l mettre dans selection change & et pas dans l autre si il y a les 2 codes ca fonctionne mal

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cel As Range
Dim Plg As Range
Set Plg = Intersect(Target, [D7:D285])
If Plg Is Nothing Then Exit Sub
For Each Cel In Plg
    Cel = UCase(Cel)
Next Cel
End Sub