Discussion :

[joel50]

Bonjour
J'ai créé, avec de l'aide, une macro qui copie la dernière ligne d'un tableau.
Je souhaiterai pouvoir changer la date de la 1er feuille à partir d'une date saisie dans une textbox.
Dans le meilleur des cas, il me rajoute bien le copie de la ligne précédente, mais bloque à la modification de date dans le tableau.
Ci-joint fichier exemple.
Merci de votre aide
Joël

[keygen08]

Bonsoir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ajoutavecdate()
 
Dim a, i As Byte
Dim Dt As Date
Dt = InputBox("Entrer une date")
a = Split("Données;Données2", ";")
For i = 0 To UBound(a)
  With Sheets(a(i)).ListObjects(1).Range
    .Rows(.Rows.Count).Copy .Rows(.Rows.Count + 1)
    .Cells(.Rows.Count + 1, 1) = Dt
  End With
Next i
 
End Sub

[joel50]

Bonsoir
Merci de l'aide
Ça réponds quasiment à mon objectif. Juste que je souhaite pour une question d'organisation et de fiabilité sur mon fichier initial (qui contient 5 feuilles) que la date fasse référence à celles de la première feuille au lieu d'être copiée à partir de la message box.

J'ai tenté à partir du code d'un userform, mais je bloque.
Joël

[Nico Chg]

Bonjour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ajoutavecdate()
 
Dim a, i As Byte
Dim Dt As Date
 
'Modification :
Dt = Worksheets("MaFeuille").Range("A1").value
 
a = Split("Données;Données2", ";")
For i = 0 To UBound(a)
  With Sheets(a(i)).ListObjects(1).Range
    .Rows(.Rows.Count).Copy .Rows(.Rows.Count + 1)
    .Cells(.Rows.Count + 1, 1) = Dt
  End With
Next i
 
End Sub

[joel50]

Bpjour Nico chg
Merci de l'aide

Je ne parviens pas à la faire fonctionner
Sans messagebox ou userform/textbox,je ne peux pas saisir de date.
Si je mets la messagebox en début, il me copie bien la ligne mais sans date.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ajoutavecdate()
 
Dim a, i As Byte
Dim Dt As Date
 Dt = InputBox("Entrer une date")
'Modification :
Dt = Worksheets("Feuil1").Range("A1").Value
 
a = Split("Données;Données2", ";")
For i = 0 To UBound(a)
  With Sheets(a(i)).ListObjects(1).Range
    .Rows(.Rows.Count).Copy .Rows(.Rows.Count + 1)
    .Cells(.Rows.Count + 1, 1) = Dt
  End With
Next i
 
End Sub

Si je la mets en dessous de Dt=Wokrsheets....
Il me copie bien les lignes en bas de chaque tableau mais supprme la formule en première colone de la page Données2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ajoutavecdate()
 
Dim a, i As Byte
Dim Dt As Date
 
'Modification :
Dt = Worksheets("Feuil1").Range("A1").Value
Dt = InputBox("Entrer une date")
a = Split("Données;Données2", ";")
For i = 0 To UBound(a)
  With Sheets(a(i)).ListObjects(1).Range
    .Rows(.Rows.Count).Copy .Rows(.Rows.Count + 1)
    .Cells(.Rows.Count + 1, 1) = Dt
  End With
Next i
 
End Sub

Peut être me suis-je mal exprimé en parlant de macro, ce que j'ai besoin et qui sera réutilisable pour un autre formulaire que je souhaite développer après, c'est le fonctionnement du Userform appelé par le bouton 3 du fichier joint.
Il faudrait que, le code recopie la dernière ligne de chaque tableau (il y en en pour l'instant 5 dans mon classeur de travail), ce qui fonctionne avec la macro que j'ai mis en exemple (1er bouton) et qu'ensuite il transfère la date de la textbox" txtDate en 1ere colonne de la première feuille (données dans l'exemple) sans modifier les 1ere colonnes des feuilles suivante.

Code du userform qui ne fonctionne pas, erreur variable non définie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Explicit
Dim a, i As Byte
 
 
 
Private Sub CmdOk_Click()
 
a = Array("Données", "Données2")
For i = 0 To UBound(a)
 With Sheets(a(i)).ListObjects(1).Range
     .Rows(.Rows.Count).Copy .Rows(.Rows.Count + 1)
  End With
 
 
  With Sheets("Données").ListObjects("Tab_Données")
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Données").ListObjects("Tab_Données").ListRows(1)
    Else
        Set LignTablo = Range("Tab_Données").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
 
 
 
  With LignTablo.Range
    .Cells(1, 1) = CDate(TxtDate)
 
End With
Next
Me.Hide
End Sub

Joël

[Nico Chg]

Peut être me suis-je mal exprimé en parlant de macro, ce que j'ai besoin et qui sera réutilisable pour un autre formulaire que je souhaite développer après, c'est le fonctionnement du Userform appelé par le bouton 3 du fichier joint.
Il faudrait que, le code recopie la dernière ligne de chaque tableau (il y en en pour l'instant 5 dans mon classeur de travail), ce qui fonctionne avec la macro que j'ai mis en exemple (1er bouton) et qu'ensuite il transfère la date de la textbox" txtDate en 1ere colonne de la première feuille (données dans l'exemple) sans modifier les 1ere colonnes des feuilles suivante.

Je n'ouvre pas les Pièces jointes, donc je n'ai pas toutes les pièces pour comprendre ta problématique !

Mais je dois t'avouer que j'ai lu tout en diagonal, j'ai très mal saisi ta problématique, Mea Culpa! Je te propose donc de recommencer, et d'oublier le code que j'ai proposer, qui n'avance à rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ajoutavecdate()
 
Dim a, i As Byte
Dim Dt As Date
 
'Modification :
Dt = InputBox("Entrer une date", , Worksheets("MaFeuille").Range("A1").value)
 
a = Split("Données;Données2", ";")
For i = 0 To UBound(a)
  With Sheets(a(i)).ListObjects(1).Range
    .Rows(.Rows.Count).Copy .Rows(.Rows.Count + 1)
    .Cells(.Rows.Count + 1, 1) = Dt
  End With
Next i
 
End Sub

[Invité]

Bonjour,