VBA MsgBox avec somme de variables

Bonjour,

je suis débutant VBA. J'ai besoin de faire apparaître un message avec une somme.

J'ai une colonne J avec une date et colonne L avec une date

dans le MsgBox je voudrais la somme des cellules où la date de la col L est supérieur à la date de la col J

J'ai essayé plusieurs écriture et j'ai des erreur de syntaxe, des demandes de fin d'instructions ou des erreurs '424' objet requis...

je sais plus quoi faire.

voici ma dernière écriture:

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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

Sub notif_prise_en_charge()     Dim N, derl   Dim date1 As String Dim date2 As String Dim result As String     Workbooks("Assurés suivi des dossiers LCF .xlsx").Activate     Sheets("En cours en 2017").Activate   derl = Sheets("En cours en 2017").Range("A" & Rows.Count).End(xlUp).Row date1 = Range("L" & N) date2 = Range("J" & N) result = totalvalue date1 > date2   For N = 4 To derl     ' introduction d'un message à l'ouverture du fichier pour signaler la non prise en charge de dossier   If date1 > date2 Then   result = MsgBox "ne sont pas pris en charge", vbOKOnly + vbInformation, "mDF XLpages.com"   End If   If Reponse = vbOK Then 'Si on clique sur OK     Unload UserForm1     End If   Next   End Sub

---

Merci pour votre aide....

Bonjour,

Quelle est la demande ? "sommes des cellules" = Nombre de fois ou L > J ?

Citation:

---

Envoyé par Mick76

Bonjour,
J'ai une colonne J avec une date et colonne L avec une date
dans le MsgBox je voudrais la somme des cellules où la date de la col L est supérieur à la date de la col J

---

Ensuite il faudrait mettre ton code dans les balises CODE sinon... tu vas avoir des remarques.

Pour terminer, vu ton code, essaye le en pas à pas tu verras par toi même ou cela pose problème.

Pour t'aider :
Tu vas aller de la ligne N à ta dernière ligne et à chaque fois tu vas tester si la celluleAN > CelluleBN
Si c'est le cas tu fais un compteur
Si ce n'est pas le cas, tu vas au prochain N.

Il y a trop d'erreurs (aussi bien de syntaxe que de logique) dans ton code pour les décrire toutes.
Autant tout réécrire.

Code:

---

1 2 3 4 5 6 7

Dim Nb As Long Dim Rg As Range Nb = 0 For Each Rg in Sheets("En cours en 2017").Range("L4:L", Sheets("En cours en 2017").Cells(Rows.Count, 1).End(xlUp).Row) If Rg.Value > Rg.Offset(0, -2).Value Then Nb = Nb 1 Next Rg MsgBox("Nb Ligne avec L > J : " & Nb)

---

Citation:

---

Envoyé par Alex70

Bonjour,

Quelle est la demande ? "sommes des cellules" = Nombre de fois ou L > J ?



Ensuite il faudrait mettre ton code dans les balises CODE sinon... tu vas avoir des remarques.

Pour terminer, vu ton code, essaye le en pas à pas tu verras par toi même ou cela pose problème.

Pour t'aider :
Tu vas aller de la ligne N à ta dernière ligne et à chaque fois tu vas tester si la celluleAN > CelluleBN
Si c'est le cas tu fais un compteur
Si ce n'est pas le cas, tu vas au prochain N.

---

Bonjour,

"sommes des cellules" = Nombre de fois ou L > J =>> oui c'est exactement ça.

mon 1er problème apparaît quand je définit la variable result

mon 2ème problème c'est au moment de MsgBox

Citation:

---

Envoyé par Menhir

Il y a trop d'erreurs (aussi bien de syntaxe que de logique) dans ton code pour les décrire toutes.
Autant tout réécrire.

Code:

---

1 2 3 4 5 6 7

Dim Nb As Long Dim Rg As Range Nb = 0 For Each Rg in Sheets("En cours en 2017").Range("L4:L", Sheets("En cours en 2017").Cells(Rows.Count, 1).End(xlUp).Row) If Rg.Value > Rg.Offset(0, -2).Value Then Nb = Nb 1 Next Rg MsgBox("Nb Ligne avec L > J : " & Nb)

