High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Vba instructions If et EndIf

Dernière réponse le 24 jan 2007 à 22:35:51 jerry24, le 24 jan 2007 à 21:49:45 
 Signaler ce message aux modérateurs

Salut j'ai un petit pb sur un prjet excel. lorsque je compile ca me di ke j'ai un bloc If sans End If ... j'ai beau regarder ms je trouve pas, ca me rend fou aidez moi si vs le pouvez merci bcp :-))

voici le code de la fonction :

Private Sub ajouter_Click()

If marque.alfaRomeo = False And marque.audi = False And marque.bmw = False And marque.citroen = False And marque.ford = False And marque.jaguar = False And marque.lexus = False And marque.mercedes = False And marque.opel = False And marque.peugeot = False And marque.renault = False And marque.toyota = False And marque.volkswagen = False Then
GoTo Erreur
If garantie.garantieOui = False And garantie.garantieNon = False Then GoTo Erreur
If prixbox = 0 Or garantiebox = 0 Then GoTo Erreur
If civilite.monsieur = False And civilite.madame = False And civilite.mademoiselle = False Then GoTo Erreur
If nombox = "" Or prenombox = "" Or adressebox = "" Or cpbox = "" Or villebox = "" Or telbox = "" Then
GoTo Erreur
'definition de la marque
If marque.alfaRomeo Then
Choix = "AlfaRomeo"
ElseIf marque.audi Then
Choix = "Audi"
ElseIf marque.bmw Then
Choix = "BMW"
ElseIf marque.citroen Then
Choix = "Citroen"
ElseIf marque.ford Then
Choix = "Ford"
ElseIf marque.jaguar Then
Choix = "Jaguar"
ElseIf marque.lexus Then
Choix = "Lexus"
ElseIf marque.mercedes Then
Choix = "Mercedes"
ElseIf marque.opel Then
Choix = "Opel"
ElseIf marque.peugeot Then
Choix = "Peugeot"
ElseIf marque.renault Then
Choix = "Renault"
ElseIf marque.toyota Then
Choix = "Toyota"
Else
Choix = "Volkswagen"
End If

If garantiePlus.garantieOui Then
Gar = "Oui"
Else
Gar = "Non"
End If

If civilite.monsieur Then
Civ = "Monsieur"
ElseIf civilite.madame Then
Civ = "Madame"
Else
Civ = "Mademoiselle"
End If


Sheets("SAV").Select
If Range("a2").Value = "" Then
decalage = 0
Range("a2").Select
Else
decalage = 1
Position = Range("A1").End(xlDown).Address
Range(Position).Select
Range("A1").End(xlDown).Select
End If


ActiveCell.Offset(decalage, 0).Range("a1").Select
ActiveCell.Value = Choix
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = MODELE
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = Gar
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = CCur(cout.Value)
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = prixbox
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = garantiebox
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = CCur(cout + garantiebox)
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = Civ
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = UCase(nombox)
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = prenombox
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = adressebox
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = cpbox
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = UCase(villebox)
ActiveCell.Offset(0, 1).Range("a1").Select
ActiveCell.Value = telbox

Sheets("voitures").Select
GoTo fin

Erreur:
Message = MsgBox("Veuillez saisir tous les champs SVP, merci ", vbOKOnly + vbCritical, "Jerem'Concessionnaire")
fin:

End Sub



merci bcp bcp par avance
bonne soiree

jeremy

Configuration: Windows XP
Firefox 2.0.0.1

Meilleures réponses pour « vba instructions If et EndIf » dans :
VBA Un timer une seconde tout simple VoirEn VBA, il n'y a pas (du moins à ma connaissance) de composant Timer. On peut en créer un très facilement. Dans un module de feuille Activer/ dés activer le timer : Placer un bouton sur Feuil1 et mettre le code... Private Sub...
VBA et les collections d'objets. VoirVBA et les collections d'objets Quand plusieurs (beaucoup de) contrôles sont mis sur une feuille ou un Userform il est parfois fastidieux d'écrire du code dans chaque évènement des contrôles. Ce Tuto vous permet de traiter vos contrôles comme...
[VBA] Détection de modification de cellule VoirExemple pour une MFC avec plus de 3 conditions. Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range For Each Cel In Target 'Adapter la/les plages. If Not Intersect(Cel, Range("B1:B30,D1:D30")) Is Nothing...
Langage C - Les structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle ? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non. Ces structures conditionnelles peuvent être associées à des structures qui se répètent...
Langage C++ - Les structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle ? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non. Ces structures conditionnelles peuvent être associées à des structures qui se répètent...
VBScript - Les structures conditionnelles VoirQu'est-ce qu'une structure conditionnelle ? On appelle structure conditionnelle les instructions qui permettent de tester si une condition est vraie ou non, c'est-à-dire si la valeur de son expression vaut 0 ou 1 (VBScript associe le mot clé true à...
Posez votre question Répondre

1

 lami20j, le 24 jan 2007 à 22:35:51
  • +2

Salut,

au lieu de
If nombox = "" Or prenombox = "" Or adressebox = "" Or cpbox = "" Or villebox = "" Or telbox = "" Then
GoTo Erreur

écrit

If nombox = "" _
                 Or prenombox = "" _
                 Or adressebox = "" _
                 Or cpbox = "" _
                 Or villebox = "" _
                 Or telbox = "" Then GoTo Erreur



et au lieu de
If marque.alfaRomeo = False And marque.audi = False And marque.bmw = False And marque.citroen = False And marque.ford = False And marque.jaguar = False And marque.lexus = False And marque.mercedes = False And marque.opel = False And marque.peugeot = False And marque.renault = False And marque.toyota = False And marque.volkswagen = False Then
GoTo Erreur


écrit
If marque.alfaRomeo = False _
                      And marque.audi = False _
                      And marque.bmw = False _
                      And marque.citroen = False _
                      And marque.ford = False _
                      And marque.jaguar = False _
                      And marque.lexus = False _
                      And marque.mercedes = False _
                      And marque.opel = False _
                      And marque.peugeot = False _
                      And marque.renault = False _
                      And marque.toyota = False _
                      And marque.volkswagen = False Then GoTo Erreur
Pour ne pas utiliser End If il faut écrire

If condition Then instruction

sur la même ligne lami20j

   
Répondre à lami20j
Posez votre question Répondre
Ils ont besoin de votre aide