[Catégorie modifiée VB6 -> VBA] format cellule avec condition en vba pour excel9 [Résolu]
campagne72
Membre Dernière intervention
4 novembre 2013
- - Dernière réponse :
campagne72
Membre Dernière intervention
4 novembre 2013
- 1 nov. 2011 à 19:36
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
A voir également:
- Vba format cellule
- Format cellule vba - Meilleures réponses
- Changer format cellule vba - Meilleures réponses
- [vba] format de cellules sous excel. ✓ - Forum - Visual Basic
- Ajustement userform vba à cellule feuille excel - Codes sources - Visual Basic / VB.NET (VBA)
- Format cellule TCD ✓ - Forum - Visual Basic 6
- [Catégorie modifiée VB6 -> VBA] type cellule vba ✓ - Forum - Visual Basic 6
- [Catégorie modifiée .Net -> VBA] gestion cellule avec séparateur ✓ - Forum - Visual Basic 6
20/30 réponses
Meilleure réponse
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
merci, je faisais juste le contraire
je cliquais sur code puis je mettais ma macro
vous êtes tous formidable et toujours à l'écoute même des débutants
avec vous j'ai fais un grand pas et vous remercie pour tout
un retraité du 72
PS: peut être que ma macro servira à d'autres
je cliquais sur code puis je mettais ma macro
Dim macellule As Range
For Each macellule In Range("A36:D36, C38:C55, C57:C62, J38:J61")
If macellule.Value - Fix(macellule.Value) = 0 Then
macellule.NumberFormat = "0 ""Kg""" ' Formatage sans virgule
Else
macellule.NumberFormat = "0.000 ""Kg""" ' Formatage avec virgule
End If
Next
vous êtes tous formidable et toujours à l'écoute même des débutants
avec vous j'ai fais un grand pas et vous remercie pour tout
un retraité du 72
PS: peut être que ma macro servira à d'autres
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
139 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Statut
Salut
Note que tu fais du VBA, pas du VB6 --> Catégorie modifiée
Prêtes-y attention la prochaine fois. Merci.
Je ne comprends pas trop ce que tu herches à faire.
Est-ce le formatage des nombres qui te préoccupe ou bien veux-tu insérer des chiffres dans une série de cellules ?
Dans ce dernier cas, quelle est la suite logique de ces chiffres ? ou, en d'autres termes, comment veux-tu que le programme sache quel chiffre insérer ?
Dans le premier cas, puisque les cellules doivent avoir un format différent selon leur contenu, il faut traiter chaque cellule l'une après l'autre.
-1- Enumérer toutes les cellules d'un Range, ici B7:B37
--> For Each-Next ou For-Next
Ce genre de code se trouve dans n'importe quelle source VBA ou dans un grand nombre de question sur le forum.
-2- Mettre en forme les décimales d'une cellule se retrouve facilement en enregistrant une macro pendant que tu fais l'opération manuellement.
-3- Reste le If.
Là, il faut simplement vérifier si le chiffre a des décimales.
Suffit donc de retrancher la valeur entière du chiffre au chiffre lui même et vérifier si le résultat est 0 ou pas, exemple :
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Note que tu fais du VBA, pas du VB6 --> Catégorie modifiée
Prêtes-y attention la prochaine fois. Merci.
Je ne comprends pas trop ce que tu herches à faire.
Est-ce le formatage des nombres qui te préoccupe ou bien veux-tu insérer des chiffres dans une série de cellules ?
Dans ce dernier cas, quelle est la suite logique de ces chiffres ? ou, en d'autres termes, comment veux-tu que le programme sache quel chiffre insérer ?
Dans le premier cas, puisque les cellules doivent avoir un format différent selon leur contenu, il faut traiter chaque cellule l'une après l'autre.
-1- Enumérer toutes les cellules d'un Range, ici B7:B37
--> For Each-Next ou For-Next
Ce genre de code se trouve dans n'importe quelle source VBA ou dans un grand nombre de question sur le forum.
-2- Mettre en forme les décimales d'une cellule se retrouve facilement en enregistrant une macro pendant que tu fais l'opération manuellement.
-3- Reste le If.
Là, il faut simplement vérifier si le chiffre a des décimales.
Suffit donc de retrancher la valeur entière du chiffre au chiffre lui même et vérifier si le résultat est 0 ou pas, exemple :
Dim maValeur As Single
maValeur = Range("B7").Offset(0, i).Value
If maValeur - Fix(maValeur) = 0 Then
' Formatage sans virgule
Else
' Formatage avec virgule
End IfSachant que la variable 'i' sera l'index de la boucle For-Next dont je parle en -1-
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
Bonjour Jack
c'est le formatage des nombres qui m'intéresse
chaques cellules peuvent trés bien avoir un nombre entier ou un nombre avec décimale
et pour l'instant dans ma macro les cellules sont gérée avec 3 décimales avec
Selection.NumberFormat = "0,000\ K\g"
ce qui est trés bien pour les cellules comportant des décimales
mais pour que ma feuille soit plus lisible au lieu de me mettre 3.000 Kg
que je n'ai plus que 3. Kg avec un
Selection.NumberFormat = "0,\ K\g"
engros
si b7 comptient un chiffre entier prendre le format "0.\ K\g"
sinon prendre le format "0,000\ K\g"
et ainsi de suite pour toutes les autres cellules
merci d'avance
c'est le formatage des nombres qui m'intéresse
chaques cellules peuvent trés bien avoir un nombre entier ou un nombre avec décimale
et pour l'instant dans ma macro les cellules sont gérée avec 3 décimales avec
Selection.NumberFormat = "0,000\ K\g"
ce qui est trés bien pour les cellules comportant des décimales
mais pour que ma feuille soit plus lisible au lieu de me mettre 3.000 Kg
que je n'ai plus que 3. Kg avec un
Selection.NumberFormat = "0,\ K\g"
engros
si b7 comptient un chiffre entier prendre le format "0.\ K\g"
sinon prendre le format "0,000\ K\g"
et ainsi de suite pour toutes les autres cellules
merci d'avance
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
re bonjour
mon formatatage n'est pas correct
pour 1.45 a formater j'ai maintenant 0 001 Kg au lieu de 1.450 Kg
ou pour 1.5 " "" "" 0 002 Kg " "1.500 Kg
ou pour 5 " " 0 005 Kg " " 5 Kg
je vous mets la macro
Sub macro01()
Dim maValeur As Single
Range("B7:B10").Select
maValeur = Range("B7").Offset(0, i).Value
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0\ K\g" ' Formatage sans virgule
Else
Selection.NumberFormat = "0,000\ K\g" ' Formatage avec virgule
Range("A7").Select
End If
End Sub
avez-vous une solution
un grand merci pour ta patence
mon formatatage n'est pas correct
pour 1.45 a formater j'ai maintenant 0 001 Kg au lieu de 1.450 Kg
ou pour 1.5 " "" "" 0 002 Kg " "1.500 Kg
ou pour 5 " " 0 005 Kg " " 5 Kg
je vous mets la macro
Sub macro01()
Dim maValeur As Single
Range("B7:B10").Select
maValeur = Range("B7").Offset(0, i).Value
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0\ K\g" ' Formatage sans virgule
Else
Selection.NumberFormat = "0,000\ K\g" ' Formatage avec virgule
Range("A7").Select
End If
End Sub
avez-vous une solution
un grand merci pour ta patence
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Ce sont tes "0" qui ne sont pas bons !
Exemple :
Selection.NumberFormat = "0,000\ K\g" ' Formatage avec virgule
est à transformer ainsi :
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Exemple :
Selection.NumberFormat = "0,000\ K\g" ' Formatage avec virgule
est à transformer ainsi :
Selection.NumberFormat = "#0,#00\ K\g"
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
1) je t'ai montré :
et tu as utilisé :
2 si, malgré cette utilisation, tu as encore un problème chez toi (que je n'ai pas en testant sur ma machine), c'est que tu as un autre problème dans ton code, totalement indépendant du formatage lui-même !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
"#0,#00\ K\g"
et tu as utilisé :
"#,###\ K\g"
2 si, malgré cette utilisation, tu as encore un problème chez toi (que je n'ai pas en testant sur ma machine), c'est que tu as un autre problème dans ton code, totalement indépendant du formatage lui-même !
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
ok
si je prends "#0,#00\ K\g" il me met un 0 puis un espace puis 2éme 0 devant mon chiffre
ex 0 01 Kg
c'est pour cela que j'ai mis que des "#" et mantenant j'ai bien 1 Kg pour les chiffre entier c'est parfait
je te renvois ma macro pour voir dout vient le probléme des arrondis
Sub macro01()
Dim maValeur As Single
Range("B7:B10").Select
maValeur = Range("B7").Offset(0, i).Value
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0,\ K\g" ' Formatage sans virgule
Else
Selection.NumberFormat = "#0,#00\ K\g" ' Formatage avec virgule
Range("A7").Select
End If
End Sub
merci pour tout
si je prends "#0,#00\ K\g" il me met un 0 puis un espace puis 2éme 0 devant mon chiffre
ex 0 01 Kg
c'est pour cela que j'ai mis que des "#" et mantenant j'ai bien 1 Kg pour les chiffre entier c'est parfait
je te renvois ma macro pour voir dout vient le probléme des arrondis
Sub macro01()
Dim maValeur As Single
Range("B7:B10").Select
maValeur = Range("B7").Offset(0, i).Value
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0,\ K\g" ' Formatage sans virgule
Else
Selection.NumberFormat = "#0,#00\ K\g" ' Formatage avec virgule
Range("A7").Select
End If
End Sub
merci pour tout
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Statut
Tu as oublié la boucle définissant le 'i'
Voir le point -1- de ma première réponse.
Lis complètement les réponses qu'on te fait.
De plus, si tu pointes (par la boucle) une cellule avec l'Offset sur 'i' et que tu appliques le formatage à une autre cellule, Selection, ça ne sert à rien.
Il faut comprendre un minimum ce que tu fais : Regarde dans l'aide, fais des tests dans un coin, mais mettre bout à bout du code ne suffira pas.
Voir le point -1- de ma première réponse.
Lis complètement les réponses qu'on te fait.
De plus, si tu pointes (par la boucle) une cellule avec l'Offset sur 'i' et que tu appliques le formatage à une autre cellule, Selection, ça ne sert à rien.
Il faut comprendre un minimum ce que tu fais : Regarde dans l'aide, fais des tests dans un coin, mais mettre bout à bout du code ne suffira pas.
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
- Messages postés
- 14010
- Date d'inscription
- samedi 29 décembre 2001
- Statut
Code qui se trouve dans n'importe quelle source VBA du site, je t'assure. Il suffit de chercher et d'analyser ce qui se passe.
Je t'ai donné les mots clé "For Each-Next" et "For-Next" : as-tu regarder dans l'aide, tester les exemples ?
Je t'ai donné les mots clé "For Each-Next" et "For-Next" : as-tu regarder dans l'aide, tester les exemples ?
Dim i As Integer
For i = 0 To 9
MsgBox Range("B7").Offset(0, i).Adddress & " = " & _
Range("B7").Offset(0, i).Value
Next i - Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
bonjour Jack et merci de m'avoir répondu
je te joints la macro que j'ai modifiée
maintenant il ne reconnait que la cellule b7 et met bien le format cellule suivant le nombre
mais le msgbox vat de "B7" à "C7", "D7"
au lieu de "B7", "B8","B9" etc
a tu une solution
peut-t-on supprimer la msgbox pour que la macro face le changement de format automatiquement
merci pour tout
Sub macro02()
Dim maValeur As Single
Dim i As Integer
maValeur = Range("B7").Offset(0, i).Value
For i = 0 To 31
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0 ""Kg""" ' Formatage sans virgule
Else
Selection.NumberFormat = "0.000 ""Kg""" ' Formatage avec virgule
End If
MsgBox Range("B7").Offset(0, i).Address & " = " & _
Range("B7").Offset(0, i).Value
Next i
'Range("A7").Select
End Sub
je te joints la macro que j'ai modifiée
maintenant il ne reconnait que la cellule b7 et met bien le format cellule suivant le nombre
mais le msgbox vat de "B7" à "C7", "D7"
au lieu de "B7", "B8","B9" etc
a tu une solution
peut-t-on supprimer la msgbox pour que la macro face le changement de format automatiquement
merci pour tout
Sub macro02()
Dim maValeur As Single
Dim i As Integer
maValeur = Range("B7").Offset(0, i).Value
For i = 0 To 31
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0 ""Kg""" ' Formatage sans virgule
Else
Selection.NumberFormat = "0.000 ""Kg""" ' Formatage avec virgule
End If
MsgBox Range("B7").Offset(0, i).Address & " = " & _
Range("B7").Offset(0, i).Value
Next i
'Range("A7").Select
End Sub
- Messages postés
- 94
- Date d'inscription
- vendredi 13 mai 2005
- Statut
Bonjour,
Voilà ce que je te propose:
Pour ton info:
Dans ton code, il fallait insérer
à l'intérieur de ta boucle For i (sinon ton formatage se limite à ton range "B7")
et remplacer Offset(0, i) par Offset(i, 0) pour un traitement par colonne au lieu d'un traitement par ligne.
Cordialement.
Voilà ce que je te propose:
Sub eee()
Dim maValeur As Single
Dim i As Integer
For i = 7 To 38
maValeur = Cells(i, 2).Value
If maValeur - Fix(maValeur) = 0 Then
Cells(i, 2).NumberFormat = "0 ""Kg""" ' Formatage sans virgule
Else
Cells(i, 2).NumberFormat = "0.000 ""Kg""" ' Formatage avec virgule
End If
Next i
End Sub
Pour ton info:
Dans ton code, il fallait insérer
maValeur = Range("B7").Offset(0, i).Value
à l'intérieur de ta boucle For i (sinon ton formatage se limite à ton range "B7")
et remplacer Offset(0, i) par Offset(i, 0) pour un traitement par colonne au lieu d'un traitement par ligne.
Cordialement.
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Construit donc une plage avec la méthode Union (ouvre ton aide en ligne sur ce mot), puis travaille dans une boucle For Each.
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
- Messages postés
- 26
- Date d'inscription
- dimanche 5 février 2012
- Statut
bonjour a tous
voici le code que j'ai écris mais cela ne marche pas
Sub Tester1()
Dim maValeur
For Each maValeur In Range("A36:D36, C38:C55, C57:C62, J38:J61")
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0 ""Kg""" ' Formatage sans virgule
Else
Selection.NumberFormat = "0.000 ""Kg""" ' Formatage avec virgule
'Exit For
End If
Next maValeur
End Sub
avez-vous une solution
merci d'avance
Campagne 72
voici le code que j'ai écris mais cela ne marche pas
Sub Tester1()
Dim maValeur
For Each maValeur In Range("A36:D36, C38:C55, C57:C62, J38:J61")
If maValeur - Fix(maValeur) = 0 Then
Selection.NumberFormat = "0 ""Kg""" ' Formatage sans virgule
Else
Selection.NumberFormat = "0.000 ""Kg""" ' Formatage avec virgule
'Exit For
End If
Next maValeur
End Sub
avez-vous une solution
merci d'avance
Campagne 72
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Mais qu'est-ce que tu "fabriques", à mélanger ainsi les choses !
Voilà le principe :
Et fais comme GG72 et moi-même, s'il te plait ! (codse indenté et prészenté entre balises code).
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Voilà le principe :
Dim macellule As Range
For Each macellule In Range("A36:D36, C38:C55, C57:C62, J38:J61")
If macellule.Value - fix(macellule.Value) = 0 then
....
else
....
end if
Next
Et fais comme GG72 et moi-même, s'il te plait ! (codse indenté et prészenté entre balises code).
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.