Discussion :

[bbcancer]

Bonjour

J'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Worksheet_Change(ByVal Target As Range)
 
 
 
Application.ScreenUpdating = False
 
 
If Intersect(Target, [$F$4:$AJ$13]) Is Nothing Then Exit Sub
 
    For Each cel In Target
 
        Set Cel_R = Sheets("Légende").[$A$2:$A$10].Find(cel, LookIn:=xlValues, LookAt:=xlWhole)
 
            If Cel_R Is Nothing Then
                cel.Interior.Color = xlNone
 
            Else
        cel.Interior.Color = Cel_R.Interior.Color
        cel.Font.Color = Cel_R.Font.Color
        cel.Font.Bold = Cel_R.Font.Bold
 
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
 
            End If
 
    Next cel
 
 
Application.ScreenUpdating = True ' Remet le comportement initial
 
 
End Sub

le code marche très bien sans la partie suivante :

Code :

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

1
2
3
Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True

Voilà mon problème si je tape la lettre en minuscule effectivement elle se transforme en majuscule. Par contre si je fais un copier collage spécial valeur (pour mettre la même chose sur plusieurs cases), j'ai une erreur qui se produit.

J'ai mis un fichier en exemple.
Merci de votre aide

Bonne journée

Cordialement

[Invité]

Bonjour,
quelle est l'utilité de faire un copier collé par valeur?

Code :

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

Range("H19:H30") = Range("A19").Value

[vinc_bilb]

Bonjour,

Je pense qu'en cas de copy/paste, target définit un range de plusieurs cellules, donc il faudrait modifier votre code comme:

Ahh, Robert, le 'Lucky Luke' du forum, a encore dégainé encore plus vite que moi ....

Code :

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

 cel.Value = UCase(cel.Value) 'Target = UCase(Target)

[bbcancer]

Bonjour

Merci pour vos réponses

L'utilité de faire un copier coller valeur permet de ne pas modifier le type de bordure....

Le code marche en faisant le copier collé valeur

Code :

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

 cel.Value = UCase(cel.Value) 'Target = UCase(Target)

Pr contre il me marque que quand je colle le 0.5 il m'a changé la mise en forme. Il marque "nombre stocké sous forme de texte".
J'ai pas mis tout mon fichier mais après il me calcule des formules avec les lettres et les chiffres donc je ne veux pas que ça me pose de problème.

Merci

[Invité]

tu fais un collé par valeur, je voie pas ce que vienne faire le bordures! ce que j'ai fait ne modifie pas les bordures et c'est la même chose!

[bbcancer]

Moi quand je fais un copier coller simple les bordures sont modifié alors que si je fais un copier coller valeur les bordures ne sont pas impactées

[Invité]

on est parfaitement accord! quand je fait :

Code :

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

range("A1:A10")=range("B1").Value

je me concentre sur Value (Valeur) pas sur les bordure. c'est toi qui voies!

[Invité]

Bonjour
Voilà mon problème si je tape la lettre en minuscule effectivement elle se transforme en majuscule. Par contre si je fais un copier collage spécial valeur (pour mettre la même chose sur plusieurs cases), j'ai une erreur qui se produit.

J'ai mis un fichier en exemple.
Merci de votre aide

Bonne journée

Cordialement

[bbcancer]

j'ai toujours un problème bordure en faisant un copier collage spécial sans mettre en majuscule.

Pour résumer ce que je cherche c'est en effectuant un copier collage valeur, que la macro que j'ai mise pour transformer d’office en majuscule, ne plante pas...