Discussion :

[alexandre.g]

Bonjour,

Je bloque depuis plus d'une heure sur un resize... oui oui !

Je suis dans une feuille A et je veux sélectionner un Range d'une feuille B voyez dont...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
nbMois = CInt(Worksheets("statSQL").Range("F1").Value)
Dim range1 As Range
Dim range2 As Range
Dim objRange As Range
 
    'range des en-tête de mois
    Set range1 = Worksheets("statSQL").Range("A9:B11").Resize(0, nbMois + 1)
 
    'range des données
    Set rg = Worksheets("statSQL").Range("A9:B11").Resize(0, nbMois)
 
    'range total
    Set objRange = Union(range1, range2)

J'ai essayé à peu près toutes les combinaisons possibles et imaginables il ne veut rien savoir...

En passant par Cells

Code :

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

Worksheets("statSQL").Range(Worksheets("statSQL").Cells(3, 1)).Resize(0, nbMois + 1).Resize(0, nbMois + 1)

En deux lignes

Code :

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

1
2
    Set range1 = Worksheets("statSQL").Range("A3:B3")
    range1.Resize 0, nbMois

Ou encore

Code :

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

1
2
    Set range1 = Worksheets("statSQL").Range("A3:B3")
   range1= range1.Resize(0, nbMois)

J'avoue mon incompréhension....

[Philippe Tulliez]

Bonjour,
Dire que l'on bloque ne donne aucune indication.
Soit on bloque parce-que l'on ne sait pas comment faire, soit parce-que le système bogue (ce qui est sans aucune doute ce qui arrive vu le paramètre envoyé à la propriété Resize qui en général n'apprécie pas du tout la valeur 0) et alors il y a inévitablement un message d'erreur à une ligne précise.
C'est justement cela qui nous intéresse pour t'aider. Le n° de l'erreur, le texte qui l'accompagne et à quelle ligne (le N° de la ligne).

La propriété Resize de l'objet Range doit avoir comme argument un n° compris entre 1 et x pour la ligne comme pour la colonne où si l'on souhaite garder le nombre de ligne ou de colonne initial (la syntaxe est par exemple Resize(, 4)

[Arkham46]

Bonjour,

0 en nombre de lignes ça ne doit pas lui plaire.
Laissez le paramètre vide pour ne pas préciser de changement de taille sur les lignes.

Code :

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

.Resize( , nbMois + 1)

D'ailleurs il devrait y avoir une erreur d'exécution, à moins qu'un "on error resume next" ne traine quelque part.

[alexandre.g]

Effectivement c'était bien le zéro !
Le livre avec lequel je m'aide ne précise pas que 0 n'est pas supporté par la méthode, c'est vraiment contre-intuitif.

Bien que je ne l'ai pas précisé il s'agit de l'erreur d'execution 1004 : erreur définie par l'application ou l'objet.
Merci à vous deux.

[Philippe Tulliez]

Bonjour,

Le livre avec lequel je m'aide ne précise pas que 0 n'est pas supporté par la méthode, c'est vraiment contre-intuitif.

Je suis d'accord que ce n'est pas toujours intuitif mais est-ce logique d'avoir une plage de cellules sans ligne (0) ou sans colonne (0). Une plage d'excel doit avoir au minimum 1 ligne et 1 colonne.
Tu peux aussi utiliser un argument nommé au lieu d'utiliser un argument vide ainsi tu évites la virgule.

Code :

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

Objet.Resize(Columnsize:=5)