Sub execute()
Application.Run ThisWorkbook.Name & "!Formattxt"
Application.Run ThisWorkbook.Name & "!Fusiondi40diref41chorus"
Application.Run ThisWorkbook.Name & "!SupDoublon"
Application.Run ThisWorkbook.Name & "!Import"
Application.Run ThisWorkbook.Name & "!RemplacerNA"
Application.Run ThisWorkbook.Name & "!ComparaisonType"
Application.Run ThisWorkbook.Name & "!ComparaisonCardinalite"
Application.Run ThisWorkbook.Name & "!ComparaisonSegAcceuil"
Application.Run ThisWorkbook.Name & "!ComparaisonNumOrdre"
Application.Run ThisWorkbook.Name & "!ComparaisonNbOccu"
Application.Run ThisWorkbook.Name & "!CouleurRougeFalse"
End Sub
Sub execute()
Formattxt
Fusiondi40diref41chorus
SupDoublon
Import
RemplacerNA
ComparaisonType
ComparaisonCardinalite
ComparaisonSegAcceuil
ComparaisonNumOrdre
ComparaisonNbOccu
CouleurRougeFalse
End Sub
Public bExe As Boolean
Sub execute()
Application.Run ThisWorkbook.Name & "!Formattxt"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!Fusiondi40diref41chorus"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!SupDoublon"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!Import"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!RemplacerNA"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!ComparaisonType"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!ComparaisonCardinalite"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!ComparaisonSegAcceuil"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!ComparaisonNumOrdre"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!ComparaisonNbOccu"
If bExe Then bExe = Not bExe: Application.Run ThisWorkbook.Name & "!CouleurRougeFalse"
End Sub
bExe = True
Public Pret As Boolean
Sub execute()
Dim lance As Boolean
Pret = False
lance = False
Formattxt ' appel macro
While lance = False
If Pret = True Then
lance = True
Fusiondi40diref41chorus ' appel macro
End If
Wend
Pret = False
lance = False
While lance = False
If Pret = True Then
lance = True
SupDoublon ' appel macro
End If
Wend
Pret = False
lance = False
While lance = False
If Pret = True Then
lance = True
Import ' appel macro
End If
Wend
Pret = False
lance = False
' et ainsi de suite pour les autres appels macro
' RemplacerNA
' ComparaisonType
' ComparaisonCardinalite
' ComparaisonSegAcceuil
' ComparaisonNumOrdre
' ComparaisonNbOccu
' CouleurRougeFalse
End Sub