[excel] formulation d'une variable Résolu

Question

Bonjour à tous,

Je commence à pouvoir bidouiller sur la macro Excel, mais les variables me posent encore problème. C'est pourquoi je souhaiterai avoir votre avis pour le cas suivant :

J'ai une formule, intégrée à une macro plus grande, que je dois répéter 25 fois, chaque fois pour une valeur différente (de 1 à 25). Voici la formule macro :

'La c'est pour comptabiliser les périodes de 1 mois
Range("Q" & Range("Q65536").End(xlUp).Row + 1).Select
Range("Q2", ActiveCell.Offset(-3, 0)).Select
For Each Cell In Selection
If Cell.Value = 1 And IsEmpty(Cell.Offset(0, 1)) And IsEmpty(Cell.Offset(0, 3)) And IsEmpty(Cell.Offset(0, 4)) Then
total1m = total1m + 1
End If
Next
Range("T" & Range("T65536").End(xlUp).Row + 1).Select
Range("T2", ActiveCell.Offset(-1, 0)).Select
For Each Cell In Selection
If Cell.Value = 1 And IsEmpty(Cell.Offset(0, 1)) Then
total1m = total1m + 1
End If
Next
If total1m > 0 Then
Totalt = Totalt + 1
End If

Il me faut répéter la formule en changeant uniquement les chiffres que j'ai mis en gras (il apparait 7 fois dans ce petit bout de macro), mais j'aimerais ne pas avoir à recopier cette formule 25 fois, d'où le besoin de connaître un peu mieux les variables. Si vous pouviez m'éclairer là dessus, je vous en serait très reconnaissant et vous m'aideriez à progresser en macro. N'hésitez pas à me mettre des explications en chemin, ca ne peut que m'aider à comprendre ce que je fais.

Merci d'avance !

Polux31 · Answer

bonjour,

Il suffit de mettre un paramètre en entrée dans la macro.

Sub Macro1(byval i As Integer)  
...

Ensuite tu remplaces dans la macro toutes les valeurs en gras (ici 1) par i. Il va quand même falloir que tu appelles 25 fois cette procédure (macro).

Tu peux le faire dans une boucle :
Dim i As Integer

     For i = 1 to 25
          Call Macro1(i)
     Next i



J'espère que ça t'éclaire un peu ...

Bon courage

;o)

Polux

MattDF · Answer

Un petit peu mais pas beaucoup : je me doute que placer  i  devant cell.value peut me permettre de ne pas mettre de chiffre, mais quid de total1m si je veux remplacer 1 par i ? sinon la simplification ne sera que symbolique dans la mesure où je serais obligé de reprendre cette petite macro pour chacun des 25 chiffres. je serais obligé de faire un truc genre

For i = 1
....

For i = 2
...

For i = 3
...

Ca ne me fera pas vraiment gagner de la place (sans compter qu'après il faut que je m'occupe de faire la même chose aux mois et demi, soit une opération renouvelée 50 fois.... imagine la taille de la macro !)

De même, n'y a t'il pas moyen d'exécuter ce bout de macro 25 fois sans passer par une autre macro ?

Pour finir, quelle est la propriété de "integer" ?

Polux31 · Answer

bon, c'est pas gagné ... lol ... je plaisante ...

Alors Integer est simplement le type de variable et indique que la variable stockée est un entier;
Petit rappel sur les types de variable le plus souvent utilisée en VB :

Integer : stockage de nombre entier
Double : stockage de nombre décimaux
Long : stockage de nombre dans une plage de  -2 147 483 648 à 2 147 483 647
String : stockage de chaîne de caractères

Ensuite, une boucle For ... Next, évite de répéter x fois la même opération. Dans le cas présent, avec trois lignes de code on va effectuer 25 fois la même opération. la première fois avec i = 1, la deuxième fois avec i = 2 etc jusqu'à que i atteigne la valeur de 25. Quand i aura la valeur de 25, on sort de la boucle.

