Range formule VBA

Bonjour,

Voici mon code VBA :

   REF_AIRUSA = Worksheets("Pilotage").Range("E17")
   PROV1_AIRUSA = Worksheets("Pilotage").Range("F17")
   PROV2_AIRUSA = Worksheets("Pilotage").Range("G17")

    Windows(Fichier_source & ".xlsm").Activate

    Sheets(REF_AIRUSA).Select
    Range(PROV1_AIRUSA).Select
    Range(PROV2_AIRUSA).Select

    Range("PROV1_AIRUSA:PROV2_AIRUSA").Select

Le dernier range renvoie la valeur "h9" et "S13" pour prov1 etProv2

Mais forcément ça ne marche pas, une idée pour résoudre le problème ?

D'ailleurs je dois faire cela pour 50 sociétés, si vous avez une solution plus efficace, je suis preneur

Merci d'avance,

Cordialement,
Parrish

Bonjour Parrish, le forum,

Un essai....à tout hasard...

With Sheets("Pilotage")
        REF_AIRUSA = .Range("E17")
      PROV1_AIRUSA = .Range("F17")
      PROV2_AIRUSA = .Range("G17")
     .Range(PROV1_AIRUSA & ":" & PROV2_AIRUSA).Select
    End With

Cordialement,

Xorsankukai,

Merci beaucoup, problème résolu ^^

Rechercher des sujets similaires à "range formule vba"