Copier des cellules selectionnées dans une nouvelle feuille
bonjour,
je suis debutant sur VBA et j'aimerais pouvoir envoyer mes cellules selectionner sur une nouvelle feuille puis imprimer cette derniere
voici un bout de mon programme:
Private Sub CommandButton1_Click()
a = 12
While Cells(a, 2) <> ""
a = a + 1
Wend
b = a - 13
' le -13(-12 -1) vien du fait que l'on commence a la ligne 12, une boucle do..while aurai permis de mettre seulement -12
Cells(3, 3) = b
' b est donc le nombre correspondant aux nombres de machines est instructions a effectuer
x = Cells(4, 3)
' x est la variable correspondant au choix de la semaine
's = Cells(5, 3)
's et le caractère indiquant a quel equipe correspond les differentes taches(M,S ou N)
's est pas necessaire car possibilité de tout imprimer en 1 click
For c = 12 To a - 1
If Cells(c, x + 12) = 0 Or Cells(c, x + 12) = 1 Then
'x+12 car les semaine commence a patir de la colone 12
If Cells(c, 3) = m Or Cells(c, 3) <> BackColor = RGB(255, 255, 255) Then
'affichage feuille2
Cells(c, 3) =
End If
If Cells(c, 3) = s Or Cells(c, 3) <> BackColor = RGB(255, 255, 255) Then
'affichage feuille 3
Cells(c, 3) = Worksheets("Feuil5").Range("a1")
End If
If Cells(c, 3) = n Or Cells(c, 3) <> BackColor = RGB(255, 255, 255) Then
'affichage feuille4
Cells(c, 3) = Worksheets("Feuil6").Range("a1")
End If
End If
Next
'faire une fonction qui supprime les 3 feuille precedente pour ne pas imprimer des inctruction en plus
'For i = 2 To 4
' .PrintOut Sheets(i) 'imprime les feuilles du matin du soir et de la nuit
' Next i
End Sub