Incompréhension sur Range de plusieurs cellules [Résolu]

Signaler
Messages postés
6
Date d'inscription
samedi 16 janvier 2021
Statut
Membre
Dernière intervention
16 janvier 2021
-
Messages postés
6
Date d'inscription
samedi 16 janvier 2021
Statut
Membre
Dernière intervention
16 janvier 2021
-
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.

5 réponses

Messages postés
16024
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
12 juin 2021
549
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 ?
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
21
Commentaire supprimé
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
21
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

Messages postés
6
Date d'inscription
samedi 16 janvier 2021
Statut
Membre
Dernière intervention
16 janvier 2021

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).
Messages postés
6
Date d'inscription
samedi 16 janvier 2021
Statut
Membre
Dernière intervention
16 janvier 2021

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
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021
21
Là encore la syntaxe était incorrecte : Union n'est ni une méthode, ni une propriété de Worksheet.
Messages postés
6
Date d'inscription
samedi 16 janvier 2021
Statut
Membre
Dernière intervention
16 janvier 2021
>
Messages postés
8536
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
8 mai 2021

OK c'est noté, je le serai maintenant. J'apprend au fur et à mesure pour la création de petite Macro qui me simplifie la vie au boulot.
Messages postés
6
Date d'inscription
samedi 16 janvier 2021
Statut
Membre
Dernière intervention
16 janvier 2021

Ça fonctionne parfaitement !