VBA Range et Variable
Résolu
freddv
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
solidarinfo Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
solidarinfo Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un petit souci dans une macro j'ai une plage de selectionné comme ceci : Range("A8:R8,A5:R5").Select
en sachant que la valeur 8 contenu dans A8:R8 peut changer j'ai cette valeur dans la cellule F3, mais je n'y arrive pas, a l'aide si quelqu'un peu m'aider. j'ai beau regarder partout essayer des bout de code, rien de rien
Merci.
j'ai un petit souci dans une macro j'ai une plage de selectionné comme ceci : Range("A8:R8,A5:R5").Select
en sachant que la valeur 8 contenu dans A8:R8 peut changer j'ai cette valeur dans la cellule F3, mais je n'y arrive pas, a l'aide si quelqu'un peu m'aider. j'ai beau regarder partout essayer des bout de code, rien de rien
Merci.
5 réponses
Bonjour,
Essaie avec ça:
;o)
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.
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
Ou
;o)
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)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ben non, pas trop fort ... juste que je sais comment faire.
;o)
;o)
