Incompréhension sur Range de plusieurs cellulesRésolu

Question

Bonjour, 
Mon problème va surement vous paraitre bête mais je n'arrive pas à comprendre pourquoi ce code ne fonctionne pas!

Private Sub OK_Click()
        Cellule_1 = Adresses_Et_Valeurs.TextBox1
        Cellule_2 = Adresses_Et_Valeurs.TextBox2
        Cellule_3 = Adresses_Et_Valeurs.TextBox3
With Worksheets("AT").Range(Cellule_1, Cellule_2, Cellule_3)
        .Font.Name = "Arial Narrow"
        .Font.Size = 12
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorLight1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End Sub

Alors que ceci fonctionne très bien

Private Sub OK_Click()
        Cellule_1 = Adresses_Et_Valeurs.TextBox1
        Cellule_2 = Adresses_Et_Valeurs.TextBox2
        Cellule_3 = Adresses_Et_Valeurs.TextBox3
With Worksheets("AT").Range(Cellule_1)
        .Font.Name = "Arial Narrow"
        .Font.Size = 12
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorLight1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
        
With Worksheets("AT").Range(Cellule_2)
        .Font.Name = "Arial Narrow"
        .Font.Size = 12
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorLight1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    
With Worksheets("AT").Range(Cellule_3)
        .Font.Name = "Arial Narrow"
        .Font.Size = 12
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorLight1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End Sub


Voila merci à vous.

Whismeril · Answer

Bonjour 

Tout d’abord, merci d’avoir essayé d’utiliser les balises de code, mais pas tout à fait correctement, pour te prochains posts merci de lire ce petit tuto  https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Pour ton problème, quel est le contenu de Cellule_1, Cellule_2 et Cellule_3 ?

JoBar64 · Answer

Merci d'un retour aussi rapide. En effet, j'ai pris note du fonctionnement des balises.
Cellule_1, Cellule_2 et Cellule_3 sont des TextBox d'un UserForm et renseignent l'adresse de cellule (UserForm1.TextBox1 = Cellule_1, "A1" par exemple).

Patrice33740 · Answer

Bonjour,

La syntaxe Range(Cellule_1, Cellule_2, Cellule_3) est incorrecte !

Essaies :
  With Worksheets("AT")
    With Union(.Range(Cellule_1), .Range(Cellule_2), .Range(Cellule_3))
        .Font.Name = "Arial Narrow"
        .Font.Size = 12
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorLight1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
  End With

JoBar64 · Answer

Bonjour,

Merci, j'avais bien essayé " Union" mais pas avec un deuxième "With".
Du type :
  With Worksheets("AT").Union(.Range(Cellule_1), .Range(Cellule_2), .Range(Cellule_3))
        .Font.Name = "Arial Narrow"
        .Font.Size = 12
        .Font.Bold = True
        .Font.ThemeColor = xlThemeColorLight1
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With

JoBar64 · Answer

Ça fonctionne parfaitement !

Incompréhension sur Range de plusieurs cellules

5 réponses

Votre réponse

Discussions similaires