Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

formule

2 réponses
Avatar
j-marc
Bonjour j'aimerai savoir que si dans une collone j'ai plusieurs totals et que
je met de la couleur sur quelque un est ce possible de recopier dans un autre
collone seulement ceux qui sont en couleur ex:
a d
10
20
30
40
si 10 et 40 sont en couleur les recopiers dans d Merci

2 réponses

Avatar
Daniel.C
Bonjour.
Mets la macro suivante dans un module standard et exécute-la.
Sub test()
dim c as Range
For Each c In Range([A1], [A65536].End(xlUp))
If c.Interior.Color <> RGB(255, 255, 255) Then
c.Offset(, 3) = c
End If
Next c
End Sub
Cordialmeent.
Daniel

Bonjour j'aimerai savoir que si dans une collone j'ai plusieurs totals et que
je met de la couleur sur quelque un est ce possible de recopier dans un autre
collone seulement ceux qui sont en couleur ex:
a d
10
20
30
40
si 10 et 40 sont en couleur les recopiers dans d Merci


Avatar
j-marc
Bonjour Daniel Merci pour ta réponse mais je ne suis pas trop a l'aise avec
les macro j'ai essayer et je n'y arrive pas est ce que tu connais une formule
plus simple Merci de ton temps

"Daniel.C" wrote:

Bonjour.
Mets la macro suivante dans un module standard et exécute-la.
Sub test()
dim c as Range
For Each c In Range([A1], [A65536].End(xlUp))
If c.Interior.Color <> RGB(255, 255, 255) Then
c.Offset(, 3) = c
End If
Next c
End Sub
Cordialmeent.
Daniel

> Bonjour j'aimerai savoir que si dans une collone j'ai plusieurs totals et que
> je met de la couleur sur quelque un est ce possible de recopier dans un autre
> collone seulement ceux qui sont en couleur ex:
> a d
> 10
> 20
> 30
> 40
> si 10 et 40 sont en couleur les recopiers dans d Merci