Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel extraire et copier groupe de mots en gras dans cellule

extraire et copier groupe de mots en gras dans cellule

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Philippe Noss
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
Avatar
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

Avatar
michdenis
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" a écrit dans le message de news:
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

Avatar
jipaih
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