Discussion :

[mateoga69]

Bonjour à tous,

je bloque depuis quelques temps sur une idée que je n'arrive pas à mettre en place.
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

[Invité]

Bonjour Mateoga69 et bienvenue

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

Code :

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

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+

[mateoga69]

Bonjour Mateoga69 et bienvenue

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

Code :

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

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