High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

VBA Range et Variable

Dernière réponse le 14 oct 2009 à 15:24:13 freddv, le 14 oct 2009 à 12:07:36 
 Signaler ce message aux modérateurs

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.

Configuration: Windows XP Internet Explorer 6.0

Meilleures réponses pour « VBA Range et Variable » dans :
Javascript - Les variables VoirLe concept de variable Une variable est un objet repéré par son nom, pouvant contenir des données, qui pourront être modifiées lors de l'exécution du programme. En Javascript, les noms de variables peuvent être aussi long que l'on désire,...
PHP - Les variables VoirConcept de variable avec PHP Une variable est un objet repéré par son nom, pouvant contenir des données, qui pourront être modifiées lors de l'exécution du programme. Les variables en langage PHP peuvent être de trois...
Variables d'environnement VoirVariables d'environnement Une variable d'environnement est une valeur dynamique, chargée en mémoire, pouvant être utilisée par plusieurs processus fonctionnant simultanément. Sur la plupart des systèmes d'exploitation, les emplacement de...
Posez votre question Répondre

1

Polux31, le 14 oct 2009 à 13:26:19

Bonjour,

Essaie avec ça: 

Dim lig As Long

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

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

;o)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

2

freddv, le 14 oct 2009 à 13:51:20

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.

   
Répondre à freddv

3

Polux31, le 14 oct 2009 à 14:40:18

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)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31

4

freddv, le 14 oct 2009 à 15:06:11

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

   
Répondre à freddv

5

 Polux31, le 14 oct 2009 à 15:24:13

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

;o) «Ce que l'on conçoit bien s'énonce clairement, Et les mots p­our le dire arrivent aisément.» 
Nicolas Boileau

   
Répondre à Polux31
Posez votre question Répondre
Ils ont besoin de votre aide