VBA Excel 365 : Range.Resize

Résolu
mikel831 Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   -  
Bruno83200_6929 Messages postés 725 Date d'inscription   Statut Membre Dernière intervention   -

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

1 réponse

  1. Bruno83200_6929 Messages postés 725 Date d'inscription   Statut Membre Dernière intervention   170
     

    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
    1. mikel831 Messages postés 237 Date d'inscription   Statut Membre Dernière intervention   19
       

      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
      1. Bruno83200_6929 Messages postés 725 Date d'inscription   Statut Membre Dernière intervention   170 > mikel831 Messages postés 237 Date d'inscription   Statut Membre Dernière intervention  
         

        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