VBA Fonction IF

Version imprimable

29/05/2008, 15h26
bykeman

VBA Fonction IF

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 :D

Salut Bykeman (fan de bike ?)

Bienvenue au forum :

En vitesse ta solution pourrait être :

Code:

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 :?

29/05/2008, 17h03
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 :)

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:

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

B'jour,

Code:

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

;)

30/05/2008, 11h44
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:D
30/05/2008, 11h56
Godzestla

:salut:

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

Citation:

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 :resolu:
30/05/2008, 11h57
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 ?
30/05/2008, 12h02
bykeman

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

Tu peux tester ceci :

Codes à insérer dans un module standard
Code:

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:

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 ;)

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:

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:

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.

30/05/2008, 13h59
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 :king: