Erreur sur la macro VBA alors que sans VBA la cellule d'Excel donne le bon résultat. Gnack ^^

Version imprimable

Erreur sur la macro VBA alors que sans VBA la cellule d'Excel donne le bon résultat. ** Gnack ^^ **

Bonsoir les ami(e)s (oui il fait nuit au vietnam :) )

j'ai utilisé l'enregistreur de macro (Excel 2013) pour marquer dans une cellule "AE6" une formule, qu'il copie et qu'il va copier en mode valeur sur une autre cellule P2

Hors lorsque j'utilise excell, il n'y a vraiment aucun problème : la cellule m'indique bien ce que je recherche soit : 0,26

Mais ... lorsque je lance la macro ... il me dit ... : *****...***** (j'ai du censurer tellement ce n'est pas agréable à entendre... ahaha)

En gros la macro sur la cellule "AE6" va chercher sur la feuille "JSON", colonne "A:A", où se situe la ligne de cette feuille qui contient les informations "energy_per_min" et extrait l'information de la cellule qu'il trouve

en gros il extrait ca :

Code:

"energy_per_min": 0.26,

la formule me calcule où se situe ":" et me donne le nombre de caractère où se situe l'information (car le nombre 0,26 peut changer ca peut être par exemple 3000 comme 0,1)
de là ... il extrait le reste, calcul le nombre de caractère restant, calcule où est le caractère "," et le déduit, pour enfin avoir le résultat 0,26 qu'il transforme en valeur numérique.

(pouah .. j'espère que ce n'est pas trop compliqué à comprendre :P )

voici la macro tiré de la formule écrite sur la cellule AE6 d'Excel :
Code:

1 2 3 4 5 6 7 8 9 ' Energie / minute Range("AE6").Select ActiveCell.FormulaR1C1 = _ "=NUMBERVALUE(MID((INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1,1)),(FIND("":"",(INDEX(Json!C[-30],##(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1,1)),1))+2,((LEN((INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1,1)))-2)-(FIND("":"",(INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1" & _ ")),""."")" Selection.Copy Range("P2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
j'ai essayé de mettre le code VBA sous balise, mais à priori je n'y arrive pas (excusez moi ^^)

=> je colle en "valeur" sur la cellule P2 car après avoir extrait les infos qui m'intéressent, je supprime la colonne "A:A" de la Feuille "JSON", donc si je marque sur la feuille excel sur la cellule P2 directement la formule, ca m'indique une erreur. :) (forcement :P )

et je supprime la colonne "A:A" pour alléger considérablement le fichier Excel (cette colonne comporte plus de 123 000 ligne sinon... et le fichier excel plusieurs Méga Octets ... )

=> je ne comprends vraiment pas d'où vient le problème, puisque en utilisant excel sans macro... tout fonctionne et il m'indique bien sur la cellule AE6 : 0,26

alors, j'ai fait un test sur la feuille excel :

Feuille JSON ligne (cellule BA3): =EQUIV("*"&"energy_per_min"&"*";Json!A:A;0),
ça m'indique bien la ligne 17 de la feuille JSON colonne A:A
ce qui est correct

Feuille JSON texte (cellule BA4): = (INDEX(Json!A:A;(EQUIV("*"&"energy_per_min"&"*";Json!A:A;0));1;1)),
ça m'indique bien le texte recherché soit : "energy_per_min": 0.26,

Position du caractère *:* (cellule BA7): = (TROUVE(":";BA4;1)),
ça m'indique la valeur correcte : 21

Nombre total de caractère - "," (cellule BA9): = (NBCAR(BA4)-2),
ça m'indique la valeur correcte : 25
(-2 car j'ai à priori des espaces dans la chaine de caractères)

Test final : = VALEURNOMBRE(STXT(BA4;BA7+2;(BA9-BA7));"."),
et là ça m'indique bien en numéraire: 0,26

j'ai remplacé les valeurs des différentes cellules par leurs formules respectives :

Copie ta formule (cellule BA13) : =VALEURNOMBRE(STXT((INDEX(Json!A:A;(EQUIV("*"&"energy_per_min"&"*";Json!A:A;0));1;1));(TROUVE(":";(INDEX(Json!A:A;(EQUIV("*"&"energy_per_min"&"*";Json!A:A;0));1;1));1))+2;((NBCAR((INDEX(Json!A:A;(EQUIV("*"&"energy_per_min"&"*";Json!A:A;0));1;1)))-2)-(TROUVE(":";(INDEX(Json!A:A;(EQUIV("*"&"energy_per_min"&"*";Json!A:A;0));1;1));1))));".")
=> là cela m'indique bien : 0,26

mais lorsque je l'enregistre en macro via l'enregistreur, ça me fait une grosse erreur

même en supprimant le retour de ligne, la macro m'indique une erreur :
Code:

1 2 3 Range("AE6").Select ActiveCell.FormulaR1C1 = _ "=NUMBERVALUE(MID((INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1,1)),(FIND("":"",(INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1,1)),1))+2,((LEN((INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1,1)))-2)-(FIND("":"",(INDEX(Json!C[-30],(MATCH(""*""&""energy_per_min""&""*"",Json!C[-30],0)),1" & ")),""."")"
peut-on faire un truc du genre :
Code:

1 2 3 4 5 6 a = "energy_per_min" (comme ca je peux l'adapter à n'importe quelle recherche) b = EQUIV("*"& a &"*";Json!A:A;0) c = (INDEX(Json!A:A;(EQUIV("*"& a &"*";Json!A:A;0));1;1)) d = (TROUVE(":"; c ;1)) e = (NBCAR( c )-2) f = VALEURNOMBRE(STXT(BA4;BA7+2;(BA9-BA7));".") => VALEURNOMBRE(STXT(c;d+2;(e-d);".")
est-ce possible ?

Par avance merci pour toute l'aide que vous pourrez m'apporter (et je vous souhaite une agréable fin de journée :) )

Bonjour Barba,

Pour mettre le code entre balise il faut cliquer sur le bouton # et mettre le code entre ['CODE] et ['/CODE] (j'ai ajouté un apostrophe)

Sinon écrire des formules en VBA est compliqué, je préfère écrire la valeur en dure et relancer la macro au besoin

voila ce que je te propose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
Dim maFeuil As Worksheet
Dim maCel As Range
    Set maFeuil = ThisWorkbook.Sheets("JSON")
    Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
'Extraire les données dernier ":"
Dim pos2pt As Long
    'InStr = donne la position du caractere ":"
    pos2pt = InStr(maCel.Value, ":")
Dim maVal As String
    'Replace(xxx, ".", ",") = remplace "." par ","
    'Trim = enleve les espaces
    'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
    maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
'renseigne la cellule "AE6"
    maFeuil.Range("AE6").Value = maVal
 
End Sub

Coucou lucas ou gaetan :)

La feuille sur laquelle on doit coller les résultats s'appelle "A"
du coup je change le nom "ma feuil" stp ?

ca là il ne colle rien en P2 du coup (anciennement AE6)

tu le trouves où

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'renseigne la cellule "AE6"
    maFeuil.Range("P2").Value = maVal
 
End Sub

après la suite du code Vba supprime la colonne A de la feuille JSON... mais là rien ne se passe à la cellule P2 de la feuille "A"
Par contre sur la feuille JSON en cellule O2 j'ai cela (alors que j'ai écris "P2" ahaha:
0,26,

en mettant ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'renseigne la cellule "AE6"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal
 
End Sub

j'ai bien sur la feuille "A" et cellule P2 : 0,26,
mais il y a la "," qu'il faudrait supprimer et donner au résultat une valeur numérique stp :)

merci encore pour ton aide :)

29/10/2019, 17h54
MarcelG
Bonsoir,

Beaucoup de choses à dire.

L'enregistreur de macro peut rendre service, à cette condition qu'il faut en épurer le retour de toutes les méthodes Select et autres Activate.
Ce qui permet de rendre le code plus lisible.

D'autre part, à mon avis, il faut éviter les FormulaR1C1 qui sont vite illisibles.
Préférer la méthode Formula.

Pour reporter la formulation d'une cellule dans un code, voici une astuce bien simple:
- Ecrire la formule dans la cellule (exemple en A1), en contrôlant son résultat
- Dans l'éditeur VBE, afficher la fenêtre Exécution (CTRL + G)
- Au sein de celle-ci, écrire

Citation:

?Range("A1").Formula

(ne pas oublier le "?")
puis activer touche Entrée .

On obtient alors une formulation que l'on peut reprendre dans un code.

Cela dit, je rejoins ce qui a été formulé précédemment.
Mieux vaut à mon sens "dérouler" quelques valeurs en VBA pour atteindre un résulta final.

Enfin, pour ne considérer qu'une partie de cellule délimitée par un séparateur, on peut utiliser une variable tableau Split
Code:

1 2 3 4 5 6 7 Dim lachaine As String lachaine = "Valpolicella:Roma" Dim carac As Variant carac = Split(lachaine,":")(0) Debug.Print carac
La fenêtre Exécution retournera "Valpolicella".
Ici l'indice est 0. Avec 1, le résultat aurait été "Roma"

Voilà quelques pistes.

merci Marcel pour tes conseils et ta réponse,