---

---

merci sauf qu'à la ligne:

If Rg.Value > Rg.Offset(0, -2).Value Then Nb = Nb 1

il mets erreur de synthaxe

Citation:

---

Envoyé par Mick76

mon 1er problème apparaît quand je définit la variable result
mon 2ème problème c'est au moment de MsgBox

---

Il y a bien plus de 2 problèmes dans ton code et celui qui apparait en premier, c'est la déclaration d'une variable date en tant que String.

Citation:

---

Envoyé par Mick76

merci sauf qu'à la ligne:

If Rg.Value > Rg.Offset(0, -2).Value Then Nb = Nb 1

il mets erreur de synthaxe

---

Ca aurait été sympa d'indiquer le message d'erreur. :?
Heureusement, l'erreur est évidente : j'ai tapé trop vite, il manque un + devant le 1.

C'est du code tapé à l'arrache et non testé. Il y a sans doute des bugs.
Mais 90% du travail étant fait, tu peux peut-être prendre la peine de faire les 10% restant, non ?

ah d'accord par contre je tente de la définir autrement mais d'autres problèmes apparaissent.

Tu as raison l'ensemble de mon écriture doit comporter des erreurs et plus je vais la modifier plus je vais m'enfoncer

Citation:

---

Envoyé par Mick76

ah d'accord par contre je tente de la définir autrement mais d'autres problèmes apparaissent.

---

Avant d'essayer de la modifier, essaye de comprendre les éléments qui la compose à l'aide de l'aide VBA d'Excel.

Citation:

---

Envoyé par Menhir

Il y a bien plus de 2 problèmes dans ton code et celui qui apparait en premier, c'est la déclaration d'une variable date en tant que String.


Ca aurait été sympa d'indiquer le message d'erreur. :?
Heureusement, l'erreur est évidente : j'ai tapé trop vite, il manque un + devant le 1.

C'est du code tapé à l'arrache et non testé. Il y a sans doute des bugs.
Mais 90% du travail étant fait, tu peux peut-être prendre la peine de faire les 10% restant, non ?

---

et pardonne moi... Je suis débutant donc jusqu'à maintenant j'ai fais des commandes simples mais là j'ai beaucoup de mal

Citation:

---

Envoyé par Mick76

et pardonne moi... Je suis débutant donc jusqu'à maintenant j'ai fais des commandes simples mais là j'ai beaucoup de mal

---

Tout le monde débute un jour, mais l'aide VBA + Forums + Tuto = On arrive à faire généralement ce que l'on souhaite.

Une autre solution que Menhir par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Worksheets("Feuil3").Activate   For j = 1 To Range("L" & Rows.Count).End(xlUp).Row   If Cells(j, 12) > Cells(j, 13) Then Total = Total + 1   Next j   MsgBox ("Nb ligne L > J " & Total)

---

Mieux ou moins bien en terme de performance ? je ne sais pas.... (et au passage si Menhir le sais je suis preneur de la réponse) mais il n'y a pas qu'une solution à un problème VBA.
Le truc est de regarder et d'essayer de comprendre ce que l'on fait ;)

Citation:

---

Envoyé par Mick76

et pardonne moi... Je suis débutant donc jusqu'à maintenant j'ai fais des commandes simples mais là j'ai beaucoup de mal

---

A la vue de ton code, il était évident que tu étais débutant. ;)

Un conseil : l'aide VBA d'Excel peut t'aider à progresser rapidement.
Elle est vraiment bien faite quand on sait s'en servir.

Entre autre, si tu tapes F1, tu accèdes (généralement) à l'aide correspondant à l'élément sur lequel se trouve ton curseur.

Personnellement, dans mon navigateur internet, je me suis mis deux favoris rapidement accessibles :
Pour les fonctions et commandes de VBA : https://msdn.microsoft.com/fr-fr/lib.../jj692818.aspx
Pour les objets spécifiques à Excel : https://msdn.microsoft.com/fr-fr/lib.../ff194068.aspx
Avec ça, tu as une porte d'accès pour résoudre 90% des problèmes.

Pour aller plus vite, je me suis même mis des raccourcis vers les membres des objets Range, Worksheet et Workbook qui sont les plus utilisés.

Citation:

---

Envoyé par Alex70

Tout le monde débute un jour, mais l'aide VBA + Forums + Tuto = On arrive à faire généralement ce que l'on souhaite.

---

A cette équation, je rajouterai l'enregistreur automatique de macro qui pond un code assez pourri mais qui peut mettre sur la voie de la solution.

Citation:

---

Une autre solution que Menhir par exemple :

---

Ca aurait été mieux en commençant par :

Code:

---

1 2 3

Dim j As Long Dim Total As Long Total = 0

---

Histoire de donner à notre ami de bonnes habitudes. :D

Citation:

---

Mieux ou moins bien en terme de performance ? je ne sais pas.... (et au passage si Menhir le sais je suis preneur de la réponse)

---

A moins qu'il y ait quelques centaines de milliers de lignes à traiter, je pense que la différence doit se chiffrer en centièmes de secondes. :mouarf:

Bonjour,

Est-ce que ceci répond au besoin ?

Evaluation directe de la formule matricielle

Citation:

---

{=SOMMEPROD((Colonne1 = Colonne2)*1)}

---

Code:

---

1 2 3 4 5

Sub toto() With Sheets("En cours en 2017").Range("L4:L" & Sheets("En cours en 2017").Cells(Rows.Count, 1).End(xlUp).Row) MsgBox Evaluate("=SUMPRODUCT((" & .Address & "=" & .Offset(0, -2).Address & ")*1)") End With End Sub

---

edit : pour le calcul de la dernière ligne de la plage, tu te bases sur la colonne A (colonne 1) ... je ne sais pas si c'est voulu ou non, je préfère quand même le souligner

Citation:

---

Envoyé par Menhir

Ca aurait été mieux en commençant par :

Code:

---

1 2 3

Dim j As Long Dim Total As Long Total = 0

---

Histoire de donner à notre ami de bonnes habitudes. :D

---

Non il apprendra à ses dépens !:mouarf:

Citation:

---

l'enregistreur automatique de macro qui pond un code assez pourri mais qui peut mettre sur la voie de la solution.

---

Effectivement, si pratique quand on commence
Mon stagiaire est sur ça en ce moment :
http://laurent-ott.developpez.com/tu...el-vba-tome-1/

Citation:

---

A moins qu'il y ait quelques centaines de milliers de lignes à traiter, je pense que la différence doit se chiffrer en centièmes de secondes. :mouarf:

---

Excel et ses secrets de vitesse de calculs :roll:

Nos posts ce sont croisés je pense, juste pour dire que juste avant ton message j'ai proposé une autre méthode

Bonjour,
Je te conseille également la lecture de ce tutoriel VBA EXCEL La MsgBox décortiqué

Citation:

---

Envoyé par joe.levrai

Evaluation directe de la formule matricielle

---

Sûr, par simple formule il y a plein d'autres solutions.
Par exemple

Code:

---

=SOMME(SI(L:L>J:J;1;0))

---

A valider en formule matricielle avec Ctrl+Shift+Entrée

L'avantage du code VBA, c'est qu'il peut s'adapter au nombre de lignes.
Quoi que... avec une formule utilisant NB() et DECALER (ou INDIRECT), une formule pourrait le faire aussi.

Bonjour
Je ne saurais trop approuver cette remarque de Menhir, que je salue :

Citation:

---

Un conseil : l'aide VBA d'Excel peut t'aider à progresser rapidement.
Elle est vraiment bien faite quand on sait s'en servir.

Entre autre, si tu tapes F1, tu accèdes (généralement) à l'aide correspondant à l'élément sur lequel se trouve ton curseur.

---

Je n'ai personnellement d'autre savoir (ni cours, ni livre, ni rien d'autre) que celui acquis en parcourant les rubriques de cette aide VBA et en m'imposant des petits tests et exercices sur ces bases.
Puis-je ajouter que cette "auto-formation", qui exclut tout copié/collé - y compris de ce que j'ai déjà pu écrire moi-même un jour (et que je m'empresse presque systématiquement d'effacer de mon disque dur) - est un atout indéniable en matière de création ? Il n'en reste que le souvenir de mécanismes, mais jamais le moindre "modèle"). ;)