Copie et impressiode cellules par rapport à une cellule colorée Résolu/Fermé

Question

Bonjour, 

Je souhaiterais copier et imprimer des cellules par rapport à une cellule colorée. J'ai essayé de développer la macro de la façon suivante mais il me manque des éléments. Je remercie tous ceux qui pourraient m'aider.
Cordialement ;
clévic

Private Sub CommandButton3_Click()
Dim i, n As Interger
'Copier des cellules à gauche des cellules colorées en bleu
For i = 4 To 16
If Cells(i, 2).Interior.ColorIndex = 5 Then
    'Copier les cellules (je ne connais pas la méthode)
    
    'Coller les cellules copiées dans un tableau
    PrintOut Cells("E8:E18")
End Sub
    

Configuration: Windows XP / Chrome 11.0.696.68

f894009 · Answer

Bonjour,

Private Sub CommandButton3_Click()
    Dim i As Integer
    'Copier des cellules à gauche des cellules colorées en bleu
    With Worksheets("feuil1")
        'raz zone de copie
        .Range("E8:E21") = ""
        'init cellule de depart
        lig = 8
        For i = 4 To 16
            If .Cells(i, 2).Interior.ColorIndex = 5 Then
                .Cells(lig, "E") = .Cells(i, "A")
                lig = lig + 1
            End If
        Next i
        'impression
        .Range("E8:E21").PrintOut
    End With
End Sub


Bonne suite

clévic · Answer

Bonsoir f 894009,

Encore une fois un grand merci pour votre réponse qui me satisfait totalement.
La procédure fonctionne à la perfection.
Je vais pouvoir finaliser mon projet.
Cordialement.
clévic

Copie et impressiode cellules par rapport à une cellule colorée

2 réponses

Discussions similaires