Discussion :

[tintin69]

Bonjour,

•j'ai développé une formule qui mette un commentaire automatique qui analyse les données d'un tableau (mes formules sont dans chaque onglets voir cellules C42 je suis obligé de séparer entre mon texte et ma formule, j'aurai aimé savoir s'il y avait une méthode par le langage VBA par exemple afin d'obtenir la réponse dans une cellule déterminée ce qui simplifierait la donne... .
•Pour info. : Les macros déjà en place permettent de filtrer chacun des onglets, et les codes dans l'onglet menu permette de faire un aperçu d'une page et d'ouvrir un onglet.

source : http://www.cjoint.com/data/0DDku2iotRO.htm

Toute aide est la bienvenue, et pour toutes questions n'hésitez pas à m'en faire part.

Merci d'avances

cordialement.

[PMO2017]

Bonjour,

Je ne suis pas du tout sûr d'avoir compris votre demande.
J'ai fait un code qui va identifier le "N° Compte" (en colonne B) et transmettre la correspondance "Détail des Charges de fonctionnement" (dans la cellule C). Est-ce de cela qu'il s'agit ?

Code à mettre dans la fenêtre de code de la feuille concernée.

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S As Worksheet
Dim R As Range
Dim var As Variant
Dim i&
Dim bool As Boolean
'---
On Error GoTo Erreur
If Target.Column = 2 And Target.Cells.Count = 1 Then
  Set S = Sheets("listes des comptes utilisés")
  Set R = S.[a1].CurrentRegion
  var = R
  Application.EnableEvents = False
  For i& = 2 To UBound(var, 1)
    If Trim(Target) <> "" Then
      If Target = var(i&, 1) Then
        bool = True
        Target.Offset(0, 1) = var(i&, 2)
        Exit For
      End If
    End If
  Next i&
  If Not bool Then Target.Offset(0, 1) = ""
End If
Erreur:
Application.EnableEvents = True
End Sub

Je mets un classeur exemple pour que vous puissiez vous rendre compte.
Il faudra entrer un N° Compte en colonne B (611000 en B15 par exemple).

[tintin69]

Tout d'abord merci pour votre aide,

En fait pas vraiment, j'ai été un peu floue dans mon explication, ce que tu as fait comme code si j'ai bien compris permet de trouver le nom du compte sans passer par une formule c'est intéressant et bon à savoir, ce n'est pas ce que j'essaye de faire.

Voici une meilleure explication de ce que je souhaite faire :
Mon objectif si tu veux et de commenter les chiffres du tableau, pour être plus clair j'ai mis en PJ l'image :


Par exemple dans l'onglet "Septembre", si tu vas dans en c142 tu as les formules normalement c'est en gras.

- Par exemple lorsque le pourcentage d'écart entre cette année et l'année précédente <0 alors c'est en baisse sinon c'est une hausse

Formule de la cellule D143 =SI(I141<0;"sont en baisse de";"hausse de")

- Autre exemple : prendre la valeur la plus élevé dans mon avancement d'où la formule en D144 = =MAX(AA14:AA141)

- Ou encore autre exemple : pour signifier le poste de dépense le plus important du mois

Formule en D146 (fusionné avec D145) =SI(I145=0;"";INDEX(B15:B140;EQUIV(I145;G15:G140;0)))

En fait si tu veux mon objectif c'est d'avoir des commentaires déterminée selon les valeurs de mon tableau pour avoir une vision rapide des données les plus importantes et faciliter l'analyse, avec des formules c'est simple c'est ce que j'ai fais mais peut être on peut faire mieux avec du VBA d'où ma question.

Merci encore pour ton aide ^^

[Marc-L]

Bonjour.

j'aurai aimé savoir s'il y avait une méthode par le langage VBA par exemple
afin d'obtenir la réponse dans une cellule déterminée ce qui simplifierait la donne ...

VBA inutile car possible directement dans une formule ! Via la fonction TEXTE par exemple et l'opérateur de concaténation & …

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo