Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment sommer sous VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nonno
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Nonno

XLDnaute Nouveau
Bonjour à tous,

Je cherche à écrire une condition sous VBA avant de fermer mon fichier. Je voudrai que ma macro me calcule automatique la somme des cellule Y à AJ de la ligne sélectionnée et que si la somme est égale à 0 il me met un message d'erreur. Seulement je n'arrive pas bien à m'y prendre... Pouvez-vous m'aider svp ? Merci
Ci-dessous le code :


Private Sub Workbook_BeforeClose(Cancel As Boolean)

For Each cell In Workbooks("Classeur 1").Sheets(1).Column(C)
If cell.Value = "PERM" Then
If Column(I) = 0 Then MsgBox ("Honoraire à 0 pour le candidat")
If Colomn(X) = "" Then MsgBox ("Mentionner Facturé/Potentiel pour le candidat")
If SUM("Y:AJ)=0 then msgbox ("Pas de donnée sur le détail par mois pour le candidat")
Next cell

End Sub


Merci

Nono
 
Trier par date Trier par votes
Re : Comment sommer sous VBA

A essayer.

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets(1)
For i = 1 to .[c65000].end(xlup).Row
If .Cells(i, 3).Value = "PERM" Then
If .Cells(i, "i") = 0 Then MsgBox "Honoraire à 0 pour le candidat"
If .Cells(i, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat"
If WorksheetFunction.Sum(.Range(.Cells(i, "y"), .Cells(i, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat"
End If
Next i
End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Comment sommer sous VBA

Merci beaucoup pour ta réponse !!!

Par contre je ne comprend pas lorsque je tente de le lancer il me met " next sans For" pourtant il y est au début du code... devrai-je le rajouter autre part ??

Merci encore pour votre aide !!

Nono
 
Vote positif 0 Vote négatif
Re : Comment sommer sous VBA

Bonjour

Si je peux me permettre, il manque également le End With après Next i et la dernière parenthèse de WorksheetFunction.Sum 🙄

bonne journée
 
Vote positif 0 Vote négatif
Re : Comment sommer sous VBA

Merci beaucoup ca marche !!

Cependant vous savez comment faire pour que le fichier ne se ferme pas si les conditions ne sont pas remplis ? Car lorsque j'essaie de fermer le fichier, les msg apparaissent à la suite et ensuite le fichier se ferme automatiquement... Je voudrai obliger la personne à remplir le fichier complètement avant de pouvoir le fermer ...

J'ai rajouter un autre if pour le cas où la colonne C était nommée " TT" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

With Sheets(1)

For i = 1 To .[c65000].End(xlUp).Row
If .Cells(i, 3).Value = "PERM" Then
If .Cells(i, "i") = 0 Then MsgBox "Honoraire à 0 pour le candidat"
If .Cells(i, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat"
If WorksheetFunction.Sum(.Range(.Cells(i, "y"), .Cells(i, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat"

End If
Next i
End With

With Sheets(1)
For j = 1 To .[c65000].End(xlUp).Row
If .Cells(j, 3).Value = "TT" Then
If .Cells(j, "p") = 0 Then MsgBox "Honoraire à 0 pour le candidat"
If .Cells(j, "q") = 0 Then MsgBox "Honoraire à 0 pour le candidat"
If .Cells(j, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat"
If WorksheetFunction.Sum(.Range(.Cells(j, "y"), .Cells(j, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat"
End If

Next j
End With

End Sub


Merci d'avance !!
Nono
 
Vote positif 0 Vote négatif
Re : Comment sommer sous VBA

Essaye ceci :

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets(1)
For i = 1 to .[c65000].end(xlup).Row
If .Cells(i, 3).Value = "PERM" Then
If .Cells(i, "i") = 0 Then MsgBox "Honoraire à 0 pour le candidat, ligne " & i: Cancel = True: Exit Sub
If .Cells(i, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat, ligne " & i: Cancel = True: Exit Sub
If WorksheetFunction.Sum(.Range(.Cells(i, "y"), .Cells(i, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat, ligne " & i: Cancel = True: Exit Sub
End If
Next i
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Comment sommer sous VBA

Re

Tu peux imbriquer tes deux conditions en reprenant le code de thebenoit59.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets(1)
For i = 1 To .[c65000].End(xlUp).Row
If .Cells(i, 3).Value = "PERM" Then
If .Cells(i, "i") = 0 Then MsgBox "Honoraire à 0 pour le candidat, ligne " & i: Cancel = True: Exit Sub
If .Cells(i, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat, ligne " & i: Cancel = True: Exit Sub
If WorksheetFunction.Sum(.Range(.Cells(i, "y"), .Cells(i, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat, ligne " & i: Cancel = True: Exit Sub

ElseIf .Cells(j, 3).Value = "TT" Then
If .Cells(j, "p") = 0 Then MsgBox "Honoraire à 0 pour le candidat, ligne " & i: Cancel = True: Exit Sub
If .Cells(j, "q") = 0 Then MsgBox "Honoraire à 0 pour le candidat, ligne " & i: Cancel = True: Exit Sub
If .Cells(j, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat, ligne " & i: Cancel = True: Exit Sub
If WorksheetFunction.Sum(.Range(.Cells(j, "y"), .Cells(j, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat, ligne " & i: Cancel = True: Exit Sub
End If
Next i
End With
End Sub


Question subsidiaire , je ne trouve pas comment faire une réponse avec le texte encadré😕
 
Vote positif 0 Vote négatif
Re : Comment sommer sous VBA

Merci Benoit et Chris ca marche !!

J'ai rajouté une petite dernière chose, c'est le fait de colorier automatiquement les cases en noires de la colonne P et Q lorsque la cellule et en PERM et inversement lorsque c'est en TT. voici le code :

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

With Sheets(1)
For i = 1 To .[c65000].End(xlUp).Row
If .Cells(i, 3).Value = "PERM" Then
    Cells(i, "p").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells(i, "q").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
If .Cells(i, "i") = 0 Then MsgBox "Honoraire à 0 pour le candidat, ligne " & i: Cancel = True: Exit Sub
If .Cells(i, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat, ligne " & i: Cancel = True: Exit Sub
If WorksheetFunction.Sum(.Range(.Cells(i, "y"), .Cells(i, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat, ligne " & i: Cancel = True: Exit Sub
End If
Next i
End With

With Sheets(1)
For j = 1 To .[c65000].End(xlUp).Row
If .Cells(j, 3).Value = "TT" Then
    Cells(j, "g").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells(j, "h").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
        Cells(j, "i").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
If .Cells(j, "p") = 0 Then MsgBox "Coefficient à 0 pour le candidat, ligne " & j: Cancel = True: Exit Sub
If .Cells(j, "q") = 0 Then MsgBox "Taux de MB à 0 pour le candidat, ligne " & j: Cancel = True: Exit Sub
If .Cells(j, "x") = "" Then MsgBox "Mentionner Facturé/Potentiel pour le candidat, ligne " & j: Cancel = True: Exit Sub
If WorksheetFunction.Sum(.Range(.Cells(j, "y"), .Cells(j, "aj"))) = 0 Then MsgBox "Pas de donnée sur le détail par mois pour le candidat, ligne " & j: Cancel = True: Exit Sub
End If
Next j
End With

End Sub

Cependant je voudrais que les cases noires se suppriment si la personne décide de supprimer le PERM ou TT, lorsque j'essaie elle reste ....

Merci d'avance

Nono
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
132
thunder23
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
364
Gestionnaire_rh
G
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
114
fanch55
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
104
crocrocro
C
P
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
124
papychat1
P
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
233
telemarrk
T
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
164
ManuEven
M
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
91
CDALE
C
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
571
Dranreb
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
250
Dranreb
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
565
Excellearning
E
F
  • Question Question
XL 2016 copier des fichiers dans des sous dossiers a partir de case a cocher sous excel
2
Réponses
17
Affichages
1 K
Felipe54
F
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
513
GClaire
G
M
  • Résolu(e)
Microsoft 365 colorier une rangée de cellules
2
Réponses
15
Affichages
851
Marvin57
M
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
610
Corentin26270
C
G
  • Résolu(e)
XL 2021 Créer une boucle
2
Réponses
21
Affichages
872
gui22
G
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
426
Gégé-45550
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
475
Minus&Cortex
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…