Microsoft 365 Format cellule non modifiable

[lolo42340]

Bonsoir,
je n'arrive pas a modifier les cellules L11, L13, L17, L21, L30, L32, L34, et L36 au format identique aux autre cellules de cette colonne!
Peut etre un problème dans les codes VBA, mais je comprend pas tout!
Ou autres chose ...
Merci pour votre aide.
Cordialement

 

[TooFatBoy]

Bonjour,

Si tu regardes dans ta feuille " COTATIONS ACTUALISATION", tu vois que la cellule D10 contient du texte et non un nombre, donc L11 de la feuille "MPP" est aussi du texte.

D'ailleurs on voit qu'il y a un point au lieu d'une virgule, pour séparer partie entière et partie décimale.
Et ça explique pourquoi la multiplication en M11 retourne une erreur.


Je serais tenté de te dire d'essayer ceci :

- sur la feuille "COTATIONS ACTUALISATION", sélectionne toute la colonne D,
- puis <Ctrl>+<H> : remplacer . par ,

- et enfin cliquer sur "Remplacer tout".

 

[soan]

Bonsoir lolo42340, TooFatBoy,

bienvenue sur le site XLD !

ton fichier en retour.

soan

 

[lolo42340]

J'ai bien remplacer . par , dans la colonne D, mais quand je clic sur MAJ, les cellules se transforme de nouveaux au format précédent!

 

[soan]

@lolo42340

les cellules se transforment de nouveau avec le format précédent !

tu verras que ça ne le fait pas avec le fichier de mon post #3 ! ​

soan

 

[lolo42340]

Votre fichier retour fonctionne parfaitement soan ! désolé, je me suis trompé de personne !
Puis je avoir des informations sur ce problème ?
Merci beaucoup pour votre soutient.
Sans votre aide, excel reste compliqué pour moi.

 

[soan]

Votre fichier retour fonctionne parfaitement TooFatBoy !

moi c'est soan, pas TooFatBoy !

 

[TooFatBoy]

J'ai bien remplacer . par , dans la colonne D, mais quand je clic sur MAJ, les cellules se transforme de nouveaux au format précédent!

Évidemment, puisque tu fais un MàJ, ça remet le problème en place, donc si tu ne modifies pas la macro qui fait les MàJ, ça revient...

 

[soan]

@lolo42340

Puis je avoir des informations sur ce problème ?

j'ai un peu modifié le code VBA.

voici ce nouveau code modifié :

Option Explicit

Sub MajCotations()
  On Error Resume Next
  Dim WS As Worksheet, Hobj As Object, URL$, COT, chn$, k%, i%
  Set WS = ThisWorkbook.Worksheets("COTATIONS ACTUALISATION")
  k = WS.Cells(Rows.Count, [REF].Column).End(xlUp).Row
  If k = 1 Then Exit Sub
 
  Application.ScreenUpdating = 0: WS.Range(WS.Cells(2, 4), WS.Cells(k, 4)).Clear
 
  For i = 2 To k
    DoEvents
    ReDim COT(1 To k, 1 To 1)
    COT(1, 1) = WS.Cells(i, [Cotation].Column).Value
    URL = WS.Cells(i, [WWW].Column).Value
    Application.StatusBar = "Mise à jour des cotations en cours …"
    Set Hobj = CreateObject("MSXML2.XMLHTTP")
    With Hobj
      .Open "GET", URL, False: .Send
      If .Status = 200 Then
        chn = Split(Split(.responsetext, _
          "<span class=""c-instrument c-instrument--last"" data-ist-last>")(1), _
          "</span>")(0)
        WS.Cells(i, [Cotation].Column).Value = Val(chn)
      End If
    End With
    Application.StatusBar = False
  Next i
 
End Sub

soan

 

[lolo42340]

moi c'est soan, pas TooFatBoy !

merci soan pour votre fichier retour.
désolé, je me suis trompé de nom.

 

[Phil69970]

Bonjour à tous

J'ai eu un pb similaire que j'ai réglé comme ceci
Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[lolo42340]

Bonjour à tous

J'ai eu un pb similaire que j'ai réglé comme ceci
Je te propose ce fichier

Merci de ton retour

@Phil69970

MERCI CA FONCTIONNE AUSSI.
CORDIALEMENT