Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Joel
Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Bonsoir,
Sub FormatCondi()
Dim i As Integer
Dim NbC As Integer
NbC = 0
For i = 1 To Len(Range("A1"))
If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then
NbC = NbC + 1
End If
Next
Select Case NbC
Case 7
Range("A1").Interior.ColorIndex = 3
Case 9
Range("A1").Interior.ColorIndex = 4
Case Else
Range("A1").Interior.ColorIndex = 2
End Select
End Sub
bon week-end
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Stéphane" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08aa01c4a23e$67010a50$a501280a@phx.gbl...
Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux
formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la
cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve
pas .
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Joel
correctif (mais tout le monde l'avait vu,
="0" <="9"
;-)
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Joel" a écrit dans le message de news:415429d8$0$728$
Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
correctif (mais tout le monde l'avait vu,
="0"
<="9"
;-)
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:415429d8$0$728$8fcfb975@news.wanadoo.fr...
Bonsoir,
Sub FormatCondi()
Dim i As Integer
Dim NbC As Integer
NbC = 0
For i = 1 To Len(Range("A1"))
If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then
NbC = NbC + 1
End If
Next
Select Case NbC
Case 7
Range("A1").Interior.ColorIndex = 3
Case 9
Range("A1").Interior.ColorIndex = 4
Case Else
Range("A1").Interior.ColorIndex = 2
End Select
End Sub
bon week-end
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Stéphane" <anonymous@discussions.microsoft.com> a écrit dans le message
de
Joël GARBE www.joelgarbe.fr "Joel" a écrit dans le message de news:415429d8$0$728$
Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Jacky
Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx Condition 2 =NBCAR(A1) puis format yy
Salutations JJ
"Stéphane" a écrit dans le message de news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx
Condition 2 =NBCAR(A1) puis format yy
Salutations
JJ
"Stéphane" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08aa01c4a23e$67010a50$a501280a@phx.gbl...
Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux
formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la
cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve
pas .
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx Condition 2 =NBCAR(A1) puis format yy
Salutations JJ
"Stéphane" a écrit dans le message de news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Merci pour la solution
Mais je souhaiterais savoir comment faire si à la place de mettre les cellules en coulour je veux introduire des caractères (virgule point, etc...) entre les chiffres.
Existe-t-il une macro qui permette que le format s'exécute automatiquement lorsque je quitte la cellule en question.
Merci d'avance pour la précieuse aide.
-----Message d'origine----- Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then
NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
.
Merci pour la solution
Mais je souhaiterais savoir comment faire si à la place de
mettre les cellules en coulour je veux introduire des
caractères (virgule point, etc...) entre les chiffres.
Existe-t-il une macro qui permette que le format s'exécute
automatiquement lorsque je quitte la cellule en question.
Merci d'avance pour la précieuse aide.
-----Message d'origine-----
Bonsoir,
Sub FormatCondi()
Dim i As Integer
Dim NbC As Integer
NbC = 0
For i = 1 To Len(Range("A1"))
If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"),
i, 1) < "9" Then
NbC = NbC + 1
End If
Next
Select Case NbC
Case 7
Range("A1").Interior.ColorIndex = 3
Case 9
Range("A1").Interior.ColorIndex = 4
Case Else
Range("A1").Interior.ColorIndex = 2
End Select
End Sub
bon week-end
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Stéphane" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Mais je souhaiterais savoir comment faire si à la place de mettre les cellules en coulour je veux introduire des caractères (virgule point, etc...) entre les chiffres.
Existe-t-il une macro qui permette que le format s'exécute automatiquement lorsque je quitte la cellule en question.
Merci d'avance pour la précieuse aide.
-----Message d'origine----- Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then
NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
.
C'est tout simple, il suffisait d'y penser
Merci beaucoup
-----Message d'origine----- Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx Condition 2 =NBCAR(A1) puis format yy
Salutations JJ
"Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
.
C'est tout simple, il suffisait d'y penser
Merci beaucoup
-----Message d'origine-----
Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle
suffit.
Condition 1 =NBCAR(A1)=9 puis format xx
Condition 2 =NBCAR(A1)=12 puis format yy
Salutations
JJ
"Stéphane" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx Condition 2 =NBCAR(A1) puis format yy
Salutations JJ
"Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
.
Joel
Coucou!
évidemment, si on commence à faire des suppositions sur la structure des caractères !!! LOL
Bon week-end !
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Jacky" a écrit dans le message de news:%
Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx Condition 2 =NBCAR(A1) puis format yy
Salutations JJ
"Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Coucou!
évidemment, si on commence à faire des suppositions sur la structure des
caractères !!! LOL
Bon week-end !
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Jacky" <Jackydelaenlevezjusquici.jaeg@wanadoo.fr> a écrit dans le message
de news:%23Tx35SkoEHA.2764@TK2MSFTNGP11.phx.gbl...
Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx
Condition 2 =NBCAR(A1) puis format yy
Salutations
JJ
"Stéphane" <anonymous@discussions.microsoft.com> a écrit dans le message
de
évidemment, si on commence à faire des suppositions sur la structure des caractères !!! LOL
Bon week-end !
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Jacky" a écrit dans le message de news:%
Bonsoir Stéphane
Pas besoin de macro, la mise en forme conditionnelle suffit.
Condition 1 =NBCAR(A1)=9 puis format xx Condition 2 =NBCAR(A1) puis format yy
Salutations JJ
"Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
Jacky
Re.. Si les chiffres sont entrés sous cette forme, 3611111 ceci devrait convenir(VBA): Chiffre en A10, réponse en A1 '--------- If Len([a10]) = 7 Then [a1] = Left([a10], 2) & "'" & Mid([a10], 3, 3) & "/" & Right([a10], 2) If Len([a10]) = 9 Then [a1] = Left([a10], 2) & "'" & Mid([a10], 3, 3) & "/" & Mid([a10], 6, 2) & "'" & Right([a10], 2) '----------- Salutations JJ
a écrit dans le message de news:246a01c4a24a$b45a6880$ Merci pour la solution
Mais je souhaiterais savoir comment faire si à la place de mettre les cellules en coulour je veux introduire des caractères (virgule point, etc...) entre les chiffres.
Existe-t-il une macro qui permette que le format s'exécute automatiquement lorsque je quitte la cellule en question.
Merci d'avance pour la précieuse aide.
-----Message d'origine----- Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then
NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
Merci pour votre aide
.
Re..
Si les chiffres sont entrés sous cette forme, 3611111 ceci devrait
convenir(VBA):
Chiffre en A10, réponse en A1
'---------
If Len([a10]) = 7 Then [a1] = Left([a10], 2) & "'" & Mid([a10], 3, 3) & "/"
& Right([a10], 2)
If Len([a10]) = 9 Then [a1] = Left([a10], 2) & "'" & Mid([a10], 3, 3) & "/"
& Mid([a10], 6, 2) & "'" & Right([a10], 2)
'-----------
Salutations
JJ
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:246a01c4a24a$b45a6880$a401280a@phx.gbl...
Merci pour la solution
Mais je souhaiterais savoir comment faire si à la place de
mettre les cellules en coulour je veux introduire des
caractères (virgule point, etc...) entre les chiffres.
Existe-t-il une macro qui permette que le format s'exécute
automatiquement lorsque je quitte la cellule en question.
Merci d'avance pour la précieuse aide.
-----Message d'origine-----
Bonsoir,
Sub FormatCondi()
Dim i As Integer
Dim NbC As Integer
NbC = 0
For i = 1 To Len(Range("A1"))
If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"),
i, 1) < "9" Then
NbC = NbC + 1
End If
Next
Select Case NbC
Case 7
Range("A1").Interior.ColorIndex = 3
Case 9
Range("A1").Interior.ColorIndex = 4
Case Else
Range("A1").Interior.ColorIndex = 2
End Select
End Sub
bon week-end
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Stéphane" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Re.. Si les chiffres sont entrés sous cette forme, 3611111 ceci devrait convenir(VBA): Chiffre en A10, réponse en A1 '--------- If Len([a10]) = 7 Then [a1] = Left([a10], 2) & "'" & Mid([a10], 3, 3) & "/" & Right([a10], 2) If Len([a10]) = 9 Then [a1] = Left([a10], 2) & "'" & Mid([a10], 3, 3) & "/" & Mid([a10], 6, 2) & "'" & Right([a10], 2) '----------- Salutations JJ
a écrit dans le message de news:246a01c4a24a$b45a6880$ Merci pour la solution
Mais je souhaiterais savoir comment faire si à la place de mettre les cellules en coulour je veux introduire des caractères (virgule point, etc...) entre les chiffres.
Existe-t-il une macro qui permette que le format s'exécute automatiquement lorsque je quitte la cellule en question.
Merci d'avance pour la précieuse aide.
-----Message d'origine----- Bonsoir,
Sub FormatCondi() Dim i As Integer Dim NbC As Integer NbC = 0 For i = 1 To Len(Range("A1")) If Mid(Range("A1"), i, 1) > "0" And Mid(Range("A1"), i, 1) < "9" Then
NbC = NbC + 1 End If Next Select Case NbC Case 7 Range("A1").Interior.ColorIndex = 3 Case 9 Range("A1").Interior.ColorIndex = 4 Case Else Range("A1").Interior.ColorIndex = 2 End Select End Sub
bon week-end
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Stéphane" a écrit dans le message de
news:08aa01c4a23e$67010a50$ Bonjour,
Je souhaiterais savoir si c'est possible d'avoir deux formats pour une même cellule.
Par exemple s'il y a 7 chiffres = 36'111/11 et si la cellule en à 9 = 36'111/11'11.
Il y a surement une macro qui existe mais je ne la trouve pas .
