Discussion :

[lahyo]

Bonjour,

Je souhaite copier coller certaines plage de cellule d'un spreadsheet à plsieurs feuille de récap. Cela devrai s'effectuer lorsqu'on clique sur "Valider"

1) Problème: mon code ne fonctionne pas... Il ne reconnait pas la plage! voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Validate_Click()
Dim DerLig As Long
 
 
DerLig = Sheets("Jour P1").Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1 'Récupère la dernière ligne remplie
  If DerLig < 4 Then DerLig = 4 'Si inféreur à 4 alors applique 4
     Sheets("Jour P1").Cells(DerLig, 1) = EnrgJour.Datejour.Value 'Récupère la date de la textbox et place en colonne A ligne variable
     Sheets("Jour P1").Cells(DerLig, 2) = EnrgJour.Spreadsheet1.range("B1") 'Récupère la valeur de B1 et place en colonne B ligne variable
     EnrgJour.Spreadsheet1.range("C1:L1").Copy Destination:=Sheets("Jour P1").Cells(DerLig, 3)
  End Sub

C'est ma derniere phrase qui bloque!

2) De plus, je voudrai appliquer ce code à toutes mes feuilles pour pouvoir mettre les valeurs du spreadsheet dans chacune des feuilles de récap (Jour P1,P2,P3,P4). Pour mieux comprendre j'ai mis un prototype de mon projet en pièce jointe. Voici les manip à faire: Cliquer sur feuille journalière, choisir un date, remplir le tableau et valider.

3) Je ne sais pas si c'est trop demandé: mais ca serait vraiment génial si toutes les données de chaques tableaux soient dans l'ordre chronologique: Comme cela les valeurs pourront être classées du plus vieux aux plus récentes.

Encore merci pour votre aide.