Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

CORRIGER UNE LIGNE DE CODE AVEC IF...THEN

ABDELHAK

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour, ABDELHAK, le Forum,

Comme ceci ?
VB:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…