IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Fonction "DECALER" en VBA [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    75
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 75
    Par défaut Fonction "DECALER" en VBA
    Bonjour à tous,

    Je désire faire passer des formules Excel en code VBA (ralentissent le code) et comme je suis débutant, je rencontre des difficultés.
    Dans la première partie, j’arrive au résultat final mais en passant par des cellules intermédiaires, alors que le but serait d’aller directement au résultat.
    La deuxième partie ne fonctionne pas du tout.
    Si quelqu’un pouvait me résoudre mon petit problème se serait super.

    Merci par avance.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Sub testKK()
     
    'premiere partie
     
    Range("AC1").Value = WorksheetFunction.Average(Range("AC20:AC49"))
    Range("AD1").Value = WorksheetFunction.Average(Range("AC50:AC79"))
    Range("AE1").Value = WorksheetFunction.Average(Range("AC20:AC79"))
    Range("AF1").Value = WorksheetFunction.DevSq(Range("AC20:AC49"))
    Range("AG1").Value = WorksheetFunction.DevSq(Range("AC50:AC79"))
    Range("AH1").Formula = "=58*((30*(ac1-ae1)^2)+(30*(ad1-ae1)^2))/(af1+ag1)"
    Range("AH1").Value = Range("AH1").Value
     
    'deuxieme partie
     
    'Worksheets("Sheet1").Range("J1").Formula = "=DECALER(f18;EQUIV(MAX(F20:F90);F20:F90;0);1)" 'en francais
    Range("j1").Formula = "=offset(max(f20:f79);match(MAX(F20:F90);F20:F90;0);1)" 'en anglais
    Range("j1").Value = Range("j1").Value
     
     
    End Sub

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    97
    Détails du profil
    Informations personnelles :
    Âge : 45
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 97
    Par défaut
    Salut Pascal,

    Si tu veux éviter de passer par des cellules intermédiaires, il faut que tu déclares des variables :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    dim Moy2049 as Single
    dim Moy5079 as Single
    dim Moy2079 as Single
    dim DS2049 as Single
    dim DS5079 as Single
    Ainsi ton code devient :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Moy2049 = WorksheetFunction.Average(Range("AC20:AC49"))
    Moy5079 = WorksheetFunction.Average(Range("AC50:AC79"))
    Moy2079 = WorksheetFunction.Average(Range("AC20:AC79"))
    DS2049 = WorksheetFunction.DevSq(Range("AC20:AC49"))
    DS5079 = WorksheetFunction.DevSq(Range("AC50:AC79"))
    Range("AH1") = 58*((30*(Moy2049-Moy2079 )^2)+(30*(Moy5079-Moy2079 )^2))/(DS2049+DS5079)
    Pour la deuxième partie, je suis désolé, mais je ne comprends pas ton programme. Cà sert à quoi ?

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    75
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 75
    Par défaut Re,
    Bonjour à toi Touffe54 et les autres bien sur,

    Un grand merci pour la première partie. Fonctionne à merveille.

    Pour la deuxième partie, la fonction « DECALER » me permet de chercher une valeur dans une plage non rangée chronologiquement (colonne G) correspondant à une valeur Max en colonne F.

    La fonction Excel utilisée.

    =DECALER(F19;EQUIV(MAX(F20:F90);F20:F90;0);1)

    Merci par avance.

  4. #4
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Tu peux écrire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ...Formula = "=OFFSET(F19,MATCH(MAX(F20:F90),F20:F90,0),1)"
    ou bien, si ta version linguistique est le français,
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ...FormulaLocal = "=DECALER(F19;EQUIV(MAX(F20:F90);F20:F90;0);1)"
    .

    Cordialement,

    PGZ

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2011
    Messages
    75
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2011
    Messages : 75
    Par défaut Re,
    Un grand merci à vous tous, tout fonctionne a merveille.

    Cordialement

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. fonction mois.decaler sous VBA
    Par franckh99 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 28/11/2007, 10h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo