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
Le msgbox m'indique 8 vu qu'il y'a 8 cellules dans la plage H12:H19 mais au select, ça plante.
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 ...
Une idée, svp?
Cordialement
Pinocchio
Partager