Discussion :

[wade-doak]

Bonjour,

J'aimerais réaliser une copie de donnée d'un tableau à un autre. Mon problème est qu'on me donne plus de 16000 données (une données toutes les deux secondes et je veux en récupérer une toutes les 30 secondes).

J'ai fait du VBA il y a longtemps et je suis un peu rouillé. J n'ai pas trouver de bon cours est ce que vous pourriez m'en proposer un?

Sinon j'ai commencer à essayer de programmer quelques lgnes de codes mais je n'arriive pas à trouver les commandes pour choisir une feuilles sous excel sélectionner une ligne de valeur et la copier dans une autre feuille excel. Pour cela j'ai choisi de faire une boucle Do while.

Data est la feuille ou je veux faire ma sélection de données toutes les 30 secondes et Sheet3 la feuille ou je veux mettre la sélection des résultats.

Bien sur ca marche pas. Je pense que dans l'esprit s'est bon pas dans le codage

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
1 Sub copy()
2 Dim i As Integer
3 Dim n As Integer
4 n = 1
5 i = 32
6    Do While i < 16384  
8        Sheets("Data").Rows(i).Select
9        Selection.copy
10       Sheets("Sheet3").Select
11       ActiveWindow.SmallScroll Down:=-12
12       Sheets("Sheet3").Rows(n).Select
13       ActiveSheet.Paste
14       Rows(n + 1).Select
15       i = i + 30
16       n = n + 1        
17    Loop
18 End Sub

Merci d'avance

[tirex28]

Bonjour,

Evite de sélectionner les objets:

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
Sub copy1()
    Dim i As Integer
    Dim n As Integer
    Dim Data As Worksheet
    Dim Result As Worksheet
    n = 1
    i = 32
    Set Data = Worksheets("Data")
    Set Result = Worksheets("Sheet3")
    Do While i < 16384
       Result.Rows(n).Value = Data.Rows(i).Value
       i = i + 30
       n = n + 1
    Loop
End Sub

Cordialement,

Tirex28/

[DarkVader]

Bonjour,

J'aimerais réaliser une copie de donnée d'un tableau à un autre. Mon problème est qu'on me donne plus de 16000 données (une données toutes les deux secondes et je veux en récupérer une toutes les 30 secondes).
.../...

Comment les données sont-elles entrées toutes les 2 sec. dans le tableau 1 ?
Manuellement ?
Programme serveur ?
DDE ?

J'imagine que le but est de réaliser un tableau en temps réel des données filtrées (1 donnée/15) ?

[wade-doak]

Les donnees sont recuperees par un ordi qui enregistre des donnees de l emission de gaz sur un landfill.

Je pense avoir trouve une solution qui fonctionne

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
 
1  freq = Application.InputBox(Prompt:="please enter the frequency of your selection in sec", Type:=1)
2  If freq = False Then
3     Exit Sub   
4  ElseIf freq = "" Then
5     Exit Sub
6  Else
7  i = 32
8  r = 2
9  Worksheets("Sheet3").Cells.Clear
10     For n = 1 To 15
11         Worksheets("Sheet3").Cells(1, n).Value = Worksheets("Data").Cells(31, n).Value
12     Next
13     Do While i < 16384
14         For n = 1 To 15
15             Worksheets("Sheet3").Cells(r, n).Value = Worksheets("Data").Cells(i, n).Value
16         Next
17         i = i + (freq / 2)
18         r = r + 1
19     Loop
20 End If

J'ai pris soin de bien tout declarer et je crois que ca fonctionne plutot pas mal.
Par contre je sais pas si s'est tres efficace. Vu qu'il y a bc de donnees est ce que ca va pas etre trop long (dsl pour les accents j ai un qwerty)?
Merci de votre aide.