XL 2010 Aide code VBA

[ludo170967]

Bonoir,
j'ai rajouté une condition dans le code de mon userform1 mais il bloque


Private Sub CommandButton1_Click()
'double click bouton ajouter
If Madate.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Date'"
If Produits.Value = " élingue" Then
MsgBox "Veuillez noter le numéro de l'élingue"
Else
Dim Ligne As Integer
If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
With Sheets("Mouvements de stock")
Ligne = .Range("A65000").End(xlUp).Row + 1
.Cells(Ligne, 1) = Véhicule.Value
.Cells(Ligne, 2) = Madate.Value
.Cells(Ligne, 3) = Zone.Value
.Cells(Ligne, 4) = Produits.Value
.Cells(Ligne, 5) = Sortie.Value
End With
Unload Interface
Interface.Show
End If
End If
End Sub

Merci

 

[Compte Supprimé 979]

Bonjour

Les tests ce font avec If.... Then... Else.... End IF

Il manque un End If dans ton code et mieux vaut l'écrire ainsi

Private Sub CommandButton1_Click()
  'double click bouton ajouter
  If Madate.Value = "" Then
    MsgBox "Veuillez renseigner le champs 'Date'"
    Exit Sub
  End If
  If Produits.Value = " élingue" Then
    MsgBox "Veuillez noter le numéro de l'élingue"
    Exit Sub
  End If
  Dim Ligne As Integer
  If MsgBox("confirmez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbNo Then Exit Sub
  With Sheets("Mouvements de stock")
    Ligne = .Range("A65000").End(xlUp).Row + 1
    .Cells(Ligne, 1) = Véhicule.Value
    .Cells(Ligne, 2) = Madate.Value
    .Cells(Ligne, 3) = Zone.Value
    .Cells(Ligne, 4) = Produits.Value
    .Cells(Ligne, 5) = Sortie.Value
  End With
  Unload Interface
  Interface.Show
End Sub

@+

 

[ludo170967]

Bonjour BrunoM45,
J'ai rectifié le code mais je n'ai pas de message si je choisis dans le bande déroulante des produits (élingue).
J'aimerai avoir le message ne pas oublier de mettre le N° de l'élingue.
Ludo

 

[ludo170967]

Re,
j'avais en erreur dans le code j'avais mis un espace entre " et élingue.
" élingue" au lieu de "élingue"
Merci Bruno
Ludo