Bonjour,

Voilà je viens (il y a trois jours) de découvrir les macros. On me demande d'en faire une qui identifie un groupe de mot et le retrancrit dans une autres colonne sous un nom défini. J'ai donc une formule du type cherche dans une fonction si pour chaque cas. Ce qui donne 43 macros. Maintenant il faut que j'en fasse une qui me gère les autres.
Le but est de vérifier chaque macro l'une aprés l'autre et dés qu'une donne une information vrai, je sort de la macro.

Voilà un exemple des 43 macro

Sub Macro1()
'
'
ActiveCell.FormulaR1C1 = "=IF(SEARCH(""bolt"",RC[-2])>0,""BOLT"","""")"
'
End Sub

et voilà celle que j'ai fait qui doit incrémanter les autres.

Sub Macro60()
'
On Error GoTo errorHandler
Macro1
If ActiveCell.Value = CVar(Bold) Then GoTo fin
End If
Macro2
If ActiveCell.Value = CVar(RING) Then
End If


errorHandler:
MsgBox Err.Number & vbLf & Err.Description

End Sub
fin: Exit Sub


J'ai essayé plusieur façons de conditionner la sortie avec "then" mais il me toujours l'erreur "erreur de compilation End If sans bloc If". La seule façon que le programme passe est de laisser then tout seul, mais il ne me sert à rien.

Si quelqu'un peut m'aider, je lui en serai trés reconnaissante. En espérant être assez claire.

Merci

Configuration: Windows XP
Internet Explorer 6.0