Everlast03
XLDnaute Occasionnel
Bonjour,
J'ai un problème mais je ne comprends pas d'où il provient.
Pouvez vous m'aider ?
Voici une copie de mon code :
Et la partie qui m'intéresse donc est :
Merci d'avance...
J'ai un problème mais je ne comprends pas d'où il provient.
Pouvez vous m'aider ?
Voici une copie de mon code :
Code:
Dim NbMarqueurs As Integer, NbCapteurs As Integer
Dim IMark As Integer, ICapt As Integer
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 07/05/2010
Dim CellD As String, ICellD As Integer ' Cellule de destination
Dim CellS As String, ICellS As Integer, IcellS0 As Integer ' Cellule source
Dim temp As String
'
' Nombre de marqueurs
'Open "c:\temp\trace.txt" For Output As #1
Sheets("Données Brutes").Select
Range("C152").Select
ActiveCell.FormulaR1C1 = "=MAX(R[-145]C:R[-3]C)/2"
NbMarqueurs = ActiveCell.Value
' Nombre de capteurs
Range("C153").Select
ActiveCell.FormulaR1C1 = "=COUNT(R[-146]C:R[-4]C)/R[-1]C/2"
NbCapteurs = ActiveCell.Value
' Lecture des données
Sheets("Rotor").Select
' Vitesses
Range("D12").Select ' Positionnement sur la première ligne
ICellD = 11: IcellS0 = 6
For IMark = 1 To NbMarqueurs
ICellD = ICellD + 1: CellD = "D" & ICellD
ICellS = IcellS0 + IMark: CellS = "F" & ICellS
For ICapt = 1 To NbCapteurs
Range(CellD).Select
' Print #1, CellD, CellS
' ActiveCell.FormulaR1C1 = "='Données Brutes'!R[2]C[2]"
Debug.Print "='Données Brutes'!" & CellS
temp = "='Données Brutes'!" & CellS
ActiveCell.FormulaR1C1 = temp
ICellD = ICellD + 1: CellD = "D" & ICellD
ICellS = ICellS + NbCapteurs + 1: CellS = "F" & ICellS
Next ICapt
Next IMark
'Close #1
End Sub
Et la partie qui m'intéresse donc est :
Code:
Debug.Print "='Données Brutes'!" & CellS
temp = "='Données Brutes'!" & CellS
ActiveCell.FormulaR1C1 = temp
Merci d'avance...