CORRIGER UNE LIGNE DE CODE AVEC IF...THEN

[ABDELHAK]

Rebonjour,



J’essaye désespérément d’écrire une ligne de code « IF..THEN » mais sans succès.

Voici ce que j’aimerais transformer en 1 ligne de code

Si (« C111«) est une cellule à fond vert alors couper/coller (« C111«) vers (« C109«)

et si (« C111«) est une cellule sans remplissage ne rien faire.

Ci-dessous la ligne de code que j’ai écrit mais cela ne fonctionne pas.

Pouvez-vous corriger S.V.P.

If Cells(« C111«).Interior.ColorIndex = 4 Then Cells (« C111«).cut (« C109«)

Merci d’avance

ABDELHAK

 

[DoubleZero]

Bonjour, ABDELHAK, le Forum,

Comme ceci ?

Option Explicit
Sub Couper_coller_si_couleur_4()
With Range("c111")
If .Interior.ColorIndex = 4 Then .Cut Range("c109")
End With
End Sub

A bientôt

 

[ABDELHAK]

Bonjour DoubleZero,
Merci d'avoir corriger mes lignes de code.
J'ai essayé et ça marche
1000 merci'sssss
A+