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

Résolu/Fermé

clévic - 13 juin 2013 à 20:56
clévic Messages postés 4 Date d'inscription lundi 27 mai 2013 Statut Membre Dernière intervention 14 juin 2013 - 14 juin 2013 à 23:22

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

A voir également:

Copie et impressiode cellules par rapport à une cellule colorée
Aller à la ligne dans une cellule excel - Guide
Excel additionner des cellules - Guide
Copie cachée - Guide
Verrouiller cellule excel - Guide
Mise en forme conditionnelle excel par rapport à une autre cellule - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 juin 2013 à 08:53

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

Réponse 2 / 2

clévic Messages postés 4 Date d'inscription lundi 27 mai 2013 Statut Membre Dernière intervention 14 juin 2013
14 juin 2013 à 23:22

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

Discussions similaires

lien copié

Excel si cellule contient texte alors...

Comment retrouver des lien copier sur sont téléphone

Excel : colorer une cellule sous condition d'une autre ?

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters