Discussion :

[Pa2pseudo]

Bonjour

Je me demandais comment récupérer la formule qui est dans une cellule et lui rajouter un élément complémentaire.

En gros :

Dans C2 : =40+50

Dans la macro, j'ai une boucle qui regarde si A2 et B2 sont identique au champ d'un userform si c'est le cas alors il faut ajuster C2 comme suit

C2 : =40+50+20

le 20 sort d'un champ du userform.
Donc comment faire ?
J'étais parti sur l'idée de faire une sorte de copier coller de la formule inscrite dans la cellule dans une variable lui enlevé le = avec mid() et puis ajouter "+" & variable.
Mais sans succès parce que je n'ai pas réussi à faire prendre la valeur "=40+50" à une variable

Donc je suis à l'écoute de toute proposition solution parce que là je suis à court d'idée. (Peut-être qu'il est finalement possible de prendre le "=40+50" auquel cas ça devrait faire mon bonheur )

Merci

[Jeannot45]

et bienvenu sur le forum

Une instruction à adapter :

Code :

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

    Range("C2").FormulaR1C1 = "=" & Range("C2") & " + 20"

Bonne continuation

[Pa2pseudo]

Salut

À moins que je n'ai pas compris la subtilité ça ne marche pas.

Je n'ai pas du être assez claire.

Pour reprendre mon exemple.

Au début
C2 : =40+50

la macro tourne et je souhaite obtenir
C2 : =40+50+20

en faisant ce que tu proposes ça ne prend que la valeur de C2 et donc je me retrouve avec
C2 : =90+20

C'est d'ailleurs ce que j'avais fait avant de me rendre compte que c'était stupide puisque ça prend la valeur et pas la formule inside.

J'avais ça avant de voir que ça ne marchait pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sheets("semences").Cells(i, 1) = choixculturebox
Sheets("semences").Cells(i, 2) = choixvarietebox
 
cellule = Sheets("semences").Cells(i, 3)
If InStr(cellule, "=") = 1 Then
 cellule = Mid(cellule, 1)
 Sheets("semences").Cells(i, 3).Formula = "=" & cellule & "+" & qteach & "+" & qtefab & ""
Else
 Sheets("semences").Cells(i, 3).Formula = "=" & qteach & "+" & qtefab & ""
 
End If

le instr et le mid servait à détecter si une formule était déjà dans la cellule et si c'était le cas supprimer le "=" pour reprendre les chiffres inscrits

Merci

[Minick]

Salut,

Comme ca:

Code :

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

Sheets("semences").Cells(i, 3).Formula = Sheets("semences").Cells(i, 3).Formula & "+" & qteach & "+" & qtefab

++
Minick

[Pa2pseudo]

C'était tout bête ^^

Merci ça marche parfaitement