Aide avec les formules Excel et VBA

Version imprimable

18/11/2022, 10h29
mateoga69

Aide avec les formules Excel et VBA

Bonjour à tous,

je bloque depuis quelques temps sur une idée que je n'arrive pas à mettre en place.:calim2:
Je vous explique :

Je souhaite savoir si une cellule possède une formule (jusque-là rien de compliqué, je fais ça avec hasformula).

Si la cellule ne contient pas de formule, mais juste un nombre (exemple : 5000), je souhaite mettre la cellule sous la forme "=0+0+0+0+5000" --> avec le premier 0 qui correspond à ma variable lundi (initialisé à 0), le deuxième 0 a ma variable mardi (initialisé aussi a 0), etc... jusqu'à ma variable vendredi qui prend la valeur de la cellule de base (5000) et tout ça donne "=0+0+0+0+5000" que j'écris dans la formule de ma cellule (ici aussi rien de compliqué)

Maintenant, si la cellule contient déjà une formule du type "=0+0+0+0+5000", je souhaite identifier le 1er nombre pour le mettre dans ma variable lundi, le deuxième dans mardi, 3ème mercredi, etc jusqu'au dernier nombre que je met dans ma variable vendredi

Si vous avez des questions ou si ce n'est pas clair, je peux vous apporter plus de précision.
Merci d'avance

Bonjour Mateoga69 et bienvenue ;)

On peut inscrire dans un tableau toutes les valeurs de la formule avec SPLIT()

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()  Dim TabJ As Variant, J(5), Ind As Integer
  Dim Msg As String
  With ActiveSheet.Range("A1")
    If .HasFormula = True Then
      TabJ = Split(Replace(.Formula, "=", ""), "+")
      For Ind = 1 To 5
        J(Ind) = TabJ(Ind - 1)
        Msg = Msg & J(Ind) & " / "
      Next Ind
    End If
  End With
  Msg = Left(Msg, Len(Msg) - 3)
  MsgBox Msg
End Sub

A+

Citation:
Envoyé par BrunoM45
Bonjour Mateoga69 et bienvenue ;)

On peut inscrire dans un tableau toutes les valeurs de la formule avec SPLIT()
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Test() Dim TabJ As Variant, J(5), Ind As Integer Dim Msg As String With ActiveSheet.Range("A1") If .HasFormula = True Then TabJ = Split(Replace(.Formula, "=", ""), "+") For Ind = 1 To 5 J(Ind) = TabJ(Ind - 1) Msg = Msg & J(Ind) & " / " Next Ind End If End With Msg = Left(Msg, Len(Msg) - 3) MsgBox Msg End Sub
A+
Je te remercie pour ton aide je ne connaissais pas cette fonction split, elle me sera très utile ;)