Souci macro: graph & concatenation

[Michel_ja]

Bonjour, j'ai écrit le code ci-dessous; il s'agit d'une macro qui fait défiler suivant un timing défini (Compteur) un mot dans une cellule. Cela fonctionnait bien, et lorsque je la lançais le graphique de la feuille se mettait à jour (il renvoie à une BDSomme). Désormais, une fois la macro lancée, le graph ne se met pas à jour et la concatenation me renvoie "Faux". 😱
Auriez-vous une solution ?
Merci d'avance à vous

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim temps As Variant, i As Integer


Sub Compteur()
temps = Now + TimeValue("00:00:06") 'Ici 4 secondes
Application.OnTime temps, "MajCel"

End Sub


Sub Majcel()

Dim name As String

i = i + 1
If i = 694 Then i = 2
Cells(56081, 5) = Sheets("Countries").Cells(i, 6)

Compteur
Sheets("Data").Cells(56081, 9) = FormulaR1C1 = _
"=CONCATENATE(RC[-8],"" "",RC[-4],"" "",RC[-3])"
name = Sheets("Data").Cells(56081, 9).Value
Sheets("Countries").Cells(i, 8).Value = name
Sheets("Countries").Cells(i, 9).Value = InputBox(" Insert 0 = stagnate, 1/2 = increases, 8/9 = decreases", "Sales trend")

End Sub

 

[soenda]

Re : Souci macro: graph & concatenation

Bonjour le fil, Michel_ja

Un égal de trop (peut-être)

Compteur
Sheets("Data").Cells(56081, 9) [B][COLOR=red]=[/COLOR][/B] FormulaR1C1 = "=CONCATENATE(RC[-8],"" "",RC[-4],"" "",RC[-3])"

Devrait s'écrire

Sheets("Data").Cells(56081, 9)[B][SIZE=3][COLOR=red].[/COLOR][/SIZE][/B]FormulaR1C1 = "=CONCATENATE(RC[-8],"" "",RC[-4],"" "",RC[-3])"

A plus

 

[Michel_ja]

Re : Souci macro: graph & concatenation

Cool ça fonctionne ! Il y avait 2 soucis, un égal de trop et merci à toi pour ton aide et deux, mon excel était un mode calcul manuel.
J'ai une autre petite question : j'ai donc le code suivant mais lorsque j'appuie sur Annuler ou la croix de la Inputbox, la macro continue à tourner. Cette macro est reliée à d'autres mais est-ce que ça peut venir de là ???
Grand MERCI.


Sub Majcel()

Dim name As String
Dim Trend As Variant

i = i + 1
If i = 694 Then i = 2
Cells(56081, 5) = Sheets("Countries").Cells(i, 6)

Compteur
Sheets("Data").Cells(56081, 9).FormulaR1C1 = _
"=CONCATENATE(RC[-8],"" "",RC[-4],"" "",RC[-3])"
name = Sheets("Data").Cells(56081, 9).Value
Sheets("Countries").Cells(i, 8).Value = name
Trend = InputBox("Look at the graph and Up, Down or OK", "Sales Trend")
If Trend = vbBoolean Then
Exit Sub
Else
Sheets("Countries").Cells(i, 9).Value = Trend
End If

End Sub

 

[soenda]

Re : Souci macro: graph & concatenation

Re,

lorsque j'appuie sur Annuler ou la croix de l'InputBox, la macro continue à tourner

Si tu appuies sur la croix ou sur "Annuler", l'InputBox renvoie une chaîne vide. D'ou :

Trend = InputBox("Look at the graph and Up, Down or OK", "Sales Trend")
If Trend = [B][COLOR=blue]vbNullString[/COLOR][/B] Then
    Exit Sub
Else
    ...

A plus

 

[Michel_ja]

Re : Souci macro: graph & concatenation

Merci beaucoup Soenda ! ça marche comme sur des roulettes !