Rapport Bilan Carbone de l'université Paris Diderot.
Rapport Bilan Carbone de l'université Paris Diderot.
Rapport Bilan Carbone de l'université Paris Diderot.
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
mws.Cells(i, col) = Replace(mws.Cells(i, col), "'", " ", 1)<br />
mws.Cells(i, col) = Replace(mws.Cells(i, col), "à", "a", 1)<br />
mws.Cells(i, col) = Replace(mws.Cells(i, col), "ê", "e", 1)<br />
mws.Cells(i, col) = Replace(mws.Cells(i, col), "ë", "e", 1)<br />
Application.DisplayStatusBar = True<br />
Application.StatusBar = "Prétraitement <strong>de</strong>s distances : " & i & "/" &<br />
lastlig & " - " & mws.Cells(i, 34).Value<br />
Next i<br />
Application.StatusBar = False<br />
Application.DisplayStatusBar = oldstatusbar<br />
End Sub<br />
‘Routine pour trouver la première ligne vi<strong>de</strong><br />
Function firstligvi<strong>de</strong>(mws, lig, col)<br />
Dim val As Integer<br />
val = 0<br />
While Not IsEmpty(mws.Cells(lig, col))<br />
val = val + 1<br />
lig = lig + 1<br />
Wend<br />
firstligvi<strong>de</strong> = val<br />
lig = lig - val<br />
End Function<br />
2013 <strong>Rapport</strong> Méthodologique <strong>de</strong> Documentation <strong>de</strong> l’Outil <strong>Bilan</strong> <strong>Carbone</strong> 143
Change language