En ce qui concerne total1m ... il semble que cette variable sert uniquement de compteur ... quel est l'importance du 1 dans cette variable ? je n'en vois pas dans le code présent ... visiblement elle sert à vérifier que certaines cellules contiennent une information et si c'est le cas alors Totalt = Totalt + 1

On peut effectivement placer la boucle For ... Next dans la macro. dans ce cas il faut faire :


Sub Macro()
Dim i As Interger

For i = 0 to 25
'La c'est pour comptabiliser les périodes de 1 mois
Range("Q" & Range("Q65536").End(xlUp).Row + 1).Select
Range("Q2", ActiveCell.Offset(-3, 0)).Select
For Each Cell In Selection
If Cell.Value = i And IsEmpty(Cell.Offset(0, 1)) And IsEmpty(Cell.Offset(0, 3)) And IsEmpty(Cell.Offset(0, 4)) Then
total1m = total1m + 1
End If
Next
Range("T" & Range("T65536").End(xlUp).Row + 1).Select
Range("T2", ActiveCell.Offset(-1, 0)).Select
For Each Cell In Selection
If Cell.Value = i And IsEmpty(Cell.Offset(0, 1)) Then
total1m = total1m + 1
End If
Next
If total1m > 0 Then
Totalt = Totalt + 1
End If
Next i


voilà ... n'hésites pas à demander plus d'explication si je n'ai pas été assez clair

;o)

polux

MattDF · Answer

D'abord, merci de prendre du temps pour te pencher sur mon problème, c'est très aimable. :-) 
merci également pour les éclaircissements sur les variables. Comme je le disais, j'ai des lacunes en la matière et j'ai donc besoin de savoir vers quoi je vais afin de ne plus solliciter les gens pour résoudre X fois le même problème. :-)

Donc il semblerait que je doive un peu plus expliquer les besoins de la macro. Effectivement, comme tu l'as deviné, la variable total1m a une importance. Je lui ai donné ce nom car elle totalise le nombre de fois ou elle trouve le chiffre 1 dans les cases concernées, chiffres qui correspondent à des durées en mois...d'où le m à la fin (en l'occurrence : total1m pour des durées d'1 mois, total2m pour 2 mois, etc...). Ces totaux seront ensuite repris pour être affichés un peu plus tard, toujours par la macro.

Totalt sert à comptabiliser le nombre de lignes qui devront être affichées. En effet, si par exemple Excel ne trouve pas une seule case avec le chiffre 4 (pour des durées de 4 mois), je ne veux pas qu'il m'affiche une ligne pour me dire qu'il y a 0 personnes pour la durée de 4 mois, c'est pas intéressant et ca alourdit la feuille que je dois envoyer au client.

Pour l'instant, la macro ne pourrait pas convenir en changeant juste les chiffres recherchés par des i car elle comptabiliserait toutes les durées de 1 à 25 mois pour des durées d'1 mois (total1m) lorsque l'affichage des lignes aura lieu. En effet, plus tard sur la macro, je demande ceci :

'affichage éventuel pour une durée de 1 mois
If total1m > 0 Then
ActiveCell.Value = total1m 'le fameux résultat comptabilisant toutes les durées d'un mois
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = 1 'pour 1 mois
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "month" 'au singulier car il n'y a qu'un mois, ce sera au pluriel quand on passera à des durées supérieures
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=Tarif" '"Tarif" est le nom donné à une case qui contient le... tarif
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False 'et ca c'est pour avoir le chiffre dans la case et non la formule.
ActiveCell.Offset(1, -4).Select 'pour sélectionner la prochaine case active pour la durée suivante
End If

et ca je le demande aussi 25 fois (plus 25 autre fois pour les durées de mois et demi, donc 50 fois au total), pour toutes les durées calculées... Excel rend son tablier car la macro est trop longue... d'où mon besoin de raccourcir la macro.

Polux31 · Answer

ok je comprends mieux ...

Je pense qu'il faut simplier ... en principe une macro est utile pour automatiser une tâche.
Ici, une seule macro effectue plusieurs taches ... :-( ...

Il faut donc faire plusieurs macros :-) ... ça va rendre les choses plus claires ...
Rien n'empêche de le faire, une macro pouvant faire appel à une autre macro et ainsi de suite ...

