extraire et copier groupe de mots en gras dans cellule

Le
jipaih
bonjour
dans un tableau, comment extraire d'une cellule et copier dans une
cellule voisine les phrases ou mots en caractères gras, si cela est
posible ? (couper-coller, je ne veux pas les garder dans la cellule
source)
merci

--
Enlever NonNon dans l'adresse pour réponse directe. Merci
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Philippe Noss
Le #3047411
Bonsoir
en VBA
Sub copieGras()
For Each c In Selection

For i = 0 To c.Characters.Count
If c.Characters(i, 1).Font.FontStyle = "Gras" Then _
mavaleur = mavaleur & c.Characters(i, 1).Text
Next

c.Offset(0, 1) = mavaleur
mavaleur = ""
Next

End Sub

http://nossphil.perso.cegetel.net/exoutils.html
jipaih
Le #3011911
Philippe Noss a formulé la demande :
Bonsoir
en VBA
Sub copieGras()
For Each c In Selection

For i = 0 To c.Characters.Count
If c.Characters(i, 1).Font.FontStyle = "Gras" Then _
mavaleur = mavaleur & c.Characters(i, 1).Text
Next

c.Offset(0, 1) = mavaleur
mavaleur = ""
Next

End Sub

http://nossphil.perso.cegetel.net/exoutils.html
Merci,

ça fonctionne, oui et non :
-il y a un "c" devant ce qui est copié dans la cellule voisine
-c'est copié et non coupé
que faudrait-il modifier ?
merci d'avance

--
Enlever NonNon dans l'adresse pour réponse directe. Merci

michdenis
Le #3011541
Bonjour jipaih,

Modifie ceci dans la procédure :

For i = 0 To c.Characters.Count

Pour

For i = 1 To c.Characters.Count


Salutations!





"jipaih" Philippe Noss a formulé la demande :
Bonsoir
en VBA
Sub copieGras()
For Each c In Selection

For i = 0 To c.Characters.Count
If c.Characters(i, 1).Font.FontStyle = "Gras" Then _
mavaleur = mavaleur & c.Characters(i, 1).Text
Next

c.Offset(0, 1) = mavaleur
mavaleur = ""
Next

End Sub

http://nossphil.perso.cegetel.net/exoutils.html
Merci,

ça fonctionne, oui et non :
-il y a un "c" devant ce qui est copié dans la cellule voisine
-c'est copié et non coupé
que faudrait-il modifier ?
merci d'avance

--
Enlever NonNon dans l'adresse pour réponse directe. Merci

jipaih
Le #3008681
Bonjour jipaih,

Modifie ceci dans la procédure :

For i = 0 To c.Characters.Count

Pour

For i = 1 To c.Characters.Count


Salutations!

Merci, je teste lundi (au boulot).

A+

--
Enlever NonNon dans l'adresse pour réponse directe. Merci

Poster une réponse
Anonyme