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 :

VBA Formule personnalisée [Toutes versions]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut VBA Formule personnalisée
    Bonjour,

    Je souhaite rassembler dans un seul et même tableau les infos qui se trouvent dans des tableaux identiques qui se trouvent dans différents onglets.
    Ce tableau de synthèse est différent des tableaux de données, c’est pourquoi je veux créer une formule qui récupèrera les données en fonctions des entêtes de colonnes ou de lignes.

    Malheureusement ma formule de fonctionne pas et ne renvoie pas de valeur.
    Pouvez-vous m’aider SVP ?

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
     
     
    Function informationsPret2() As Double
     
    Dim valeurAnnee As Long, valeurMois As String, valeurPret As String, valeurInfo As String
    Dim feuille As String, derniereLigne As Long
    Dim deplacementMois As Long, deplacementAnnee As Long
    Dim valeurRecherchee As Double
     
    Dim numeroColonne As Long
    Dim numeroLigne As Long
    Dim lettreColonneValeur As String
    Dim plageAnnee As Range
    Dim plageMois As Range
    Dim colonneValeur As String
    Dim plageRechercheValeurPret As String
     
    Application.Volatile
     
    numeroColonne = ActiveCell.Column
    numeroLigne = ActiveCell.Row
     
     
     
    lettreColonneValeur = Split(Cells(1, numeroColonne).Address, "$")(1)
     
    Set plageAnnee = Range(lettreColonneValeur & 12)
    Set plageMois = Range(lettreColonneValeur & 13)
     
    valeurAnnee = plageAnnee.MergeArea.Cells(1, 1).Value
    valeurMois = plageMois.MergeArea.Cells(1, 1).Value
    valeurInfo = Range(lettreColonneValeur & 14).Value
    valeurPret = Range("A" & numeroLigne).Value
     
    feuille = valeurPret
     
     
    If valeurInfo = " Remboursement Capital" Then
     
        colonneValeur = "C"
        deplacementMois = 6
        deplacementAnnee = 7
     
    ElseIf valeurInfo = " Intérêts" Then
     
        colonneValeur = "D"
        deplacementMois = 5
        deplacementAnnee = 6
     
    ElseIf valeurInfo = " Capital dû aprés échéance" Then
     
        colonneValeur = "F"
        deplacementMois = 3
        deplacementAnnee = 4
     
    End If
     
    derniereLigne = 0
     
    Worksheets(feuille).Activate
     
    Range("A" & Rows.Count).End(xlUp).Select
    derniereLigne = Range("A" & Rows.Count).End(xlUp).Row
     
    plageRechercheValeurPret = colonneValeur & "12: L " & derniereLigne
     
    Range(plageRechercheValeurPret).Select
     
     
    For Each Cell In Selection
        Cell.Select
     
        If ActiveCell.Offset(0, deplacementAnnee).Value = valeurAnnee And ActiveCell.Offset(0, deplacementMois).Value = valeurMois Then
     
            valeurRecherchee = ActiveCell.Value
     
            Exit Function
     
        End If
     
    Next Cell
     
     
    informationsPret2 = valeurRecherchee
     
     
    End Function

  2. #2
    Membre expérimenté
    Homme Profil pro
    chef de projet transverse MOE
    Inscrit en
    Janvier 2015
    Messages
    121
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : chef de projet transverse MOE
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Janvier 2015
    Messages : 121
    Par défaut
    Est ce que tu as utilisé les outils de debugging de VBA?
    Tu peux placer un point d'arrêt dans ton code et regarder la valeur des variables.
    Ainsi, tu peux voir à partir d'où ton code ne fait pas ce qui est attendu.

    Il est difficile pour nous (ou peut etre seulement pour moi qui suis une grosse feignasse) de debugguer un code sans avoir la source des données (Il se peut que tu points sur une cellule vide à un moment par exemple, mais cela on ne peut le savoir sans le fichier). Avec le débuggueur tu as toutes les infos necessaire pour voir ce qui ne vas pas.

    Bon courage!

  3. #3
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Je n'ai pas analysé tout ton code mais je pense que tu confonds Exit Function avec Exit For.

    Autre détail : pour moi, une fonction ne doit servir qu'à renvoyer une valeur et ne doit pas réaliser d'actions.
    Les Activate et Select que tu y as mis n'ont donc rien à y faire.
    D'autant plus que ton Activate pourra être supprimé au profit d'un With et que les Select sont au mieux inutiles et au pire compliquent ton code.

  4. #4
    Membre expérimenté
    Homme Profil pro
    chef de projet transverse MOE
    Inscrit en
    Janvier 2015
    Messages
    121
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : chef de projet transverse MOE
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Janvier 2015
    Messages : 121
    Par défaut
    Citation Envoyé par Menhir Voir le message
    Je n'ai pas analysé tout ton code mais je pense que tu confonds Exit Function avec Exit For.

    Autre détail : pour moi, une fonction ne doit servir qu'à renvoyer une valeur et ne doit pas réaliser d'actions.
    Les Activate et Select que tu y as mis n'ont donc rien à y faire.
    D'autant plus que ton Activate pourra être supprimé au profit d'un With et que les Select sont au mieux inutiles et au pire compliquent ton code.
    Effectivement, Si tu quittes la fonction avant d'assigner la valeur de retour, ca ne retourne rien
    Je pense que c'est la bonne piste! (Et tu aurais vu cela avec le débuggeur).

  5. #5
    Invité
    Invité(e)
    Par défaut
    J'ai remanié mon code pour le rendre un peu plus lisible.
    Mais rien n'y fait.
    La cellule ne renvoie pas la valeur recherchée.

    Je n'ai pas trop compris comment remplacer mon "Activate" par "With".

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    Public valeurAnnee As Long, valeurMois As String, valeurPret As String, valeurInfo As String
    Public feuille As String, derniereLigne As Long
    Public deplacementMois As Long, deplacementAnnee As Long
    Public valeurRecherchee As Double
     
    Function informationsPret() As Double
     
    Application.Volatile
     
    Call renseignementColonne
    Call rechercheValeurPret
     
     
    informationsPret = valeurRecherchee
     
     
    End Function
    Sub renseignementColonne()
     
    Dim numeroColonne As Long
    Dim numeroLigne As Long
    Dim lettreColonneValeur As String
    Dim plageAnnee As Range
    Dim plageMois As Range
     
    numeroColonne = ActiveCell.Column
    numeroLigne = ActiveCell.Row
     
    lettreColonneValeur = lettreColonne(numeroColonne)
     
    Set plageAnnee = Range(lettreColonneValeur & 12)
    Set plageMois = Range(lettreColonneValeur & 13)
     
    valeurAnnee = plageAnnee.MergeArea.Cells(1, 1).Value
    valeurMois = plageMois.MergeArea.Cells(1, 1).Value
    valeurInfo = Range(lettreColonneValeur & 14).Value
    valeurPret = Range("A" & numeroLigne).Value
     
    feuille = valeurPret
     
    'MsgBox (valeurAnnee & valeurMois & valeurPret)
     
    End Sub
     
    Function lettreColonne(numeroColonneAConvertir)
     
    lettreColonne = Split(Cells(1, numeroColonneAConvertir).Address, "$")(1)
     
    End Function
     
    Sub rechercheValeurPret()
     
    Dim colonneValeur As String
    Dim plageRechercheValeurPret As String
     
     
    Worksheets(feuille).Activate
     
    If valeurInfo = " Remboursement Capital" Then
     
        colonneValeur = "C"
        deplacementMois = 6
        deplacementAnnee = 7
     
    ElseIf valeurInfo = " Intérêts" Then
     
        colonneValeur = "D"
        deplacementMois = 5
        deplacementAnnee = 6
     
    ElseIf valeurInfo = " Capital dû aprés échéance" Then
     
        colonneValeur = "F"
        deplacementMois = 3
        deplacementAnnee = 4
     
    End If
     
    Call compteurLignes(feuille, "A")
     
    plageRechercheValeurPret = colonneValeur & "12:L" & derniereLigne
     
    Range(plageRechercheValeurPret).Select
     
     
    For Each Cell In Selection
        Cell.Select
     
        If ActiveCell.Offset(0, deplacementAnnee).Value = valeurAnnee And ActiveCell.Offset(0, deplacementMois).Value = valeurMois Then
     
            valeurRecherchee = ActiveCell.Value
     
            Exit For
     
        End If
     
    Next Cell
     
    End Sub
     
     
    Sub compteurLignes(feuilleCompteur As String, colonneCompteur As String)
     
     
    derniereLigne = 0
     
    Worksheets(feuilleCompteur).Activate
     
    Range(colonneCompteur & Rows.Count).End(xlUp).Select
    derniereLigne = Range(colonneCompteur & Rows.Count).End(xlUp).Row
     
    End Sub

  6. #6
    Membre expérimenté
    Homme Profil pro
    chef de projet transverse MOE
    Inscrit en
    Janvier 2015
    Messages
    121
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : chef de projet transverse MOE
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : Janvier 2015
    Messages : 121
    Par défaut
    Ton code passe la compilation et se base sur un formatage d'une ou plusieurs feuilles de ton classeur. Donc, comme je te l'ai dit plus haut, sans le classeur, difficile de dire pourquoi ton code ne marche pas.

    Essaye de débuguer...

    sinon es tu sur des valeurs de valeurInfo? tu met des espaces devant les mots à chaqque fois. ca parait bizzare. Peut etre qu'ici tu ne rentres dans aucune condition....

  7. #7
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par fnallet94 Voir le message
    J'ai remanié mon code pour le rendre un peu plus lisible.
    Mais rien n'y fait.
    La cellule ne renvoie pas la valeur recherchée.
    C'est normal. Tu corriges une erreur mais tu en crées une autre (pour une raison qui m'échappe d'ailleurs).
    Si tu supprimes informationsPret2 = ..., ta fonction ne risque pas de renvoyer quoi que ce soit.

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

Discussions similaires

  1. [VI-2003] Formule personnalisée = nom de la page
    Par tchoua dans le forum Visio
    Réponses: 0
    Dernier message: 23/09/2009, 15h29
  2. [XL-2007] Sauvegarder une formule personnalisée
    Par mc guill dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 14/08/2009, 19h47
  3. Réponses: 6
    Dernier message: 05/01/2009, 15h34
  4. [VBA]Fonction personnalisée avec "If"
    Par FWSMulder dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 07/08/2008, 23h28
  5. [VBA] Formule avec variables
    Par tuzoenduro dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 18/02/2008, 17h40

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