copier des cellules selectionnées dans une nouvelle feuille

Y compris Power BI, Power Query et toute autre question en lien avec Excel
M
Moutss
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 18 décembre 2018
Version d'Excel : 2010FR

Message par Moutss » 18 décembre 2018, 09:46

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message