Copie et impressiode cellules par rapport à une cellule colorée
Résolu
clévic
-
clévic Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
clévic Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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 cellule couleur si condition texte - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Copie cachée - Guide
- Proteger cellule excel - Guide
2 réponses
Bonjour,
Bonne suite
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