mais j'ai besoin de la première "," mais pas celle à la fin

aurais tu une astuce stp à partir de ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'renseigne la cellule "AE6"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal
 
End Sub

Par contre je ne peux pas garder la formule lié à la feuille JSON puisque la suite du code supprime la colonne A:A pour limiter la taille du fichier excel en question (je gagne 1Mo)

Salut,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Public Sub essai_chaine() Dim lachaine As String lachaine = "marcel:mercatog.philippe.theze.ouskelnor" Dim valch As String valch = Replace(Split(lachaine, ":")(1), ".", ",") Debug.Print valch End Sub
Résultat:

Citation:

mercatog,philippe,theze,ouskelnor

Tu peux consulter
- L'aide Microsoft sur la fonction Split
- La manipulation des chaînes de caractères par SilkyRoad

Ca ne marche pas , j'ai ce code la marcel stp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'renseigne la cellule "AE6"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal
 
End Sub

29/10/2019, 18h30
MarcelG

Salut,

Où réside l'erreur?
Quelle est l'anomalie?

Reporte la cellule de départ et le résultat que tu souhaites.

j'ai essayé d'adapter

mais ca me marque une erreur sur le code à : Valch = replace...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    Dim valch As String
        valch = Replace(Split(maVal, ":")(1), ".", ",")
 
    Debug.Print valch
 
    'renseigne la cellule "P2"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = valch
 
End Sub

j'ai ce code là qui fonctionne presque, sauf qu'il devrait m'enlever la "," à la fin :

avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        'Len(maCel.Value) - pos2pt = le nombre de carateres deriere les ":"
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'renseigne la cellule "P2"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal
 
End Sub

j'obtiens :

0,26,

29/10/2019, 18h44
MarcelG

Si les cellules sont masquées, alors rends les visibles.

------------------------

Tu sembles utiliser 2 process qui mènent au même résultat

Code:

maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")

Code:

valch = Replace(Split(maVal, ":")(1), ".", ",")

----------------

Affiche la fenêtre des variables locales
(Dans VBE, Menu Affichage\Fenêtre variables locales)

Procède à l'exécution du code en pas à pas.

Retourne ce qu'affiche la fenêtre des variables.
---------------------------------

Encore une fois,
Quelle est ta chaîne de départ?
Quel résultat souhaites-tu à partir de celle-ci?

Réponds à ces 2 questions.
29/10/2019, 18h47
Barba
je l'ai indiqué sur le message (le 1er)
les cellules ne sont pas masquée

puisque le résultat 0,26, s'affiche bien en P2

par contre il faudrait qu'il m'enlève la "," à la fin.
et me donne une valeur numérique

mais pour répondre à ta question Marcel , voici ce que je souhaiterais stp :)

