Code VBA et plage d intervention

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Tacentaure
Membre habitué
Membre habitué
Messages : 137
Inscrit le : 4 octobre 2014
Version d'Excel : 2007

Message par Tacentaure » 5 juin 2018, 15:18

Bonjour

J'ai un code VBA qui intervient sur la plage A15: L50.
Je souhaiterais l'écrire pour qu'il intervienne sur les plages A15 : F50 et I 15: L50 (c'est a dire pas sur la plage G15:E50)

Ci dessous le code


Merci

Ta




CODE ACTUEL
Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Count > 1 Then Exit Sub

If Intersect(Target, [A15:L50]) Is Nothing Then Exit Sub

Application.EnableEvents = False
.Value = UCase$(.Value)
With .Font
.Size = 18: .Bold = True
Application.EnableEvents = True
End With
End With
End sub
Avatar du membre
besoin_d_aide
Membre fidèle
Membre fidèle
Messages : 337
Appréciations reçues : 29
Inscrit le : 16 mai 2018
Version d'Excel : 2010 fr, 2013 fr, 2016 fr

Message par besoin_d_aide » 5 juin 2018, 15:22

Bonjour,
Voici la solution
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Intersect(Target, range("A15:F50"), range("I15:L50")) Is Nothing Then Exit Sub

Application.EnableEvents = False
.Value = UCase$(.Value)
With .Font
.Size = 18: .Bold = True
Application.EnableEvents = True
End With
End With
End sub
Cordialement
" Notre sagesse n'est que le total de nos désillusions. " Henri-Frédéric Amiel
Je peux répondre aux messages privés mais c'est mieux si la solution est disponible pour tous ;;)
Mais surtout, le plus important : :btres:
Avatar du membre
Mus54
Membre fidèle
Membre fidèle
Messages : 283
Appréciations reçues : 26
Inscrit le : 26 décembre 2017
Version d'Excel : 2010 FR

Message par Mus54 » 5 juin 2018, 15:48

Bonjour,

Salut besoin d'aide.

autre proposition :)
If Intersect(Target, Range("A15:F50")) Is Nothing And Intersect(Target, Range("I15:L50")) Is Nothing Then Exit Sub
1 membre du forum aime ce message.
:ordi3:
Avatar du membre
galopin01
Passionné d'Excel
Passionné d'Excel
Messages : 5'937
Appréciations reçues : 102
Inscrit le : 18 septembre 2008
Version d'Excel : 2016
Téléchargements : Mes applications

Message par galopin01 » 5 juin 2018, 16:15

bonjour,
autre possibilité (pour rester dans ton optique...)
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Count > 1 Then Exit Sub
    If Intersect(Target, [A15:F50,I15:L50]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    .Value = UCase$(.Value)
        With .Font
            .Size = 18: .Bold = True
        End With
    Application.EnableEvents = True
End With
End Sub
A+
Ici c'est un forum Excel/VBA pas Photoshop :
Quand vous amenez votre voiture au garagiste vous lui donnez pas juste la photo ?
T
Tacentaure
Membre habitué
Membre habitué
Messages : 137
Inscrit le : 4 octobre 2014
Version d'Excel : 2007

Message par Tacentaure » 5 juin 2018, 16:21

Bonjour

Merci beaucoup pour les réponses, j'ai trouvé mon bonheur :-)

A une prochaine

TA
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message