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

SOYA · 15 Janvier 2008

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 · 15 Janvier 2008

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

Bonjour à tous

Voici une macro qui fait ce que tu souhaites

Code:

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 · 15 Janvier 2008

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

Bonjour Soya

regarde peut être la macro ci dessous :

Code:

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 · 15 Janvier 2008

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

Merci beaucoup à vous-deux !

Je m'en vais tester les deux formules.

🙂

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

SOYA

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

SOYA

XLDnaute Occasionnel

Discussions similaires

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

SOYA

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

SOYA

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency