Changement d'unité
Résolu/Fermé
messin57000
Messages postés
67
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
9 décembre 2013
-
11 oct. 2013 à 11:28
messin57000 Messages postés 67 Date d'inscription lundi 2 septembre 2013 Statut Membre Dernière intervention 9 décembre 2013 - 15 oct. 2013 à 08:54
messin57000 Messages postés 67 Date d'inscription lundi 2 septembre 2013 Statut Membre Dernière intervention 9 décembre 2013 - 15 oct. 2013 à 08:54
A voir également:
- Changement d'unité
- Changement d'écriture - Guide
- Changement dns - Guide
- Changement clavier azerty - Guide
- Changement carte graphique - Guide
- Fréquence du processeur unité - Guide
5 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
13 oct. 2013 à 16:09
13 oct. 2013 à 16:09
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+
messin57000
Messages postés
67
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
9 décembre 2013
14 oct. 2013 à 09:27
14 oct. 2013 à 09:27
Bonjour Lermite222 ,
oui c'est exactement cela...
Merci
A+
mess57000
oui c'est exactement cela...
Merci
A+
mess57000
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
14 oct. 2013 à 11:38
14 oct. 2013 à 11:38
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+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
14 oct. 2013 à 12:08
14 oct. 2013 à 12:08
J'ai peut-être une autre idée pour optimiser.
Toutes les formules en W doivent-elles êtres changée en Kw ou bien uniquement P1,P2 et P3
Dans certaine lignes il y a plus de trois valeurs en W ?
Tu dis.
Toutes les formules en W doivent-elles êtres changée en Kw ou bien uniquement P1,P2 et P3
Dans certaine lignes il y a plus de trois valeurs en W ?
Tu dis.
messin57000
Messages postés
67
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
9 décembre 2013
14 oct. 2013 à 14:41
14 oct. 2013 à 14:41
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
messin57000
Messages postés
67
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
9 décembre 2013
14 oct. 2013 à 11:49
14 oct. 2013 à 11:49
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
14 oct. 2013 à 17:13
14 oct. 2013 à 17:13
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+
messin57000
Messages postés
67
Date d'inscription
lundi 2 septembre 2013
Statut
Membre
Dernière intervention
9 décembre 2013
15 oct. 2013 à 08:54
15 oct. 2013 à 08:54
Je te remerci beaucoup^cela marche parfaitement bien
