Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la partie
de texte en gras dans une cellule qui contient du texte normal et du texte
en gras.
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
Jacky
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1.
'-----------------
Sub jj()
Dim y As String, z As String
For i = 1 To Len([a1])
With [a1].Characters(Start:=i, Length:=1).Font
x = Mid([a1], i, 1)
If .FontStyle = "Gras" Then
y = y & x
Else
z = z & x
End If
End With
Next
MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z
End Sub
'--------------
--
Salutations
JJ
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b5287$0$25918$ba4acef3@news.orange.fr...
Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la
partie de texte en gras dans une cellule qui contient du texte normal et
du texte en gras.
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
MichDenis
Dans un module standard, tu copies cette fonction '----------------------- Function ExtraireCelluleEnGras(Rg As Range)
If Rg.Cells.Count <> 1 Then ExtraireCelluleEnGras = "Une Cellule à la fois." Else With Rg S = .Characters.Count For A = 1 To S If .Characters(A, 1).Font.Bold = True Then T = T & .Characters(A, 1).Text End If Next End With ExtraireCelluleEnGras = T End If
End Function '-----------------------
Et dans la cellule désirée : =ExtraireCelluleEnGras(A1)
A1 étant la cellule dont tu veux extraire les lettres en caractère gras.
"Jdel" a écrit dans le message de news: 455b5287$0$25918$ Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Dans un module standard, tu copies cette fonction
'-----------------------
Function ExtraireCelluleEnGras(Rg As Range)
If Rg.Cells.Count <> 1 Then
ExtraireCelluleEnGras = "Une Cellule à la fois."
Else
With Rg
S = .Characters.Count
For A = 1 To S
If .Characters(A, 1).Font.Bold = True Then
T = T & .Characters(A, 1).Text
End If
Next
End With
ExtraireCelluleEnGras = T
End If
End Function
'-----------------------
Et dans la cellule désirée :
=ExtraireCelluleEnGras(A1)
A1 étant la cellule dont tu veux extraire les lettres en caractère gras.
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b5287$0$25918$ba4acef3@news.orange.fr...
Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la partie
de texte en gras dans une cellule qui contient du texte normal et du texte
en gras.
Dans un module standard, tu copies cette fonction '----------------------- Function ExtraireCelluleEnGras(Rg As Range)
If Rg.Cells.Count <> 1 Then ExtraireCelluleEnGras = "Une Cellule à la fois." Else With Rg S = .Characters.Count For A = 1 To S If .Characters(A, 1).Font.Bold = True Then T = T & .Characters(A, 1).Text End If Next End With ExtraireCelluleEnGras = T End If
End Function '-----------------------
Et dans la cellule désirée : =ExtraireCelluleEnGras(A1)
A1 étant la cellule dont tu veux extraire les lettres en caractère gras.
"Jdel" a écrit dans le message de news: 455b5287$0$25918$ Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Jdel
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier dans une autre cellule pour le séparer du reste du contenu de la cellule d'origine. y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" a écrit dans le message de news:
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier
dans une autre cellule pour le séparer du reste du contenu de la cellule
d'origine.
y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" <nospams@not> a écrit dans le message de news:
euwhxVOCHHA.4428@TK2MSFTNGP04.phx.gbl...
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1.
'-----------------
Sub jj()
Dim y As String, z As String
For i = 1 To Len([a1])
With [a1].Characters(Start:=i, Length:=1).Font
x = Mid([a1], i, 1)
If .FontStyle = "Gras" Then
y = y & x
Else
z = z & x
End If
End With
Next
MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z
End Sub
'--------------
--
Salutations
JJ
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b5287$0$25918$ba4acef3@news.orange.fr...
Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la
partie de texte en gras dans une cellule qui contient du texte normal et
du texte en gras.
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier dans une autre cellule pour le séparer du reste du contenu de la cellule d'origine. y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" a écrit dans le message de news:
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Jacky
Re....
y.copy me renvoit une erreur de compilation '--------
[b1]=y '---------- Ou bien mieux, la solution de Denis ;o)) -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b6831$0$5114$
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier dans une autre cellule pour le séparer du reste du contenu de la cellule d'origine. y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" a écrit dans le message de news:
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Re....
y.copy me renvoit une erreur de compilation
'--------
[b1]=y
'----------
Ou bien mieux, la solution de Denis ;o))
--
Salutations
JJ
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b6831$0$5114$ba4acef3@news.orange.fr...
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le
copier dans une autre cellule pour le séparer du reste du contenu de la
cellule d'origine.
y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" <nospams@not> a écrit dans le message de news:
euwhxVOCHHA.4428@TK2MSFTNGP04.phx.gbl...
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1.
'-----------------
Sub jj()
Dim y As String, z As String
For i = 1 To Len([a1])
With [a1].Characters(Start:=i, Length:=1).Font
x = Mid([a1], i, 1)
If .FontStyle = "Gras" Then
y = y & x
Else
z = z & x
End If
End With
Next
MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z
End Sub
'--------------
--
Salutations
JJ
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b5287$0$25918$ba4acef3@news.orange.fr...
Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la
partie de texte en gras dans une cellule qui contient du texte normal et
du texte en gras.
y.copy me renvoit une erreur de compilation '--------
[b1]=y '---------- Ou bien mieux, la solution de Denis ;o)) -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b6831$0$5114$
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier dans une autre cellule pour le séparer du reste du contenu de la cellule d'origine. y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" a écrit dans le message de news:
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Jdel
Oui, je vais passer par une fonction, je peux la mettre dans chaque cellule par une macro. Merci pour tout Jean-Pierre "Jacky" a écrit dans le message de news:
Re....
y.copy me renvoit une erreur de compilation '--------
[b1]=y '---------- Ou bien mieux, la solution de Denis ;o)) -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b6831$0$5114$
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier dans une autre cellule pour le séparer du reste du contenu de la cellule d'origine. y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" a écrit dans le message de news:
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Oui, je vais passer par une fonction, je peux la mettre dans chaque cellule
par une macro.
Merci pour tout
Jean-Pierre
"Jacky" <nospams@not> a écrit dans le message de news:
OoLThvOCHHA.3540@TK2MSFTNGP03.phx.gbl...
Re....
y.copy me renvoit une erreur de compilation
'--------
[b1]=y
'----------
Ou bien mieux, la solution de Denis ;o))
--
Salutations
JJ
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b6831$0$5114$ba4acef3@news.orange.fr...
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le
copier dans une autre cellule pour le séparer du reste du contenu de la
cellule d'origine.
y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" <nospams@not> a écrit dans le message de news:
euwhxVOCHHA.4428@TK2MSFTNGP04.phx.gbl...
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1.
'-----------------
Sub jj()
Dim y As String, z As String
For i = 1 To Len([a1])
With [a1].Characters(Start:=i, Length:=1).Font
x = Mid([a1], i, 1)
If .FontStyle = "Gras" Then
y = y & x
Else
z = z & x
End If
End With
Next
MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z
End Sub
'--------------
--
Salutations
JJ
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b5287$0$25918$ba4acef3@news.orange.fr...
Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la
partie de texte en gras dans une cellule qui contient du texte normal
et du texte en gras.
Oui, je vais passer par une fonction, je peux la mettre dans chaque cellule par une macro. Merci pour tout Jean-Pierre "Jacky" a écrit dans le message de news:
Re....
y.copy me renvoit une erreur de compilation '--------
[b1]=y '---------- Ou bien mieux, la solution de Denis ;o)) -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b6831$0$5114$
Merci, mais j'aimerais pouvoir sélectionner le texte en gras pour le copier dans une autre cellule pour le séparer du reste du contenu de la cellule d'origine. y.copy me renvoit une erreur de compilation (qualificateur incorrect).
"Jacky" a écrit dans le message de news:
Bonsoir,
En Vba, une bidouille du genre le fait pour la cellule A1. '----------------- Sub jj() Dim y As String, z As String For i = 1 To Len([a1]) With [a1].Characters(Start:=i, Length:=1).Font x = Mid([a1], i, 1) If .FontStyle = "Gras" Then y = y & x Else z = z & x End If End With Next MsgBox "En gras : " & y & Chr(10) & "Non gras : " & z End Sub '-------------- -- Salutations JJ
"Jdel" a écrit dans le message de news: 455b5287$0$25918$
Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Jdel
Excellent, merci beaucoup Jean-Pierre "MichDenis" a écrit dans le message de news:
Dans un module standard, tu copies cette fonction '----------------------- Function ExtraireCelluleEnGras(Rg As Range)
If Rg.Cells.Count <> 1 Then ExtraireCelluleEnGras = "Une Cellule à la fois." Else With Rg S = .Characters.Count For A = 1 To S If .Characters(A, 1).Font.Bold = True Then T = T & .Characters(A, 1).Text End If Next End With ExtraireCelluleEnGras = T End If
End Function '-----------------------
Et dans la cellule désirée : =ExtraireCelluleEnGras(A1)
A1 étant la cellule dont tu veux extraire les lettres en caractère gras.
"Jdel" a écrit dans le message de news: 455b5287$0$25918$ Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
Merci de vos réponses
Excellent, merci beaucoup
Jean-Pierre
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OGETBlOCHHA.5068@TK2MSFTNGP02.phx.gbl...
Dans un module standard, tu copies cette fonction
'-----------------------
Function ExtraireCelluleEnGras(Rg As Range)
If Rg.Cells.Count <> 1 Then
ExtraireCelluleEnGras = "Une Cellule à la fois."
Else
With Rg
S = .Characters.Count
For A = 1 To S
If .Characters(A, 1).Font.Bold = True Then
T = T & .Characters(A, 1).Text
End If
Next
End With
ExtraireCelluleEnGras = T
End If
End Function
'-----------------------
Et dans la cellule désirée :
=ExtraireCelluleEnGras(A1)
A1 étant la cellule dont tu veux extraire les lettres en caractère gras.
"Jdel" <jdel5@wanadoo.fr> a écrit dans le message de news:
455b5287$0$25918$ba4acef3@news.orange.fr...
Bonjour,
Je cherche le code miracle permettant de sélectionner (ou copier) la
partie
de texte en gras dans une cellule qui contient du texte normal et du texte
en gras.
Excellent, merci beaucoup Jean-Pierre "MichDenis" a écrit dans le message de news:
Dans un module standard, tu copies cette fonction '----------------------- Function ExtraireCelluleEnGras(Rg As Range)
If Rg.Cells.Count <> 1 Then ExtraireCelluleEnGras = "Une Cellule à la fois." Else With Rg S = .Characters.Count For A = 1 To S If .Characters(A, 1).Font.Bold = True Then T = T & .Characters(A, 1).Text End If Next End With ExtraireCelluleEnGras = T End If
End Function '-----------------------
Et dans la cellule désirée : =ExtraireCelluleEnGras(A1)
A1 étant la cellule dont tu veux extraire les lettres en caractère gras.
"Jdel" a écrit dans le message de news: 455b5287$0$25918$ Bonjour, Je cherche le code miracle permettant de sélectionner (ou copier) la partie de texte en gras dans une cellule qui contient du texte normal et du texte en gras.
