Changement d'unité
Résolu
messin57000
Messages postés
67
Date d'inscription
Statut
Membre
Dernière intervention
-
messin57000 Messages postés 67 Date d'inscription Statut Membre Dernière intervention -
messin57000 Messages postés 67 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Changement d'unité
- Changement dns - Guide
- Changement d'écriture facebook - Guide
- Changement d'heure - Guide
- Changement clavier azerty - Guide
- Changement carte graphique - Guide
5 réponses
Bonjour,
Si j'ai compris ? , tu veux modifier les formules qui calcule Px en les divisant par 1000
par exemple la formule..
A+
Si j'ai compris ? , tu veux modifier les formules qui calcule Px en les divisant par 1000
par exemple la formule..
=2,30581707968367*N342 ^ 6 + -14,1565086199193*N342 ^ 5 + 73,5858102308732*N342 ^ 4 + -160,411830244295*N342 ^ 3 + 132,156931837631*N342 ^ 2deviendrait ...
=(2,30581707968367*N342 ^ 6 + -14,1565086199193*N342 ^ 5 + 73,5858102308732*N342 ^ 4 + -160,411830244295*N342 ^ 3 + 132,156931837631*N342 ^ 2 ) /1000Tu dis,
A+
Un exemple pour la ligne 342...
A adapter.
A+
Public Sub Div1000()J'ai prévu de modifier l'affichage des décimales.
Dim TB, i As Integer
Dim S As String
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'A compléter avec toutes les cellules à modifier
TB = Array("E342", "I342", "K342", "L342") '....
With Sheets("BLACK-BOOK")
For i = 0 To UBound(TB)
S = Range(TB(i)).FormulaLocal
'Vérifier si la formule n'est pas déjà actualisée
If Mid(S, 2, 1) <> "(" Then
Range(TB(i)).FormulaLocal = "=(" & Mid(S, 2) & ")/1000"
'Ajouter des zéros si plus de décimales
Range(TB(i)).NumberFormat = "0.00"
End If
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub
A adapter.
A+
Alors moi c'est juste la ligne 434 qui m'interesse et qui doit etre en KW et c'est uniquement le P0,P1,P2. oui dans certaine ligne il y'a plus de trois valeurs en W mais ces lignes ne m'interesse pas, de ce fichier c'est juste la ligne 434 qui minteresse et qui va être copier coller dans une autre base .
A+
Messin
A+
Messin
Ahh c'est génial, merci beaucoup pour ton aide, je vais essayer d'adapter la macro à la ligne qui m'interesse, et merci pour l'anticipation par rapport au décimale ca me fait economiser beaucoup de temps.
Merci beaucoup encore une fois d'avoir pris le temps de repondre à mon problème.
Messin57000
Merci beaucoup encore une fois d'avoir pris le temps de repondre à mon problème.
Messin57000
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Peut-être avec ce code adapter ?
Si cela te convient oublie pas de mettre le topic en résolu.
A+
Public Sub Div1000_V2()
Dim TB, i As Integer
Dim S As String
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'A compléter avec toutes les cellules à modifier
'les numéros de colonnes
TB = Array(7, 8, 9, 13, 14, 15, 19, 20, 21, 25, 26, 27, 31, 32, 33, 37, 38, 39, 43, 44, 45, 49, 50, 51) '....
With Sheets("BLACK-BOOK")
For i = 0 To UBound(TB)
S = Cells(434, TB(i)).FormulaLocal
'S = Range(TB(i)).FormulaLocal
'Vérifier si la formule n'est pas déjà actualisée
If Mid(S, 2, 1) <> "(" Then
Cells(434, TB(i)).FormulaLocal = "=(" & Mid(S, 2) & ")/1000"
'Ajouter des zéros si plus de décimales
Cells(434, TB(i)).NumberFormat = "0.00"
'Changer l'unité renseignée en titre
S = Cells(434, TB(i)).Offset(-1, 0)
Cells(434, TB(i)).Offset(-1, 0) = Left(S, Len(S) - 3) & "(Kw)"
End If
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub
Si cela te convient oublie pas de mettre le topic en résolu.
A+