Discussion :

[pinocchio]

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

[casefayere]

bonjour,
ça ne serait pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set objRange = "H12:H19,D12:D19"

plutot

[pinocchio]

Non, excuse moi pour la syntaxe, le sRange montre la valeur que je récupère avant de faire le .Area
cdt
Pinocchio

[JackOuYA]

Bonjour,

Quel est le but de ton select ...? dans la pluspart des codes il est inutile d'utiliser Select.

La feuil1 et bien ta feuille active ..?

[pinocchio]

Bonjour,
La feuille est bien active.
Le selct est effectué car ensuite, je fais une remise en forme de la plage sélectionné afin de verrouiller ou non la saisie sur la plage .
Cordialement
Pinocchio

[ouskel'n'or]

Au moment où tu effectues ton Select, ta plage est-elle verrouillée et ta feuille protégée ? A tout hasard...

[JackOuYA]

Bonsoir,

....
Le selct est effectué car ensuite, je fais une remise en forme de la plage sélectionné afin de verrouiller ou non la saisie sur la plage ...

Oui et bien moi je ferai cela comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub Verrouile()
   ThisWorkbook.Sheets("Feuil1").Range("H12:H19,D12:D19").Locked = True
End Sub
Sub EnleveVerrou()
   ThisWorkbook.Sheets("Feuil1").Range("H12:H19,D12:D19").Locked = False
End Sub