OVH Cloud OVH Cloud

Probleme avec Range dans des macro

7 réponses
Avatar
Zit
Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select" où
5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse

7 réponses

Avatar
Pounet95
Bonsoir,
Si je comprends bien le but est de sélectionner plusieurs plages ?
Dans ce cas faire, par exemple :

compteur = 1
compteur1 = 5
With Sheets("data")
Union(Range(Cells(compteur, 2), Cells(compteur1, 2)), _
Range(Cells(compteur, 10), Cells(compteur1, 10)), _
Range(Cells(compteur, 14), Cells(compteur1, 18))).Select
End With

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Zit" a écrit dans le message de news:
O%
Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select"
où 5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse



Avatar
Zit
Merci beaucoup Pounet95.
Cela fonctionne excactement comme je le voulais.
Avatar
michdenis
Bonjour Pounet95,

Il doit bien y manquer quelques "points ""."" dans ce bout de code !!!

;-))


Salutations!


"Pounet95" a écrit dans le message de news:
Bonsoir,
Si je comprends bien le but est de sélectionner plusieurs plages ?
Dans ce cas faire, par exemple :

compteur = 1
compteur1 = 5
With Sheets("data")
Union(Range(Cells(compteur, 2), Cells(compteur1, 2)), _
Range(Cells(compteur, 10), Cells(compteur1, 10)), _
Range(Cells(compteur, 14), Cells(compteur1, 18))).Select
End With

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Zit" a écrit dans le message de news:
O%
Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select"
où 5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse



Avatar
Pounet95
Bonsoir,

Tu veux dire que le fait d'utiliser With ... End WIth oblige à metttre entre
des instructions avec le . .
C'est vrai que dans les quelques lignes fournies la structure ne sert
strictement à rien.
Le but recherché était de "fournir" l'instruction Union ......
Promis, j'essaierai de ne plus le faire ;o(((

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"michdenis" a écrit dans le message de news:

Bonjour Pounet95,

Il doit bien y manquer quelques "points ""."" dans ce bout de code !!!

;-))


Salutations!


"Pounet95" a écrit dans le message de news:

Bonsoir,
Si je comprends bien le but est de sélectionner plusieurs plages ?
Dans ce cas faire, par exemple :

compteur = 1
compteur1 = 5
With Sheets("data")
Union(Range(Cells(compteur, 2), Cells(compteur1, 2)), _
Range(Cells(compteur, 10), Cells(compteur1, 10)), _
Range(Cells(compteur, 14), Cells(compteur1, 18))).Select
End With

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Zit" a écrit dans le message de news:
O%
Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select"
où 5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse







Avatar
michdenis
C'était pour rire... l'essentiel y était et c'est ça qui est important...


Salutations!


"Pounet95" a écrit dans le message de news: %23ZXZ$
Bonsoir,

Tu veux dire que le fait d'utiliser With ... End WIth oblige à metttre entre
des instructions avec le . .
C'est vrai que dans les quelques lignes fournies la structure ne sert
strictement à rien.
Le but recherché était de "fournir" l'instruction Union ......
Promis, j'essaierai de ne plus le faire ;o(((

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"michdenis" a écrit dans le message de news:

Bonjour Pounet95,

Il doit bien y manquer quelques "points ""."" dans ce bout de code !!!

;-))


Salutations!


"Pounet95" a écrit dans le message de news:

Bonsoir,
Si je comprends bien le but est de sélectionner plusieurs plages ?
Dans ce cas faire, par exemple :

compteur = 1
compteur1 = 5
With Sheets("data")
Union(Range(Cells(compteur, 2), Cells(compteur1, 2)), _
Range(Cells(compteur, 10), Cells(compteur1, 10)), _
Range(Cells(compteur, 14), Cells(compteur1, 18))).Select
End With

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Zit" a écrit dans le message de news:
O%
Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select"
où 5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse







Avatar
Pounet95
Re,
Je l'ai pris comme tel.
Pas de souci

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"michdenis" a écrit dans le message de news:

C'était pour rire... l'essentiel y était et c'est ça qui est important...


Salutations!


"Pounet95" a écrit dans le message de news:
%23ZXZ$
Bonsoir,

Tu veux dire que le fait d'utiliser With ... End WIth oblige à metttre
entre
des instructions avec le . .
C'est vrai que dans les quelques lignes fournies la structure ne sert
strictement à rien.
Le but recherché était de "fournir" l'instruction Union ......
Promis, j'essaierai de ne plus le faire ;o(((

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"michdenis" a écrit dans le message de news:

Bonjour Pounet95,

Il doit bien y manquer quelques "points ""."" dans ce bout de code !!!

;-))


Salutations!


"Pounet95" a écrit dans le message de news:

Bonsoir,
Si je comprends bien le but est de sélectionner plusieurs plages ?
Dans ce cas faire, par exemple :

compteur = 1
compteur1 = 5
With Sheets("data")
Union(Range(Cells(compteur, 2), Cells(compteur1, 2)), _
Range(Cells(compteur, 10), Cells(compteur1, 10)), _
Range(Cells(compteur, 14), Cells(compteur1, 18))).Select
End With

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Zit" a écrit dans le message de news:
O%
Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select"
où 5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse











Avatar
Michel Gaboly
Bonsoir,

Variante :

Dans Range ("B & compteur : B" & compteur1), il manque une concaténatio n ; essaye :

Range ("B & compteur & ": B" & compteur1)


Bonjour à tous et très bonne année

Voila, j'ai un soucis avec Range.
Je voudrai remplacer "Sheets("data").Range("B5:B9,E5:F9,I5:I9").Select " où
5 et 9 sont des variables
par "Sheets("data").Range.(cells(compteur,2),cells(compteur1,2))
(cells(compteur,5),cells(compteur1,5)) etc...
je n'arrive pas à l'écrire (Grrrrrrrrrrr).

J'ai aussi essayé de passer par
Range ("B & compteur : B" & compteur1)
même erreur

cela marche avec
Range ("B5 : B" & compteur1) mais je voudrai paramétrer le début de ma
sélection

Merci d'avance pour vos réponse





--
Cordialement,

Michel Gaboly
www.gaboly.com