Discussion :

[audrey76]

bonjour à tous.

jaurais besoin d'un petit coup de main.

je vous explique mon problème.
je suis donc sous VBA.
je réalise une mesure, les résultats sont mis sous forme de tableaux sur des pages excel.

je souhaiterais effectuer plusieurs mesures. et je désirerais que les résultats s'affichent sur les mêmes pages.

ai-je été clair?
quelqu'un aurait il une idée.

merci d'avance.

[Krovax]

La faudrait un morceau de code parce que oui j'ai une idée, je passe même mon temps a mettre différente colonne sur une seule page. Mais ca risque de ne pas t'aller
montre nous comment tu met tes résultats sur une feuille et on verra comment le mettre à la suite d'une feuille qui a déjà des valeurs

[audrey76]

le code est un peu compliqué.
pour chaque tension appliquée, je mesure 3 choses différentes. jai donc 3 colonnes.

les mesures sont réalisées à partir d'un oscilloscope. une feuille correspond à une mesure de tension.
ensuite le programme attend 10 minutes et refais les mesures.
donc je souhaiterais mettre dans la même feuille les mesures correspondant à la même tension.

voici le code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 'Transfert sur Excel
    For i = LBound(cha, 2) To limite Step 1
      Data.Cells(i + 6, 1).value = cha(1, i)
      Data.Cells(i + 6, 2).value = cha(2, i)
    Next i
    For i = LBound(chb, 2) To limite Step 1
      Data.Cells(i + 6, 3).value = chb(2, i)
    Next i
    If Fgeneral.Chk_lockin Then
        Data.Range("C2").FormulaR1C1 = valeurx
        Data.Range("C4").FormulaR1C1 = valeury
        End If
    If Fgeneral.Obtn_EGG Then
        Data.Range("A2").FormulaR1C1 = ampli / 1000
        Data.Range("B5").FormulaR1C1 = freq / 1000
    Else
        Data.Range("A2").FormulaR1C1 = ampli * pont * 1000
        Data.Range("B5").FormulaR1C1 = freq
    End If
    Data.Range("D5").FormulaR1C1 = temp
    If kepco Then
        Data.Range("A4").FormulaR1C1 = "Oui"
    Else
        Data.Range("A4").FormulaR1C1 = "Non"
    End If
 
    'Calcul
    Call Sheetcalc(nom, limite)
 
    'Redémarrage du calcul automatique
    Application.Calculation = xlCalculationAutomatic
 
    Data.Range("A7:E" & limite + 6 & ",C2,C4,B2,B4,I3,I5,J3,J5").NumberFormat = "0.00"" ""E+#"
    Data.Range("D2,D4").NumberFormat = "0"
    Data.Range("D5").NumberFormat = "0.0"
 
    'Création éventuelle des graphiques
    If Fgeneral.Chk_oscillo Then Call Graphoscillo(nom, limite)
    If Fgeneral.Chk_xy Then Call Graphxy(nom, limite)
 
    'Ajout des données dans la feuille bilan
    recap.Range("A" & compteur + 2).FormulaR1C1 = nom
    recap.Range("B" & compteur + 2).FormulaR1C1 = "='" & nom & "'!R4C2"
    recap.Range("C" & compteur + 2).FormulaR1C1 = "='" & nom & "'!R2C2"
    recap.Range("D" & compteur + 2).FormulaR1C1 = "='" & nom & "'!R2C4"
    If Fgeneral.Chk_lockin.value Then
        recap.Range("E" & compteur + 2).FormulaR1C1 = "=('" & nom & "'!R4C4)*('" & nom & "'!R4C2)*('" & nom & "'!R5C8)"
        recap.Range("F" & compteur + 2).FormulaR1C1 = "='" & nom & "'!R4C4"
        recap.Range("G" & compteur + 2).FormulaR1C1 = "='" & nom & "'!R5C4"
    Else
        recap.Range("E" & compteur + 2).FormulaR1C1 = "='" & nom & "'!R5C4"
    End If
    compteur = compteur + 1