Bonjour à tous,
étant débutant dans ce language, je ne vois pas ou se situe mon erreur :
voici le code :
le message est : ...else sans if
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 If CmbstartBloc.SelText = "" Then StartBloc = "'*'" Else StartBloc = CmbstartBloc.SelText Do Until InStr(1, StartBloc, Chr$(32)) = 0 StartBloc = Replace$(StartBloc, " ", "") Loop End If
Merci d'avance
Partager