Besoin d'un petit code VBA pour déplacer une valeur

[SOYA]

Bonjour !

J'ai un tableau d'environ 2000 lignes, de A5 à J2000.

La colonne F est pleine de valeurs, mais il y en a qui apparaissent en gras de façon aléatoire.

Je voudrais déplacer les valeurs en gras dans la colonne B. Ex : si en F15 ma valeur est en gras, déplace-la en B15, etc.

Avez-vous une idée ?

Avec mes plus sincères remerciements, je vous prie d'agréer, mes bien chers informaticiens, mes meilleures salutations.😀

Soya.

 

[Staple1600]

Re : Besoin d'un petit code VBA pour déplacer une valeur

Bonjour à tous


Voici une macro qui fait ce que tu souhaites

Sub test()
Dim Zone As Range
Dim C As Range
Set Zone = Range("F5:F" & [F65536].End(xlUp).Row)
'ici zone de F5:Fx ou x= dernière cellule de la colonne F
For Each C In Zone
If C.Font.Bold = True Then
C.Copy C.Offset(0, -4)
C.ClearContents
End If
Next C
End Sub

Bonne journée
Staple

edit: Bonjour Pierrot93, c'est plus simple de couper en effet.

 

[Pierrot93]

Re : Besoin d'un petit code VBA pour déplacer une valeur

Bonjour Soya

regarde peut être la macro ci dessous :

Sub test()
Dim c As Range
For Each c In Range("F5:F" & Range("F655356").End(xlUp).Row)
    If c.Font.Bold Then c.Cut c.Offset(0, -4)
Next c
End Sub

bonne soirée
@+

Edition bonjour Stapple

 

[SOYA]

Re : Besoin d'un petit code VBA pour déplacer une valeur

Merci beaucoup à vous-deux !

Je m'en vais tester les deux formules.

🙂