Mettre sur une même page plusieurs résultats sous VBA
cs_audrey76
Messages postés9Date d'inscriptionvendredi 3 avril 2009StatutMembreDernière intervention13 mai 2009
-
9 avril 2009 à 16:29
cs_audrey76
Messages postés9Date d'inscriptionvendredi 3 avril 2009StatutMembreDernière intervention13 mai 2009
-
9 avril 2009 à 17:00
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.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 9 avril 2009 à 16:48
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)
cs_audrey76
Messages postés9Date d'inscriptionvendredi 3 avril 2009StatutMembreDernière intervention13 mai 2009 9 avril 2009 à 17:00
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