Je vois déjà 2 macros bien distinctes :

'La c'est pour comptabiliser les périodes de 1 mois
'affichage éventuel pour une durée de 1 mois

Il en faut une 3 ème pour piloter le tout. On voit aussi qu'il y a une variable commune : la durée (périodes),
c'est une variable qu'il faut passer en paramètre aux macros ...

C'est difficile d'expliquer ça sur le forum. Si tu veux passe ton fichier ici https://www.cjoint.com/ et colle le lien dans ton prochain post. Supprimes les infos confidentielles ou fais un copier/coller de la macro dans le bloc-notes et mets le fichier sur ci-joint.com.

;o)

polux

MattDF · Answer

Voilà le fichier, compressé pour prendre moins de place. Tout est expliqué dans le fichier "explication", n'hésite pas à me demander des précisions si besoin est.

https://www.cjoint.com/?ddpF2ahCNU

Merci pour ton coup de main ! ;-)

Polux31 · Answer

merci je jete un oeil et je te fais signe

;o)

polux

MattDF · Answer

Je suis impatient d'avoir ton avis sur la question ! ^^

Polux31 · Answer

un question ?

le code s'effectue bloc par bloc ... donc les variables totalt et totalts sont cumulés de bloc en bloc ??? c'est à dire que lorsque l'on est dans le bloc du 25ème mois, dans totalt et totalts il y a le cumul depuis le bloc de la 1ère semaine..

Ai-je bien tout compris ?

Polux31 · Answer

pour l'instant j'essaie de voir comment optimiser l'étape 1 ...

Polux31 · Answer

heuuu une autre question ???

dans la colonne Q et T j'ai des valeurs sous format texte ? est-ce normal ?

MattDF · Answer

Tout à fait, quand on reçoit le fichier, il arrive comme ça. C'est une des choses qu'il faut justement changer quand on le reçoit, et maintenant je le fais via la macro.

Pour Totalt et Totalts, tu as vu juste. Encore que j'avais prévu Totalts pour une chose et que finalement j'ai réussi à faire sans.... il est destiné à disparaître.

MattDF · Answer

D'ici 10 minutes je vais devoir te laisser (je quitte le boulot)... mais on pourra reprendre demain si tu es dispo.

MattDF · Answer

Pour info, tu peux t'étonner du fait que je demande à Excel d'effacer des cases vides. C'est qu'elles ne le sont pas vraiment, et elles viennent fausser mon calcul des cases grises dans la première feuille.

Polux31 · Answer

oui j'ai pigé pour le formatage des cellules par le code ... je suis surpris que tu n'es pas prévu un bouton pour lancer la macro ... lol

 ;o)

MattDF · Answer

Ca sera pour la fin, quand tout le reste sera fonctionnel !  ;-)

Polux31 · Answer

bonjour,

J'ai un peu bidouillé ton zinzin ... tu vas vite comprendre comment ça fonctionne, c'est assez simple.

voilà le lien pour le récup: https://www.cjoint.com/?deiWg2H5AZ

A toi de continuer à optimiser le reste du code ... tu peux faire la même chose pour la 2ème macro.

N'hesite pas à me demander des précisions ou explications.

bon courage

;o)

Polux

MattDF · Answer

Merci ! Je vais jeter un œil là dessus sans tarder ! ^^

MattDF · Answer

Donc tu as élaboré ce petit code :
Sub comptePeriode()
Dim i As Double

    For i = 1 To 3
        Call ModComptabilise.comptePeriodeSemaine(i, "R", "R2", "U", "U2")
    Next i
    
    For i = 1 To 25
        Call ModComptabilise.comptePeriodeMois(i, "Q", "Q2", "T", "T2")
    Next i
    
    For i = 1.5 To 24.5
        Call ModComptabilise.comptePeriodeMoisDemi(i, "Q", "Q2", "T", "T2")
    Next i


End Sub

