Problème avec un if then else

mat777 · 12/02/2008, 11h30

Bonjour à tous,

étant débutant dans ce language, je ne vois pas ou se situe mon erreur :
voici le code :

Code :

If CmbstartBloc.SelText = "" Then StartBloc = "'*'"
    Else
    StartBloc = CmbstartBloc.SelText
    Do Until InStr(1, StartBloc, Chr$(32)) = 0
    StartBloc = Replace$(StartBloc, " ", "")
    Loop
    End If

le message est : ...else sans if

Merci d'avance

pc75 · 12/02/2008, 13h59

Bonjour,

Si tu mets une instruction sur la même ligne que le then, il ne faut pas de enf if

Code :

 
If CmbstartBloc.SelText = "" Then 
    StartBloc = "'*'"
    Else
    StartBloc = CmbstartBloc.SelText
    Do Until InStr(1, StartBloc, Chr$(32)) = 0
    StartBloc = Replace$(StartBloc, " ", "")
    Loop
    End If

mat777 · 13/02/2008, 09h46

ok merci beaucoup pour la réponse.
A+

12/02/2008, 11h30	#1 (permalink)
mat777 Membre du Club Date d'inscription: novembre 2007 Messages: 87	Problème avec un if then else Bonjour à tous, étant débutant dans ce language, je ne vois pas ou se situe mon erreur : voici le code : Code : If CmbstartBloc.SelText = "" Then StartBloc = "'*'" Else StartBloc = CmbstartBloc.SelText Do Until InStr(1, StartBloc, Chr$(32)) = 0 StartBloc = Replace$(StartBloc, " ", "") Loop End If le message est : ...else sans if Merci d'avance

12/02/2008, 13h59	#2 (permalink)
pc75 Expert Confirmé Sénior Date d'inscription: septembre 2004 Localisation: Paris Âge: 53 Messages: 2 128	Bonjour, Si tu mets une instruction sur la même ligne que le then, il ne faut pas de enf if Code : If CmbstartBloc.SelText = "" Then StartBloc = "'*'" Else StartBloc = CmbstartBloc.SelText Do Until InStr(1, StartBloc, Chr$(32)) = 0 StartBloc = Replace$(StartBloc, " ", "") Loop End If __________________ Par principe, je ne réponds pas aux messages URGENT. Il n'y a pas de choses urgentes, il n'y a que des choses en retard. (un inconnu)

13/02/2008, 09h46	#3 (permalink)
mat777 Membre du Club Date d'inscription: novembre 2007 Messages: 87	ok merci beaucoup pour la réponse. A+

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Général VBA
Problème avec un if then else

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email