Discussion :

[bykeman]

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 selectionner vos initiales »

Ensuite, Si la case E14 est remplie, alors la case F14 doit etre remplie, la case L14doit etre <>0 et les cases GHIJK 35 doivent être égales à 1 (et cela pour les lignes 14 à 33)
Si ce n'est pas le cas, 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.

Je suppose qu'il faut utiliser la fonction IF et une boucle...cependant, je suis nu gros débutant...

Merci de m’aider,

Cordialement

[Godzestla]

Salut Bykeman (fan de bike ?)

Bienvenue au forum :

En vitesse ta solution pourrait être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
if Range("D8").value = "" then
  Msgbox.....
 else
  for line = 14 to 33
  If Range("E" & line).value <> "" then
    if Range("F" & line).value = "" or Range("L" & Line).value = 0 Or Range("G" &line).value <> 1 Or Range("H" &line).value <> 1 Or Range("H" &line).value <> 1  Or Range("I" &line).value <> 1 Or Range("J" &line).value <> 1 Or Range("K" &line).value <> 1  then
       Msgbox.....
   endif
 next line
endif

NB : je n'ai pas compris ton 35 après HGIJK, car s'il est juste, ta conbdition ne doit pas etre dans la boucle des lignes 14 à 33

[bykeman]

Merci de ta réponse ( et je suis un ancien fan de bike )

Par contre, ce que je souaites pour les lignes HGIJK, c'est que si la colonne E est remplie, alors au moins une des cellule HGIJK 35 doit être égale à 100%...

Le mieux c'est que je te montre mon tableau.. quel est le moyen le plus simple?

En tout cas, encore merci d'avoir passer un peu de temps sur mon problème

[bykeman]

Après avoir remodelé mon tableau, Je pense ne plus être moin de la 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...)

Si aucnu message d'erreur, la macro enregristre le fichier, sinon, la mcro s'arrete après le message d'erreur
voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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

[fring]

B'jour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Range("j4" ).Value = "" Then 
MsgBox "Veuillez sélectionner vos initiales" 
Exit Sub

[bykeman]

Merci God et Fring, tout marche à la perfection!!!!

Mais j'a une dernière petite question:
J'aimerai que la personne qui ouvre le fichier ai juste accès au tableau (aucune barre d'outils, aucun ccès a la barre de menu etc....) Comment faire?

Merci encore

[Godzestla]

Puis-je te suggérer de cloturer ce post et de faire un nouveau pour ta question

Mais j'a une dernière petite question:
J'aimerai que la personne qui ouvre le fichier ai juste accès au tableau (aucune barre d'outils, aucun ccès a la barre de menu etc....) Comment faire?

Cela rendra plus exploitable la fonction de recherche sur le forum après.

Merci de cloturer ce post-ci par

[fring]

Juste une question avant de proposer une solution, faut-il que l'utilisateur puisse sauvegarder le classeur ? Si oui par quel moyen comptes-tu le faire si plus aucune barre d'outils ? On ferme le classeur comment, par la petite croix ?

[bykeman]

Le fichier sera automatiquement sauvegardé via la précédente macro

[fring]

Tu peux tester ceci :

Codes à insérer dans un module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Cbar As CommandBar
 
Sub Cbar_off()
    For Each Cbar In CommandBars
        Cbar.Enabled = False
    Next
End Sub
 
Sub Cbar_on()
    For Each Cbar In CommandBars
        Cbar.Enabled = True
    Next
End Sub

Codes à insérer dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cbar_on
End Sub
 
Private Sub Workbook_Open()
Cbar_off
End Sub

PS : Godzestla à raison, évite de poser différentes questions dans un même post pour différentes raisons, notamment la réponse peut intéresser d'autres personnes qui ne la trouveront jamais en effectuant une recherche vu que cette question/réponse est noyée dans un autre sujet

[Invité]

Bonjour,

Un exemple (vous pouvez aussi mettre ce code également dans ThisWorkBook avec : Sub WorkBook_Open() )

Ici on utilise une feuille nommée "Menu" qui comprend les boutons par exemple : Lancer le traitement et Quitter et la procédure "Sub Quit_Appli()" est affectée à ce dernier. Elle enregistre le fichier et rétablit les Barres d'outils, de menus etc...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Auto_Open()
CommandBars.ActiveMenuBar.Enabled = False
 
  Dim CmdB As CommandBar
  For Each CmdB In Application.CommandBars
  If CmdB.Type <> msoBarTypeMenuBar Then CmdB.Enabled = False
  Next CmdB
      With Application
    .DisplayFullScreen = True
    .DisplayFormulaBar = False
    .CommandBars("Full Screen").Visible = False
    .DisplayStatusBar = False
   End With
    ActiveWindow.DisplayWorkbookTabs = False
    Application.EnableAutoComplete = False
    ActiveWindow.DisplayHeadings = False
 
Sheets("Menu").Activate
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Quit_Appli()
 
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
 If CmdB.Type <> msoBarTypeMenuBar Then CmdB.Enabled = True
Next CmdB
 
    With Application
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
 
    End With
    Application.DisplayFullScreen = False
    Application.CommandBars("Full Screen").Visible = False
    Application.WindowState = xlMaximized
    CommandBars.ActiveMenuBar.Enabled = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.EnableAutoComplete = True
    ActiveWindow.DisplayHeadings = True
 
Sheets("Menu").Activate
ActiveWorkbook.Save
Application.Quit
End Sub

Remarque : Quelle que soit la façon de procéder, rien n'empêche un utilisateur d'ouvrir le fichier en empêchant le lancement du code.
Il suffit d'ouvrir le fichier en maintenant la touche "Shift" enfoncée.

[bykeman]

Les commandes marchent! J'avais peur que le tout s'applique à l'ensemble des fichiers excel mais en fait c'est bon!

Merci les gens