Je vois que de cette façon tu comptes les périodes pour les valeurs différentes de "i". Peux tu m'éclairer sur certains points :

- Est ce que les "i" sont comptés en fonction des critères que j'avais posé ? (absence de contenu dans certaines colonnes)
- Comment exploiter les "i" dans la deuxième étape ?

Polux31 · Answer

Salut,

Les "i" ne servent que d'index, si tu ouvres le module ModComptabilise, tu vas voir que le code n'est qu'un copier/coller du code que tu as dans le module 6. Je l'ai juste modifié avec les paramètres que je passe. Ca évite d'écrire 25 fois la même procédure. Je reprends donc les mêmes critères, qui sont différents pour la semaine, le mois ou le mois 1/2.

Dans la première boucle For ...Next, je comptabilise pour i = 1 ce que tu as dans total1s. Pour i = 2 ce que tu as dans dans total2s etc ...

Dans la 2ème boucle For ... Next, je comptabilise pour i = 1 ce que tu as dans total1m. Pour i = 2 ce que tu as dans total2m etc ...

Dans la 3ème boucle For ... Next, je comptabilise pour i = 1.5 ce que tu as dans total1md. Pour i = 2.5 ce que tu as dans total2md etc ...

J'espère que tu as remarqué comment découper un code pour le rendre plus clair et comment on peut passer d'une procédure à une autre. Il est préférable de faire plusieurs porcédures ou fonctions (macros), pour une meilleure lisibilité et surtout une facilité dans la maintenance du code.


Pour l'étape2, je n'ai pas vraiment regardé, j'ai juste vu que tu pouvais encore optimiser le code en utilisant la même technique ... Je vais le regarder et je te fais signe ... 

;o)

polux

MattDF · Answer

OK je te laisse jeter un œil car les résultats de l'un affectent directement les données de l'autre. J'attends avec impatience tes remarques ! ^^

J'aurais d'autres question après. Merci encore ! ;-)

Polux31 · Answer

ok, je viens de voir ... et je n'avais pas vu cet aspect là ... :os

Mais il y a une solution ... :o)

Dans l'étape1, on va passer par un tableau pour stocker les valeurs de total1s, totals2 etc ... idem pour total1m, total2m etc ... idem pour total1md, total2md etc ...

Dans l'étape2, on ira récupérer les valeurs dans les tableaux pour les mettre là où ça va bien ... :o)

Je suppose que tout ça ne te parles pas beaucoup ... j'explique donc :

un tableau, kézako ? c'est une variable améliorée pour faire court ... on peut y stocker des valeurs
à la suite l'une de l'autre, en leur donnant un index pour pouvoir ensuite les récupérer.
Par exemple, j'ai un tableau qui contient des noms de ville


Dim i As Intéger              'je déclare un index de boucle
Dim tabVille(3) As String   'je déclare un tableau qui contiendra des chaines de caractères (string)
                                    'avec 4 index (le premier index étant 0)

tabVille(0) = "Paris"       'j'affecte la valeur "Paris" à l'index 0 de mon tableau tabVille
tabVille(1) = "Sedan"    'j'affecte la valeur "Sedan" à l'index 1 de mon tableau tabVille
tabVille(2) = "Caen"      'j'affecte la valeur "Caen" à l'index 2 de mon tableau tabVille
tabVille(3) = "Rouen"    'j'affecte la valeur "Rouen" à l'index 3 de mon tableau tabVille

For i = 0 to 3               'Début de la boucle For pour lire tous les index du tableau tabVille
     MsgBox tabVille(i)     'Affiche la valeur contenue dans le tableau tabVille à l'index i
Next i                          ' fin de la boucle For


Dans le module ModComptabilise je vais créer 3 tableaux, tabTotals, tabTotalm et tabTotalmd.
J'affecterai la valeur de total de chaque boucle dans le tableau correspondant avec l'index qui va bien.

La structure des boucles étant la même pour l'étape2, il sera facile de récupérer la valeur avec
l'index qui va bien également ... enfin, j'ai pas encore essayé mais ça devrait le faire comme ça ... :o)

