Autres Alors là je crois que ce n'est pas possible ... pas par moi!!!

[un internaute]

Bonjour le forum
Dans le fichier joint je voudrais si c'est possible "tenter" d'alléger les modifs manuelles
Mais je crois que ça va râler dur....
Pour faire des modifs par exemple....
1 - Aller dans module Posologie mettre 180 = 6 mois
Dans tous les cas il faut modifier le Nb de jour dans la feuille par remplacer 367 par 182
2 - Dans la cellule D3 mettre 182 à la place de 367 et faire glisser pour MAJ
3 - Peut-être faire masquer lignes à partir de 183
4 - Mais ensuite il faut les ré-ouvrir pour le prochain fichier s'il est plus important ou mois important
Pour résumer pourrait-on l'alléger un peu par des macros en tenant compte par exemple de la posologie
Sinon on laisse comme ça car c'est déjà l'usine à gaz

 

[sylvanu]

Bonjour Un internaute,
Un essai en PJ avec ce que j'ai compris.
Dans le module ChangementDurée, la macro :

Sub ModifDurée()
Dim Texte6mois$, Texte12mois$
Texte6mois = "Cliquer ici pour passer de 1 an à 6 mois"     ' Texte bouton pour 6 mois
Texte12mois = "Cliquer ici pour passer de 6 mois à 1 an "   ' Texte bouton pour 12 mois
If ActiveSheet.Shapes("Durée").TextFrame2.TextRange.Text = Texte6mois Then
    Range("B183:B367").Value = ""                           ' Effacer Posologie au delà de 6 mois
    Rows("183:367").EntireRow.Hidden = True                 ' Masquage lignes
    ActiveSheet.Shapes("Durée").TextFrame2.TextRange.Text = Texte12mois ' Changer texte bouton
Else
    Range("B183:B367").Value = 1                            ' Mettre posologie à 1 pour 1 an
    Rows("183:367").EntireRow.Hidden = False                ' Afficher lignes
    ActiveSheet.Shapes("Durée").TextFrame2.TextRange.Text = Texte6mois ' Changer texte bouton
End If
End Sub

Dans la feuille 1 bouton violet clair appelé "Durée".
Un appui sur ce bouton efface la colonne B au delà de 6 mois, et masque les lignes.
Un nouvel appui remplit la colonne B pour 1 an et affiche les lignes.
Petit pb à voir : dans votre post vous donnez 367 et 182. Dans le fichier j'ai 364 et 179.

 

[un internaute]

Bonjour sylvanu
Ça bug sur ligne

If ActiveSheet.Shapes("Durée").TextFrame2.TextRange.Text = Texte6mois Then

Oui normal 364 c'est 365 jours -1 le jour de la prise
Idem pour 179 c'est 180 - 1 =179 le jour de la prise

 

[sylvanu]

Ça bug sur ligne

Sur la PJ du post #2 ?

 

[sylvanu]

J'ai modifié l'accès au texte du bouton :

If ActiveSheet.Shapes("Durée").TextFrame.Characters.Text = Texte6mois Then

Essayez cette PJ.
Sur mon PC les deux syntaxes marchent, mais je sais que j'ai déjà eu quelques soucis de ce type sur d'autres PC.

NB: Donc c'est bien 364 et 179 et non 367 et 182 ?

 

[un internaute]

Sur la PJ du post #2 ?

C'est à dire?

 

[sylvanu]

Je voulais juste savoir si c'était sur ma PJ ou sur votre fichier réel que vous avez modifié.
Essayez la PJ du post #5 pour voir si ça résout le problème.
( que signifie "Autres" comme type d'XL dans votre entête ? Si c'est sur Mac alors je ne garanti pas ma solution. )

 

[un internaute]

Maintenant c'est sur la ligne

  If WSheet.Range("D" & J) <> "" Then

De Init_Feuille()
Normal car la formule en D3 =#NOM?
Ça va être dur dur sylvanu!!!
Avec quelqu'un qui connaît et l'autre pratiquement pas... mais faut cpas désespérer

 

[sylvanu]

Je n'arrive pas à le reproduire. En D3 j'ai :

=SIERREUR(SI(SOMME(B3:$B$367)=0;"";(SOMME(B3:$B$367)/B3)-1);"")

Je ne vois pas comment on peut avoir #NOM.
Vous avez quelle version XL ?
Car je ne vois qu'une solution, ce serait que vous ne disposiez pas de la fonction SIERREUR.
Dans cette PJ je l'ai supprimé.

 

[un internaute]

N'oublie pas que je suis sous Excel 2003 et qu'il ne prend pas de certains SIERREUR dans formule je crois que je l'ai déjà eu
Mais peut-être pas ça

 

[un internaute]

Bug sur cette ligne

 ActiveSheet.Shapes("Durée").TextFrame2.TextRange.Text = Texte6mois ' Changer texte bouton

Je crois que je peux pour SIERREUR déjà employé
On progresse
Ça m'efface ma ligne de texte cellule A1
Date - Posologie DOLIPRANE

Dans un programme j'ai cette formule

=SI($B6<>"";SI(ESTERREUR($B6*CNUM(D$5));"";ARRONDI(B6*CNUM(($D$5));2));"")

 

[sylvanu]

Dernier essai car je ne me rappelle plus les interdits sous XL2003.
Dans cette PJ j'ai mis deux boutons, ce qui évite la lecture des shapes.

 

[un internaute]

CHAPEAU L'ARTISTE
JAMAIS JE N'AURAIS PENSÉ QUE TU PUISSES FAIRE ÇA
MERCI POUR LE NONAGÉNAIRE QUE JE SUIS DE PLUS TRÈS MALADE.
MON PC M'AIDE BEAUCOUP
ENCORE UN GRAND MERCI
Bonne fin de journée

 

[un internaute]

CHAPEAU L'ARTISTE
JAMAIS JE N'AURAIS PENSÉ QUE TU PUISSES FAIRE ÇA
MERCI POUR LE NONAGÉNAIRE QUE JE SUIS DE PLUS TRÈS MALADE.
MON PC M'AIDE BEAUCOUP
ENCORE UN GRAND MERCI
Bonne fin de journée

 

[un internaute]

Toutes mes excuses je pense que c'est un peu plus compliqué que ça
Lorsqu'on passe de 1 an à 6 mois par exemple ça n'affiche pas dans les colonnes G & H les bonnes dates
Pour 6 mois ça devrait afficher colonne G 3 02 Septembre 2025 et en G3 02 Mars 2026 à quelques jours près
Punaise pas vu ça
Plus compliqué que prévu