peut on faire un truc du genre :
- a = "energy_per_min" (comme ça je peux l'adapter à n'importe quelle recherche)
- b = EQUIV("*"& a &"*";Json!A:A;0)
- c = (INDEX(Json!A:A;(EQUIV("*"& a &"*";Json!A:A;0));1;1))
- d = (TROUVE(":"; c ;1))
- e = (NBCAR( c )-2)
- f = VALEURNOMBRE(STXT(BA4;BA7+2;(BA9-BA7));".") => VALEURNOMBRE(STXT(c;d+2;(e-d);".")
est-ce possible ?

valeur de départ : "*"&"energy_per_min"&"*",
valeur souhaitée : VALEURNOMBRE(STXT(c;d+2;(e-d);".").

(car le résultat change comme je l'ai dis plus haut)

Si l'on souhaite éviter, comme moi, les Len et Right.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Option Explicit Public Sub essai_chaine() Dim lachaine As String lachaine = "0,26," Dim s As Variant Dim lach As String s = Split(lachaine, ",") lach = s(0) & "," & s(1) Debug.Print lach End Sub
Je suis sûr que l'on aurait pu arriver au résultat désiré plus directement.

29/10/2019, 19h04
Barba

1 pièce(s) jointe(s)

voilà un fichier excel contenant l'intégralité de la feuille JSON

sur la feuille A je t'explique le process

il faudrait copier stp en "valeur" (valeur numérique) le résultat sur la cellule P2 de la feuille "A"

car la colonne A de la feuille JSON sera supprimé après (pour un gain de place)

c'est pas exploitable ce que tu me proposes Marcel, car je ne sais pas l'exploiter

j'ai ce code là qui arrive presque au résultat escompté (sauf la "," à la fin)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'renseigne la cellule "P2"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal
 
End Sub

A ce niveau, il faudrait qu'il puisse me calculer le nbre de caractères dans la chaine et qu'il m'en retire un (celui à la fin) :)
Excuse moi Marcel je manque d'expérience, pardonne moi stp :)

Bonjour à tous,

Code:

1
2
    ch = """energy_per_min"": 0.26,"
    Sheets("A").[P2] = CDbl(Split(Split(ch, ":")(1), ",")(0))

eric

bonsoir éric,

le soucis c'est que ca peut être 0,26 ou 3000 ou 220,6

le résultat n'est jamais le même suivant les situations (sinon ca serait bcp trop simple :P )

j'ai essayé ce code là :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub EnergieParMin()
    'trouver la première cellule avec "energy_per_min", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("energy_per_min", LookIn:=xlValues)
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        maVal = Replace(Trim(Right(maCel.Value, Len(maCel.Value) - pos2pt)), ".", ",")
 
    'Calcul le nombre de caractères restant : Len(maVal)
    Dim maVal2 As String
        maVal2 = Left(maVal, Len(maVal) - 1)
 
    'renseigne la cellule "P2"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal2
 
End Sub

y'a surement plus simple... qu'en pensez vous ?

j'ai rajouté ca :

Code:

1
2
3
4
5
6
7
8
9
 
        'Calcul le nombre de caractères restant : Len(maVal)
 
    Dim maVal2 As String
        maVal2 = Left(maVal, Len(maVal) - 1)
 
    'renseigne la cellule "P2"
    Set maFeuil = ThisWorkbook.Sheets("A")
    maFeuil.Range("P2").Value = maVal2

29/10/2019, 19h36
eriiic

Citation:

le soucis c'est que ca peut être 0,26 ou 3000 ou 220,6

Si tu testais avant ?
Et bien sûr remplacer ch par la chaine qui t'intéresse. Je ne pensais pas devoir le dire... ;-)
eric
29/10/2019, 20h24
Barba
Eric peut on mettre des "*" pour des valeurs non défini (genre le 0,26 qui va changer)
Code:

1 2 ch = """energy_per_min"": 0.26," Sheets("A").[P2] = CDbl(Split(Split(ch, ":")(1), ",")(0))
ça pourrait donner ça :
Code:

1 2 ch = "*"&"""energy_per_min""&"*" Sheets("A").[P2] = CDbl(Split(Split(ch, ":")(1), ",")(0))
car si la valeur 0,26 change (et c'est le cas la plupart du temps, b'en la formule va générer une erreur

Autre petit soucis ,

sur ma feuille "JSON" , colonne "A"
j'ai ces valeurs là :

Code:

1
2
3
4
5
6
  "unit_depository_slots": {
    "number": 680,
    "upgrade": {
      "number": 690,
      "mana": 200000,
      "crystal": 50

en suivant le même principe, je lui demande de chercher "unit_deposit"

Code:

1
2
3
4
5
    'trouver la première cellule avec "unit_depository_slots", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("unit_depository_slots", LookIn:=xlValues)

mais comment faire pour qu'il prenne la ligne +1 sur maCel stp ?
car là c'est le
"number": 680,

qui m'intéresse de récupérer comme info

et là le 680 ... :P¨

j'ai essayé avec ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub JSON_Entrepot()
 
    'trouver la première cellule avec "unit_depository_slots", ne fonctionne que si cellule visible
    Dim maFeuil As Worksheet
    Dim maCel As Range
    Dim maCel2 As Range
        Set maFeuil = ThisWorkbook.Sheets("JSON")
        Set maCel = maFeuil.Range("A:A").Find("unit_depository_slots", LookIn:=xlValues)
        maCel2 = (maCel.Row) + 1
 
    'Extraire les données dernier ":"
    Dim pos2pt As Long
        'InStr = donne la position du caractere ":"
        pos2pt = InStr(maCel.Value, ":")
    Dim maVal As String
        'Replace(xxx, ".", ",") = remplace "." par ","
        'Trim = enleve les espaces
        maVal = Replace(Trim(Right(maCel2.Value, Len(maCel2.Value) - pos2pt)), ".", ",")
 
    'Calcul le nombre de caractères restant : Len(maVal)
    Dim maVal2 As String
        maVal2 = Left(maVal, Len(maVal) - 1)
 
    'renseigne la cellule "N4"
    Set maFeuil = ThisWorkbook.Sheets("ANALYSE")
    maFeuil.Range("K4").Value = maVal2
 
End Sub

mais ca me crée une erreur ici :

Code:

1
2
 
        maCel2 = (maCel.Row) + 1

Merci par avance pour ta réponse :)

29/10/2019, 22h58
eriiic

Il me semble que la recherche des cellules energy_per_min* t'a été fournie au début, il faut garder cette partie.
C'est même dans ton code du post #9
eric