Ca fait un peu professeur ça ... :o( ...lol

;o)

polux

MattDF · Answer

Ok... je vois ce que tu veux dire ! Je te laisse procéder, le principe à l'air de coller aux besoins de ma macro. Je m'excuse de ne pas connaître toutes ces subtilités, mais je ne me suis mis à la macro qu'au début de février et en autodidacte... donc il me manque pas mal de bases ! :-)

En tout cas merci "professeur" !  ;-)

Polux31 · Answer

arrrrfffffffffff ... non ... surtout pas "professeur" .........

Pour avoir des bases : https://www.developpez.com/ et https://office.developpez.com/cours/

Je me colle à l'étape2 cet aprem.

;o)

polux

Polux31 · Answer

Oups ... j'ai trouvé des erreurs dans le fichier que je t'ai envoyé ...  :os ... je les ai corrigées dans celui que je vais t'envoyer dès que j'ai fini avec l'étape2 ...

MattDF · Answer

De quoi s'agissait-il ??

Polux31 · Answer

une erreur dans la déclaration des variables ... voilà le nouveau fichier : https://www.cjoint.com/?denP1YlD6s

Si tu vois quelque chose qui cloche fais moi signe

;o)

Polux

MattDF · Answer

Je te remercie BEAUCOUP pour tout ce temps passé sur cette macro ! ^^

Je jette un œil tout de suite.

Polux31 · Answer

de rien c'est un plaisir ...

J'attends tes commentaires et éventuelles questions ...

;o)

polux

MattDF · Answer

Il y a quelque chose qui coince ici :

Public Sub configSemaine(ByVal i As Integer)

Sheets(2).Select
Range("pax").Select

'affichage éventuel pour une durée hebdomadaire
    If ModComptabilise.tabTotals(i) > 0 Then
        ActiveCell.Value = ModComptabilise.tabTotals(i)
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Value = i
        ActiveCell.Offset(0, 1).Select
        If i = 1 Then
            ActiveCell.Value = "week"
        Else
            ActiveCell.Value = "weeks"
        End If
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=Tarif/4"
            Selection.Copy
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
            Application.CutCopyMode = False
        ActiveCell.Offset(1, -4).Select
    End If

End Sub


Public Sub configMois(ByVal i As Integer)

Sheets(2).Select
Range("pax").Select

'affichage éventuel pour une durée mensuelle
    If ModComptabilise.tabTotalm(i) > 0 Then
        ActiveCell.Value = ModComptabilise.tabTotalm(i)
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Value = i
        ActiveCell.Offset(0, 1).Select
        If i = 1 Then
            ActiveCell.Value = "month"
        Else
            ActiveCell.Value = "months"
        End If
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=Tarif"
            Selection.Copy
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
            Application.CutCopyMode = False
        ActiveCell.Offset(1, -4).Select
    End If

End Sub

Public Sub configMoisDemi(ByVal i As Double)

Sheets(2).Select
Range("pax").Select

'affichage éventuel pour une durée d'un mois 1/2
    If ModComptabilise.tabtotalmd(CInt(j - 1)) > 0 Then
        ActiveCell.Value = ModComptabilise.tabtotalmd(CInt(j - 1))
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Value = i
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = "months"
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=Tarif"
            Selection.Copy
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
            Application.CutCopyMode = False
        ActiveCell.Offset(1, -4).Select
    End If

End Sub

Comme tu le constate : la cellule "pax" est systématiquement sélectionnée, ce qui pose un problème : les données ne s'affichent pas les unes en dessous des autres mais changent systématiquement la première ligne... laissant les autres lignes vierges.

MattDF · Answer

En fait, je pense qu'il faudrait sélectionner "pax" hors de ces petites macro, et faire en sorte, à l'issu de chaque exécution, de sélectionner la cellule de la colonne A sous la ligne si celle-ci a subi des changements.

[edit] j'ai l'impression d'être un peu brouillon dans mes idées... tu arrives à me suivre ? :-)

