Bonjour à tous,
 
Voilà, j’aimerai développer , dans un de mes tableau excel, une macro, associée à un bouton :
 
Si la case D8 est remplie, c’est parfait, on passe à la condition suivante
Sinon, message d’erreur « veuillez selectionnr vos initiales »
 
Ensuite, Si la case E14 est remplie, alors la case F14 doit est remplie, la case L14doit etre <>0 et les cases GHIJK 35 doivent être égales à 1 (et cela pour les lignes 14 à 33)
Sinon, message d’erreur « veuillez vérifier vos activités et vos entrées temps »
Par contre, si la case E14 n’est pas remplie, alors la case F14 est vide et la case L14 doit être =0
 
Si tout est vérifié, la macro enregistre le fichier et ferme le classeur.
 
Merci de m’aider,
 
Cordialement

Faudrais un topic tutorial sur les macros
 
parceque la c'est basic de chez basic ...

Je sais Mais je suis un véritable débutant...

http://excel.developpez.com/cours/

Merci pour le lien!!!
 
Je pense avoir trouvé une solution! Par contre, comment faire arreter la macro automatiquement après l'affichage d'un message d'erreur? (je voudrai un équivalent du "stop" qui se trouve sous ma première msgbox, car ce stop ne fonctionne pas, et la macro me lance le débogeur a chaque fois...)
 
voici mon code:
 
Sub Envoyer_click()
 
If Range("j4" ).Value = "" Then
MsgBox "Veuillez sélectionner vos initiales"
Stop
Else
  For Line = 10 To 29
        If Range("k" & Line).Value <> "" Then
            If Range("l" & Line).Value = "" Then
            MsgBox "Veuillez vérifier vos thèmes"
             
                ElseIf Range("r" & Line).Value = 0 Then
                MsgBox "Veuillez vérifier vos entrées temps"
                 
                    ElseIf Range("m31" ) <> 1 Or Range("n31" ) <> 1 Or Range("o31" ) <> 1 Or Range("p31" ) <> 1 Or Range("q31" ) <> 1 Then
                    MsgBox "Veuillez vérifier vos entrées temps"
                     
            End If
        End If
         
   
 Next Line
 
ActiveWorkbook.saveas Filename:=Range("c1" ) & "\DT" & Range("u5" ) & ".xls"
 
End If
 
 
End Sub

salut,
 
par exemple avec un goto fin, voir code
 
Sub Envoyer_click()
 
If Range("j4" ).Value = "" Then
MsgBox "Veuillez sélectionner vos initiales"
goto fin
Else
  For Line = 10 To 29
        If Range("k" & Line).Value <> "" Then
            If Range("l" & Line).Value = "" Then
            MsgBox "Veuillez vérifier vos thèmes"
            goto fin
                ElseIf Range("r" & Line).Value = 0 Then
                MsgBox "Veuillez vérifier vos entrées temps"
                goto fin
                    ElseIf Range("m31" ) <> 1 Or Range("n31" ) <> 1 Or Range("o31" ) <> 1 Or Range("p31" ) <> 1 Or Range("q31" ) <> 1 Then
                    MsgBox "Veuillez vérifier vos entrées temps"
                    goto fin
            End If
        End If
         
   
 Next Line
 
ActiveWorkbook.saveas Filename:=Range("c1" ) & "\DT" & Range("u5" ) & ".xls"
 
End If
fin:
 
End Sub
[/quotemsg]