Mettre sur une même page plusieurs résultats sous VBA

Signaler
Messages postés
9
Date d'inscription
vendredi 3 avril 2009
Statut
Membre
Dernière intervention
13 mai 2009
-
Messages postés
9
Date d'inscription
vendredi 3 avril 2009
Statut
Membre
Dernière intervention
13 mai 2009
-
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.

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
Salut
Solution :
Remplacer
   les résultats sont mis sous forme de tableaux sur des pages excel
par
   les résultats sont mis sous forme de tableaux sur une page excel

Comment veux-tu qu'on réponde à cette question alors qu'il n'y a que toi qui sait comment les données attérissent dans tes feuilles Excel ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
9
Date d'inscription
vendredi 3 avril 2009
Statut
Membre
Dernière intervention
13 mai 2009

je ne peux pas les mettre sur une seule page.

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 :
'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

<!-- / message -->