Ce que je veux dire c'est que sélectionner "pax" au début rend inopérant et inutile la fonction :
ActiveCell.Offset(1, -4).Select

Polux31 · Answer

désolé je me suis trompé de fichier ... je suis à l'ouest là ... voilà le lien : https://www.cjoint.com/?deooTNmFDj

Exactement ... tu as bien vu ... ... tu deviens une vraie pro ... :o)

;o)

polux

MattDF · Answer

Trop gentil !! ^^

Tout marche bien, sauf les durées en mois et demi. Celles là ne s'affichent pas (je confesse que je n'ai pas encore regardé la macro pour voir la cause)

Polux31 · Answer

ah ... j'ai pas trouvé pourquoi ...  :-s

MattDF · Answer

Il semble que la valeur pour les mois et demi soit stocké en "j", or tu lui demande d'afficher "i"

Public Sub configMoisDemi(ByVal i As Double)

Sheets(2).Select
'Range("pax").Select

'affichage éventuel pour une durée d'un mois 1/2
    If ModComptabilise.tabtotalmd(CInt(j - 0.5)) > 0 Then
        ActiveCell.Value = ModComptabilise.tabtotalmd(CInt(j - 0.5))
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Value = i
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = "months"
        ActiveCell.Offset(0, 1).Select
        ActiveCell.FormulaR1C1 = "=Tarif"
            Selection.Copy
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
            Application.CutCopyMode = False
        ActiveCell.Offset(1, -4).Select
    End If

End Sub


Pourtant si j'en juge d'après cette macro, "i" ne semble pas sollicité (en tout cas pas pour les mois et demi).

Public Sub configureFeuille2()
Dim i As Integer
Dim j As Double

    'sélection de la première case pour commencer à remplir les lignes
    Range("pax").Select

    For i = 1 To 3
        Call ModConfigFeuil2.configSemaine(i)
    Next i

    For i = 1 To 25
        Call ModConfigFeuil2.configMois(i)
    Next i

    For j = 1.5 To 24.5
        Call ModConfigFeuil2.configMoisDemi(j)
    Next j

    activeFormule       'Appel la procédure activeFormule

End Sub

Ca pourrait pas venir de là ??

MattDF · Answer

Bon... après avoir testé... ca ne vient pas de là.

Je sèche un peu là...

Polux31 · Answer

bravo ... c'est presque ça ... :o)) ... 

Tu as raison pour la première partie, la procédure reçoit "i" comme paramètre ... et l'erreur se situe ici :
    If ModComptabilise.tabtotalmd(CInt(j - 0.5)) > 0 Then
        ActiveCell.Value = ModComptabilise.tabtotalmd(CInt(j - 0.5))


Il faut remplacer "j" par "i", ça donne :

    If ModComptabilise.tabtotalmd(CInt(i - 0.5)) > 0 Then
        ActiveCell.Value = ModComptabilise.tabtotalmd(CInt(i - 0.5))


Pour la deuxième partie, effectivement je passe la valeur de "j" en paramètre, mais la procèdure qui 
réceptionne cette valeur peut prendre un nom quelconque comme variable de réception de 
la valeur de "j" ... j'aurai pu écrire ceci :


Public Sub configMoisDemi(ByVal toto As Double)

Sheets(2).Select
'Range("pax").Select

'affichage éventuel pour une durée d'un mois 1/2
    If ModComptabilise.tabtotalmd(CInt(toto- 0.5)) > 0 Then
        ActiveCell.Value = ModComptabilise.tabtotalmd(CInt(toto- 0.5))
        ActiveCell.Offset(0, 2).Select
        ActiveCell.Value = toto
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = "months"
...


Le résultat est le même ...

Bravo encore de l'avoir débeugué ... le métier rentre .. :o)

J'espère que tu y vois un peu plus clair sur les variables et la façon de les utiliser.

N'hésite pas si tu as d'autres questions

Bon courage

;o)

polux

MattDF · Answer

Ca commence à rentrer ! :-)

Bon... je teste ca tout de suite et je te dis si ca marche.

MattDF · Answer

