Bonjour,
Je souhaite pouvoir effectuer des sélections de plages pour pouvoir effectuer des mises en page sur ces cellules précisément.
Pour cela, j'ai essayé d'utiliser .Areas comme ici mais à priori dès que je fais le select il n'arrive pas à le faire. "La méthode Select de l'objet range a échoué". Mon code actuel
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim objRange As Range
    Dim sRange As String
 
    sRange = "H12:H19,D12:D19"
 
 
    For Each objRange In Sheets("feuill1").Range(WorksheetFunction.VLookup(Sheets("feuill1").Range("G4").Value, Sheets("feuill1").Range("N36:R47"), 3, False)).Areas
        MsgBox objRange.Cells.Count
        objRange.Select
...
Le msgbox m'indique 8 vu qu'il y'a 8 cellules dans la plage H12:H19 mais au select, ça plante.
Une idée, svp?
Cordialement
Pinocchio