Discussion :

[korni184]

Bonjour,

Après plusieurs recherche sur le Forum, je ne parvenis pas à trouver la réponse à ma question.

J'ai un workbook avec deux sheets excel, l'une contenant un tableau et l'autre un rapport texte automatique.

Dans ce tableau se trouve des totaux (USD TOTAL, EUR TOTAL, GBP TOTAL,ETC)
Note : Les devises n'apparaissent pas toujours. (Parfois il n'y pas de GBP par exemple, donc pas de mot "GBP TOTAL")


Je voudrai créer dans le rapport à base d'une formule excel, une macro capable de dire si il y a oui ou non un TOTAL USD, un TOTAL GBP etc....

Exemple : Si il y a le texte "GBP TOTAL" dans la sheet tableau, il inscrit dans la sheet rapport Situation GBP :

En revanche si il n'y aurait de GBP TOTAL, je voudrai qu'il laisse un blanc.

Les formules, (if et find) ne fonctionnent pas ensemble. Comment s'y prendre ?

Merci d'avance pour votre aide

[Bear the french]

Bonsoir korni184,

Peux tu nous en dire plus sur ton onglet (sheets) "tableau" ? Comment il se présente ? En lignes ou en colonnes ? Est ce qu'il peut y avoir plusieurs fois USD TOTAL par exemple ? Ou une seule fois en total d'une colonne ?
Est ce le calcul que tu veux reporter ou l'intitulé ?

Bref, un modèle simplifié de ton fichier faciliterai la compréhension.

Bertrand

[gFZT82]

Bonjour,

Les formules, (if et find) ne fonctionnent pas ensemble. Comment s'y prendre ?

Dans l’exemple suivant, on recherche le texte "GBP TOTAL" dans la plage A2:A500 de la feuille "tableau".
Si le texte est présent, on copie le texte "Situation GBP : " dans la cellule A1 de la feuille "rapport".
Dans le cas contraire, on vide la cellule A1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim C As Range
With Worksheets("tableau").Range("A2:A500")
    Set C = .Find("GBP TOTAL", LookIn:=xlValues)
    If Not C Is Nothing Then
        Worksheets("rapport").Range("A1") = "Situation GBP : "
    Else
        Worksheets("rapport").Range("A1") = ""
    End If
End With
End Sub

Cordialement.

[korni184]

Hello,

Merci gFZT82 !

Mais comment peut-on faire pour introduire cela dans un moteur qui va faire un check par devise ?

C'est à dire, par exemple, il trouve GBP TOTAL, alors hop, il indique Situation GBP en A1, ensuite il fait le check pour USD TOTAL, idem pour le traitement il le met en A2 parcontre si il ne trouve pas, il passe au suivant automatiquement.

Donc au lieu de mettre un blanc en A2 et mettre EUR en A3, il me met directement dans A2.

Je sais que cela comprends des tests sur des cellules, donc comment je peux faire cela avec activecell.offset ( do+loop ) ?

Au final il ferait un test sur une dizaine de devise, si il en trouve que 5 ils les ajoutent l'une en dessous de l'autre, et non pas en laissant des espaces vides.

Est-ce que cela est possible ?

En raisonnant de manière simple le schéma serait le suivant :

Si tu trouves la devise 1, tu indiques situation 1 et tu sautes la ligne et tu recommences le check,

Sinon tu cherches la devise 2, puis si tu trouves tu sautes la lignes et tu recommences le check sur devise 3,

Vu qu'il y a 10 devises, comment je peux faire ce shéma ?

[gFZT82]

Bonjour,

J’entrevois 2 solutions :
Soit tu proposes un code qui indique ce qui faut chercher, où il faut chercher et où il faut placer les résultats (solution à privilégier car elle montre que tu as bien travaillé le sujet).
Soit tu fais comme préconisé par Bear the french et tu nous montres un modèle simplifié de ton fichier en incluant les commentaires pour aider à la compréhension.

Cordialement.