Optimisation declaration variable code macro vba

Shaar -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'ai eu à déclarer de nombreuse variable dans une macro vba. Afin d'obtenir les données que je voulais, j'ai réalisé ce code :

    'Declaration Départ ArrS
        Rows("1:1").Select
        Selection.Find(What:="Arrivée", after:=ActiveCell).Activate
        ArrS = ActiveCell.Column


Or cela fait de nombreuses lignes de code car il y a beaucoup de variable. Serait il possible de réduire ce code ?

Merci à vous,

1 réponse

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Si tu nous donnais tout le code?

    Sinon :
    'Declaration Départ ArrS
    Rows("1:1").Select
    Selection.Find(What:="Arrivée", after:=ActiveCell).Activate
    ArrS = ActiveCell.Column


    peut s'écrire :
    Dim ArrS As Integer
    ArrS = Rows("1:1").Find(What:="Arrivée", after:=ActiveCell).Column

    Qui est effectivement plus court, mais sujet à de nombreux risques de plantage...
    0