VBA Range et Variable

Bonjour,

Essaie avec ça:

Dim lig As Long

lig = Clng(Range("F3").Value)

Range("A" & lig & ":R" & lig & ",A5:R5").Select 

;o)

Merci beaucoup Polux 31, cela fonctionne toutefois il me reste une derniere question, j'ai quasiment le même probleme dans une autre cellule :

ActiveChart.PivotLayout.PivotTable.PivotFields("Client").CurrentPage = _
("nom1")

nom1 correspond cette fois a un nom variable qui se trouve en D3. je me suis inspiré de ton code mais je pense que cela differe du fait que ce n'est plus numerique...

A tu une idée? en tout les cas merci encore de m'avoir aidé.

Cordialement.

Tu veux dire que la cellule D3 contient une chaine de caractères et non une valeur numérique ?

Si c'est le cas il faut juste faire:

ActiveChart.PivotLayout.PivotTable.PivotFields("Client").CurrentPage = _
CStr(Range("D3").Value)

La fonction CStr() convertit la variable en chaîne de caractère. Par exemple, si D3 contient un code postal : 02150

cp = Range("D3").Value

cp = 2150

Ou

cp = CStr(Range("D3").Value)

cp = "02150" 

;o)

Merci beaucoup polux 31 , tu est trop fort !!! lol

Ben non, pas trop fort ... juste que je sais comment faire.

;o)