VBA Excel 365 : Range.Resize

Résolu
mikel831 Messages postés 120 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 28 avril 2024 - 13 avril 2024 à 10:50
Bruno83200_6929 Messages postés 89 Date d'inscription jeudi 18 juin 2020 Statut Membre Dernière intervention 21 avril 2024 - 13 avril 2024 à 14:28

Bonjour à tous!
Ce simple bout de code bugue, et je ne trouve pas mon erreur ...
MaPlage , Reunion As Range
Set MaPlage = Range(Reunion).Resize(20, 9)

???


Windows / Chrome 123.0.0.0

A voir également:

1 réponse

Bruno83200_6929 Messages postés 89 Date d'inscription jeudi 18 juin 2020 Statut Membre Dernière intervention 21 avril 2024 13
13 avril 2024 à 14:00

Bonjour,

C'est normal que cela ne fonctionne pas. La variable Reunion n'est pas définie, et vous essayez de l'utiliser comme argument pour la fonction Range. Vous devez définir la plage que vous souhaitez redimensionner dans la variable Reunion.

Set Reunion = Range("A1:I1") (Par exemple, ajustez la plage selon vos besoins)

et ce avant de redimensionner la plage dans le code.


1
mikel831 Messages postés 120 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 28 avril 2024 10
13 avril 2024 à 14:16

Merci pour ta réponse!
En fait, le range Reunion est défini plus haut dans mon code.
De toute façon, si je fais:
Sub Bout_de_Code()
Dim MaPlage, Reunion As Range
Set Reunion = Range("A1:I1")
'MsgBox Reunion.Address
'Stop
Set MaPlage = Range(Reunion).Resize(20, 9)
End Sub

ça bugue toujours sur le resize ...???

0
Bruno83200_6929 Messages postés 89 Date d'inscription jeudi 18 juin 2020 Statut Membre Dernière intervention 21 avril 2024 13 > mikel831 Messages postés 120 Date d'inscription mardi 23 octobre 2012 Statut Membre Dernière intervention 28 avril 2024
13 avril 2024 à 14:28

Oui, mais ça ne peut pas fonctionner. Pourquoi SetMaPlage = Range(Reunion),Resize (20,9)

Essayez plutôt comme ça

:Set MaPlage = Reunion.Resize(20, 9)

On le sait que vous voulez utiliser Reunion pour le fonction Range, ce n'est pas nécessaire de surcharger. En plus ca créer un bug.

1