A ABDELHAK XLDnaute Occasionnel 12 Mars 2017 #1 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
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 12 Mars 2017 #2 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 Vote positif 0 Vote négatif
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
A ABDELHAK XLDnaute Occasionnel 12 Mars 2017 #3 Bonjour DoubleZero, Merci d'avoir corriger mes lignes de code. J'ai essayé et ça marche 1000 merci'sssss A+ Vote positif 0 Vote négatif
Bonjour DoubleZero, Merci d'avoir corriger mes lignes de code. J'ai essayé et ça marche 1000 merci'sssss A+