copier une cellule sous condition de cellule colorée

[jeannot68]

bonjour a tous le forum;

Je comprend comment copier une cellule mais comment faire :

si dans ma colonne I la cellule est coloriée alors ca copie la valeur de cette cellule et la colle dans ma colonne N de la meme feuille.

Un grand merci

 

[Nekoty]

Re : copier une cellule sous condition de cellule colorée

Bonjour Jeannot68,

Copier/coller spécial/transposer. Si c'est bien ce que tu veux.

 

[Catrice]

Re : copier une cellule sous condition de cellule colorée

Bonjour,

Voir l'exemple dans le fichier joint.

Sub Test()
With Sheets("Feuil1")
For Each X In .Range("I2:" & .Range("I65536").End(xlUp).Address)
If X.Interior.ColorIndex = 4 Then .Cells(X.Row, 14) = X.Value
Next
End With
End Sub

 

[Nekoty]

Re : copier une cellule sous condition de cellule colorée

Bonjour,

Je n'avais rien compris alors 😛

 

[jeannot68]

Re : copier une cellule sous condition de cellule colorée

merci pour vos réponses rapides. est il possible que ca se fasse automatiquement sans passer par un bouton?

 

[Catrice]

Re : copier une cellule sous condition de cellule colorée

Re,

Automatiquement comment ?

Avec ce code dans Feuil1 :
Private Sub Worksheet_Change(ByVal Target As Range)
Test
End Sub

La macro s'execute à chaque nouvelle saisie dans la feuille.
Il faut rajouter quelques conditions pour eviter de boucler à chaque fois.

Si tu veux que la macro s'execute quand tu passes en vert la cellule, je ne sais pas si c'est possible.

 

[jeannot68]

Re : copier une cellule sous condition de cellule colorée

rebonjour,

est ce que quelqu un sais comment copier coller automatiquement sans passer par un bouton??

 

[Catrice]

Re : copier une cellule sous condition de cellule colorée

Bonjour,

Selon quel évènement ?

 

[jeannot68]

Re : copier une cellule sous condition de cellule colorée

Bonjour a tous

Directement apres avoir coloré la celulle. est ce possible?
merci

 

[jeannot68]

Re : copier une cellule sous condition de cellule colorée

re bonjour
aurais je posé une ptite colle??

 

[Catrice]

Re : copier une cellule sous condition de cellule colorée

Bonjour,

Il n'y a pas d'évènement "coloriage de cellule" (comme par exemple Change ou SelectionChange).
Donc ce n'est pas possible.

Ca l'est peut etre en utilisant les Modules de Classes mais là, je ne suis pas tres compétent.

 

[jeannot68]

Re : copier une cellule sous condition de cellule colorée

bonjour Catrice

Merci de tes réponses. je vais alors contourner le probleme pour arriver a ce que je souhaite.

ou alors est ce que ton bouton on peu le mettre dans la barre de menu???