Ca marche pas chez moi... :'-(

Même après la correction, il persiste à ne pas vouloir m'afficher les périodes de mois et demi !!

Tu peux m'envoyer ton fichier corrigé stp ??

Polux31 · Answer

es-tu sûr qu'il doit y avoir une valeur pour le total pour les périodes de mois et demi ? je ne trouve aucun élément dans le tableau ?

MattDF · Answer

Dans ma macro initiale, c'était demandé sous cette forme (exemple pour 7,5 mois)

'affichage éventuel pour une durée de 7.5 mois
If total7md > 0 Then
ActiveCell.Value = total7md
ActiveCell.Offset(0, 2).Select
ActiveCell.Value = 7.5
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "months"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=Tarif"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
ActiveCell.Offset(1, -4).Select
End If

Donc les "md" devrait apparaitre avec les "s" et les "m"

Je sens que mon crâne commence à fumer ! :-)

Polux31 · Answer

oui, je suis d'accord avec toi et c'est exactement ce qu'il y dans configMoisDemi ... 
le problème ne vient pas de là ... il vient du module ModComptabilise. Je pense que ça vient de la procédure comptePeriodeMoisDemi.

Il n'y a pas de valeur dans le tableau tabTotalmd ...


oups je crois avoir trouvé ... je corrige et je t'envoi le nouveau fichier

Polux31 · Answer

tout compte fais c'est plus simple par là ... il faut remplacer comptePeriodeMoisDemi par


Public Sub comptePeriodeMoisDemi(ByVal j As Double, ByVal A As String, ByVal B As String, ByVal C As String, ByVal D As String)
Dim total As Integer

Sheets(1).Select

total = 0

    Range(A & Range(A & "65536").End(xlUp).Row + 1).Select
    Range(B, ActiveCell.Offset(-3, 0)).Select
    For Each Cell In Selection
        If Cell.Value = j - 0.5 And Cell.Offset(0, 1).Value = 2 And IsEmpty(Cell.Offset(0, 3)) And IsEmpty(Cell.Offset(0, 4)) Then
            total = total + 1
        End If
    Next
    
    Range(C & Range(C & "65536").End(xlUp).Row + 1).Select
    Range(D, ActiveCell.Offset(-1, 0)).Select
    For Each Cell In Selection
        If Cell.Value = j - 0.5 And Cell.Offset(0, 1).Value = 2 Then
            total = total + 1
        End If
    Next
    
    tabtotalmd(CInt(j - 0.5)) = total       'stockage dans le tabTotalmd à l'index j - 0.5 (l'index est un entier) -- Cint transforme la valeur en entier

    If total > 0 Then
        totalt = totalt + 1
        totalts = totalts + 1
    End If

End Sub



maintenant ça devrait le faire ... enfin j'espère.

;o)

polux

MattDF · Answer

Ca marche ! Quel talent ! ^^

Est ce que je peux encore abuser un peu de ton temps ?

Comment faire pour que les mois s'affichent par ordre de taille ? De sorte que, par exemple, les périodes de 2,5 mois s'affichent entre les périodes de 2 et 3 mois (si y'a des périodes de 2 ou 3 mois bien sur... enfin je pense que tu as compris ^^)

Ensuite j'aurais encore une ou deux questions techniques et j'aurais fini. Merci encore ! :-)

Polux31 · Answer

Bonjour,

Je suis content que tu aies réussi à faire marcher ton zinzin ... :o) ...

Tu n'abuses pas de mon temps, j'aide volontier les personnes dans la mesure de mon temps disponible. Sinon je ne le ferai pas ...

Je pense avoir compris ce que tu veux faire, je suppose que c'est sur la 2ème feuille que tu veux faire ça ... 
Ca doit être possible effectivement. Je ne sais pas encore comment, mais il y a surement une solution.
Je vais regarder ça ... en espèrant que tu ne sois pas trop pressée ... si c'est pour hier, je ne peux pas ... je suis sur un truc que je dois rendre pour avant-hier ... lol ...
Je te tiens au courant le plus tôt possible ... disons dans l'après-midi ...

