Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Souci macro: graph & concatenation

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Michel_ja
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Michel_ja

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Re : Souci macro: graph & concatenation

Bonjour le fil, Michel_ja

Un égal de trop (peut-être)
Code: 
Compteur
Sheets("Data").Cells(56081, 9) [B][COLOR=red]=[/COLOR][/B] FormulaR1C1 = "=CONCATENATE(RC[-8],"" "",RC[-4],"" "",RC[-3])"
Devrait s'écrire

Code: 
Sheets("Data").Cells(56081, 9)[B][SIZE=3][COLOR=red].[/COLOR][/SIZE][/B]FormulaR1C1 = "=CONCATENATE(RC[-8],"" "",RC[-4],"" "",RC[-3])"
A plus
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Souci macro: graph & concatenation

Re,

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

Si tu appuies sur la croix ou sur "Annuler", l'InputBox renvoie une chaîne vide. D'ou :
Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
606
florian50470
F
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
960
Staple1600
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
954
oguruma
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
975
.jakob@gmail.com
J
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
963
fanfan38
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
  • Question Question
XL 2019 Problème avec WorksheetFunction
Réponses
2
Affichages
1 K
cp4
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
P
  • Question Question
XL 2013 Copie de données à l'aide d'une macro - Souci
Réponses
1
Affichages
928
paita
P
M
  • Question Question
XL 2016 erreur d'exécution
3 4 5
Réponses
68
Affichages
8 K
Etoto0026
P
  • Question Question
XL 2013 Problème lignes vides en sus lors exécution d'une macro _ Resolu
Réponses
0
Affichages
1 K
paita
P
N
  • Résolu(e)
XL 2016 Lenteur à l'insertion de ligne en VBA
Réponses
5
Affichages
3 K
Nicocotte125
N
  • Question Question
Microsoft 365 Modification code vba
Réponses
9
Affichages
1 K
MASSJIPE
P
  • Question Question
XL 2019 Bloc if sans End If
Réponses
3
Affichages
1 K
Pounet95
P
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
P
  • Question Question
XL 2019 Combinaison RechercheV + NB.SI
Réponses
7
Affichages
951
Pieerre69
P
R
  • Question Question
XL 2019 Probleme de code VBA
Réponses
1
Affichages
951
ChTi160
  • Question Question
PROBLEME AVEC UN MACRO
2
Réponses
17
Affichages
2 K
MAHARO
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…