Copier la note d'une cellule

Question

Bonjour,

en VBA, je lis une feuille et dans certaines condition je copie la cellule en cours de lecture dans une autre feuille

je souhaiterais tout copier à l'identique, valeur, couleurs, format, note...

  Sub Reccouleur() 

Dim Couleur As String

Dim Com As Variant

Dim Ligne As Integer

Dim Somme As Single

Dim Comment As Variant

Application.Calculation = xlCalculationManual

Ligne = 1

  For Each rcell In Sheets("22").Range("B5:M461") 

      If rcell.Interior.Color = Cells(1, 1).Interior.Color Then 

          Somme = rcell.Value 

          Com = rcell.Comment.Text 

          Ligne = Ligne + 1 

        Sheets("Scan").Activate 

        Cells(Ligne, 1) = Somme <------------------------    C'est cela que je voudrai remplacer

        Cells(Ligne, 2) = Com       <------------------------ pour avoir l'identique a la cellule en cours de lecture de la feuille "22"

      End If 

  Next 

Application.Calculation = xlCalculationAutomatic

End Sub

Answer 1

Bonjour,

Essaie :

  For Each rcell In Sheets("22").Range("B5:M461")  
      If rcell.Interior.Color = Cells(1, 1).Interior.Color Then  
          Ligne = Ligne + 1  
          rcell.Copy Sheets("Scan").Cells(Ligne, 1)  
      End If  
  Next  

Pas sûr d'avoir bien compris, cependant.

Cordialement.

Daniel

Answer 2

Merci Daniel

Trop simple ....

Cordialement

Noel