N'hésites pas pour les questions, si je peux y répondre, ça sera avec grand plaisir.

;o)

Polux

MattDF · Answer

Merci beaucoup ! C'est très gentil ! ^^

Je suis aussi sur un autre problème donc je peux attendre sans souci cet après midi.

De manière tout à fait accessoire, est ce que tu connais la commande macro qui permet de connaitre le chemin où se trouve le fichier, mais sans le nom du fichier ?

Cette commande ne m'aide pas comme je le souhaiterai :
Chemin = ActiveWorkbook.FullName

Par exemple si le fichier se trouve à l'endroit 

C:Patin/couffin/tintin/fichierExcel.xls

Je souhaiterai connaitre la commande (si elle existe) qui me permet de détecter (et m'en servir) seulement :

C:Patin/couffin/tintin/

Polux31 · Answer

re,

Oui je sais comment faire ça, mais je suis plutôt à la bourre là et pas trop le temps de chercher ... je vais faire de mon mieux pour te trouver ça au plus tôt ...

;o)

polux

Polux31 · Answer

rere,

voilà comment trouver le chemin :

Chemin = thisWorkbook.Path

pour vérifier, juste dessous tu mets :

MsgBox Chemin

tu l'effaceras ensuite si c'est ce que tu voulais.

;o)

Polux

Polux31 · Answer

voilà, je crois que ça doit le faire pour intercaler les mois 1/2 ... jetes un zoeil et dis moi si c'est ce que tu cherches

https://www.cjoint.com/?dfo23H84J0

;o)

polux

MattDF · Answer

T'es trop fort ! ^^

Merci BEAUCOUP !!

Une dernière chose : Pour créer une macro, on fait "insertion" - "module", mais comment tu crées les fenêtres "Code" comme dans ton programme ?

Polux31 · Answer

Arrêtes ... je suis pas trop fort ... la programmation c'est mon job ... même si je ne connais pas Excel, je peux me débrouiller pour coder des petites choses.

En fait, c'est quoi une Macro ? juste un code qui permet d'exécuter des tâches. Le terme Macro vient juste du fait que Excel propose une fonctionnalité qui permet de les enregistrer automatiquement, sans même connaitre le langage VBA. Il suffit de faire -> nouvelle Macro et d'exécuter ce que l'on veut faire (ex : recopie automatique de cellule) et de faire 
-> terminer Macro. Ce que l'on ne voit pas, c'est qu'un module a été créé dans l'éditeur avec le code VBA associer à la Macro.

On peut également, si l'on a des connaissances en VBA, se faire la Macro par le code. Ce n'est ni plus ni moins ce que j'ai fait. Je n'appelle pas ça des macros, mais des procédures ou des fonctions. Pour créer un module "code", il faut faire pareil : "insertion" -> "module" ... et d'y placer le code qui va bien ... Dans la fenêtre en bas à gauche je renomme le module.

Tu dis : Une dernière chose ... comme c'est dommage ... lol ... il aurait été intéressant de rendre ton zinzin plus fonctionnel ... :o) ... par exemple de mettre un bouton sur ta première feuille pour lancer l'exécution des "macros", en faisant au sorte de n'avoir qu'un seul click à faire. Et ensuite, envisager une sauvegarde automatique sans passer par la boîte de dialogue traditionnelle ... et surement plein d'autres choses ... :o))

Bon courage,

Ca m'a fait vraiment très plaisir de t'aider.

Je reste à ta dispo Okazou ...

;o)

Polux

MattDF · Answer

Je te remercie, mais j'avais déjà trouvé les lignes de code et la présentation par barre des taches pour ces derniers points. Je devrais donc réussir sans trop de problème à les insérer.

Et je ne veux pas pas non plus te monopoliser pour faire fonctionner uniquement mon programme. D'autres ont surement besoin de tes lumières ! Mais je garde en tête ta proposition d'aide pour le prochain programme que je pourrais être amené à faire.

Merci encore ! ^^

[excel] formulation d'une variable - Page 3

Newsletters