Formater des chiffres

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'612
Appréciations reçues : 160
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 23 mai 2019, 17:35

Bonjour pedrosummer,

Merci pour ton retour, :)
J'ai une dernière question, j'ai un autre onglet quasi similaire mais pour le coup, là, je voudrais uniquement appliquer ce traitement sur les colonnes C,D et G (donc pas un range continu de colonnes).

Sais-tu comment je dois modifier le code pour qu'il fonctionne avec cette nouvelle contrainte?
Un essai:
Sub Bouton1_Cliquer()

 Dim c As Range, plage1 As Range, plage2 As Range
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
  With Sheets("Sheet1")
   Set plage1 = .Range("C3:D" & .UsedRange.Rows.Count + 1)
   Set plage2 = .Range("G3:G" & .UsedRange.Rows.Count + 1)
   
    For Each c In Range(plage1, plage2)
     c.Value = Val(c.Value)
     c.NumberFormat = "0.00"
    Next c
  End With
 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
End Sub
Test-5.xlsm
(136.43 Kio) Téléchargé 3 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
p
pedrosummer
Membre habitué
Membre habitué
Messages : 82
Inscrit le : 13 septembre 2016
Version d'Excel : 2016

Message par pedrosummer » 24 mai 2019, 11:43

merci, c'est parfait tout fonctionne

un énorme merci c'est top

bonne journée :)
p
pedrosummer
Membre habitué
Membre habitué
Messages : 82
Inscrit le : 13 septembre 2016
Version d'Excel : 2016

Message par pedrosummer » 24 mai 2019, 12:10

Rectification, cela me scrapp quand même le format des colonnes E et G alors que je veux les laisser sur le format initial :( HELPPPPPP :mrgreen: :mrgreen: :mrgreen:
Avatar du membre
xorsankukai
Membre impliqué
Membre impliqué
Messages : 1'612
Appréciations reçues : 160
Inscrit le : 7 octobre 2014
Version d'Excel : 2010 FR

Message par xorsankukai » 24 mai 2019, 18:48

Bonjour pedrosummer,
Rectification, cela me scrapp quand même le format des colonnes E et G alors que je veux les laisser sur le format initial :(
Oups ! J'e n'avais pas fait attention, :...:
je voudrais uniquement appliquer ce traitement sur les colonnes C,D et G
Un nouvel essai.... ;;)
Sub Bouton1_Cliquer()

 Dim c As Range, plage As Range, plage1 As Range, plage2 As Range
 
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual
  With Sheets("Sheet1")
   Set plage1 = .Range("C3:D" & .UsedRange.Rows.Count + 1)
   Set plage2 = .Range("G3:G" & .UsedRange.Rows.Count + 1)
   Set plage = Union(plage1, plage2)
    For Each c In plage
     c.Value = Val(c.Value)
     c.NumberFormat = "0.00"
    Next c
  End With
 Application.ScreenUpdating = True
 Application.Calculation = xlCalculationAutomatic
End Sub
Test-6.xlsm
(135.15 Kio) Téléchargé 1 fois
Cordialement,
xorsankukai

La connaissance, c’est partager le savoir qui nous fait grandir.
p
pedrosummer
Membre habitué
Membre habitué
Messages : 82
Inscrit le : 13 septembre 2016
Version d'Excel : 2016

Message par pedrosummer » 27 mai 2019, 15:26

Merci encore une fois, c'est parfait cela fonctionne bien

Merci et très bonne journée
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message