Discussion :

[sebing]

Bonjour,

Je voudrais que lorsque j'ouvre un classeur, un tableau se met à jour tous seul en inserant des nouvelles données.

Je m'explique, le tableau contient 2 lignes:
une ligne avec des dates et une avec des données.

Comment faire pour dire tu récuperes les données sur feuil1 cellule A1 et tu le mets feuil2 à la suite des données existantes du tableau?

Je vous en remercie par avance

[Gorfael]

Salut sebing

le tableau contient 2 lignes: une ligne avec des dates et une avec des données.

Quelles lignes ?

Comment faire pour dire tu récuperes les données sur feuil1 cellule A1 et tu le mets feuil2 à la suite des données existantes du tableau?

Macro à coller dans le module ThisWorkBook

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
Private Sub Workbook_Open()
'déclaration ===================
Dim Col As Integer
'Traitement =====================
With Sheets("Feuil2")
    Col = .Columns.Count
    'nb de colonnes max dans Feuil2
    If .Cells(1, Col).End(xlToLeft).Column + 1 >= Col Then
    'si on est à l'avant dernière colonne de la feuille
        MsgBox "Capacité colonne dépassée", vbCritical + vbOKOnly, "ERREUR"
        Exit Sub
        'message d'erreur et sortie
    End If
    Col = .Cells(1, Col).End(xlToLeft).Column
    'col : dernière colonne non,-vide en ligne 1
    If Not (IsEmpty(.Cells(1, Col))) Then Col = Col + 1
    'pour éliminer la première fois (colonne A à remplir, sibon col=col+1
    Sheets("Feuil1").[A1].Copy .Cells(2, Col)
    'copier A1 de Feuil1 dans la 1re colonne vide en ligne 1 de Feuil2
    .Cells(1, Col) = Date
    'mettre la date en ligne 1
    Sheets("Feuil1").[A1].ClearContents
    'effacer A1 de Feuil1
End With
End Sub

A+