un coup de main pour regler mon probleme. Résolu/Fermé

Question

Bonjour, 

Je travail sur excel 2000. J'ai un Tableau comportant 11 colonnes.Dans la colonne 8 (Prêt) je tappe 2 par exemple pour deux articles en prêt. a droite de cette colonne donc la colonne 9 (Date) j'inscrit par un bouton la date avec la fonction AUJOURDHUI format JJ/mm/aaaa.
j'aimerais quand je tappe 0 a la place de 2 comme dans l'exemple, je supprime la date en face. sachant que dans la colonne 8(Prêt) mon format est 0;-0;;@ ce qui me permet de ne pas afficher le 0 par rapport aux autre colonnes ou la il doivent etre visible.

Mon dossier comporte 9 feuilles nommées diferament mais identiques.(Catégorie)
Dans chaque feuille, j'ai ces codes là


Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("Prêt")) Is Nothing Then

   'Appel de la Macro Condition
   condition
   
 End If
 MSG = "Désirez vous connaitre le nombre d'articles en stock ?"
 reponse = MsgBox(MSG, vbQuestion + vbYesNo, "Wasnaire André")
If reponse = vbYes Then
Calcul
If reponse = vbNo Then GoTo lignefin
lignefin:
 End If
End Sub

Sub condition()
Range("Avertissement").Select
For Each cell In Selection 'Pour chaque cellule dans la selection
If cell.Text = "Plus en Stock" Then
cell.Font.ColorIndex = 3
End If
If cell.Text = "En Stock" Then
cell.Font.ColorIndex = 11
End If
 If cell.Text = "A Contrôler" Then
cell.Font.ColorIndex = 10
End If
Next
'Range("Prêt").Select
End Sub

Sub Calcul()
D = 2
Z = 0
    While Not Sheets("Feuil1").Cells(D, 7).Value = ""
    Z = Sheets("Feuil1").Cells(D, 7).Value + Z
    D = D + 1
    Wend
D = 2
ZZ = 0
    While Not Sheets("Feuil1").Cells(D, 4).Value = ""
    ZZ = Sheets("Feuil1").Cells(D, 4).Value + ZZ
    D = D + 1
    Wend
D = 2
ZZZ = 0
    While Not Sheets("Feuil1").Cells(D, 8).Value = ""
    ZZZ = Sheets("Feuil1").Cells(D, 8).Value + ZZZ
    D = D + 1
    Wend
MsgBox "Articles prêtés : " & Format(ZZZ, "") & "  " & _
" Quantité restante : " & Format(Z, "") & " Articles" & " sur " & _
Format(ZZ, "") & " Articles au total. ", vbInformation, "Wasnaire André"
End Sub



Private Sub Calendar1_Click()
    ' Met la date sélectionnée dans la cellule active
    ActiveCell.Value = Calendar1.Value
    ' Masque le calendrier
    Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 18 And Target.Row = 1 And Target.Row <= 18 Then
        ' Si la cellule sélectionnée est dans la plage qu'on veut lier au calendrier,
        ' on affiche le calendrier
        Calendar1.Visible = True
        ' Place le calendrier à côté de la cellule
        Calendar1.Top = ActiveCell.Top
        Calendar1.Left = ActiveCell.Left + ActiveCell.Width
    Else
        ' Sinon, on masque le calendrier
        Calendar1.Visible = False
    End If
End Sub

pouvez-vous m'aider svp.
merci par avance

via55 · Answer

Bonjour

Si je comprends bien :
Une date a été affichée en colonne 9
Tu veux en remplaçant le nombre précédemment mis en 8 par un 0 que la date soit supprimée

dans le code avant appel de la macro condition

IF target.value=0 then cells(target.row,9).value="":exit sub

devrait faire ce que tu veux

Cdlmnt

Papy Dédé · Answer

Merci à via55 c'est parfait, encore merci pour le coup de main.

Papy Dédé · Answer

E cliquant sur le bouton pour insérer la date dans la cellule de la colonne 9 j'ai mis ce message.
Malgres tout, on peut commettre l'erreur.
y a t'il un autre moyen.

Sub Datejour()
MSG = "Etes-vous sur d'avoir sélectionné la bonne cellule dans la bonne colonne (Date). ?"
reponse = MsgBox(MSG, vbQuestion + vbYesNo, "")
If reponse = vbYes Then GoTo Ligne1
If reponse = vbNo Then GoTo lignefin
Ligne1:
ActiveCell.FormulaR1C1 = "=aujourdhui()"
Exit Sub
lignefin:
Exit Sub
End Sub

Merci d'avance pour ton aide via55

Papy Dédé · Answer

Désolé,mon explication n'etait pas claire.
le calendrier n'a rien a voir, il sert a entrer une date superieure plus loin dans la feuille, justement pour comparer avec celle du bouton (mise en forme conditionnelle). je pense que je vais le supprimer (il empeche de faire des copier / coller) bug d'excel.
je reviens à mon probleme.
J'utilise un bouton pour entrer les date dans la colonne 9. donc je me place dans une cellule de la colonne 9 et je clic sur le bouton pour entrer la date. mais si par erreur je suis sur une autre cellules d'une autre colonne, je vais entrer cette date au mauvais endroit qui risque d'effacer le contenu de cette cellule d'ou ce message:

Sub Datejour() 
MSG = "Etes-vous sur d'avoir sélectionné la bonne cellule dans la bonne colonne (Date). ?" 
reponse = MsgBox(MSG, vbQuestion + vbYesNo, "") 
If reponse = vbYes Then GoTo Ligne1 
If reponse = vbNo Then GoTo lignefin 
Ligne1: 
ActiveCell.FormulaR1C1 = "=aujourdhui()" 
Exit Sub 
lignefin: 
Exit Sub 
End Sub 

j'espere que vous me suivez.
je suis un novice en vba 
peut on faire mieux que ce message?

encore merci pour votre aide.

Papy Dédé · Answer

Bonjour via55,

Pour le bouton, il insere la date avec la fonction AUJOURDHUI(). avec la macro que vous avez  indiquée, il insere la date systeme.donc ça colle pas pour moi.
je m'explique:
Je vous ai dit que dans la feuille a la cellule (1,18) j'avais le calendrier pour sélectionner une date, cette date sert de date butoir ce qui fait que quand j'arrive a celle-ci la date de ma colonne (9) passe au rouge. 
celà est t'il plus claire pour vous ?

Si vous avez une autre solution, se suis preneur.

sinon avec la macro double clic cela me va pour supprimer le bouton a condition que la date est la fonction AUJOURDHUI() et la je ne sais pas faire. 
chaque jour elle change pour arriver a la date butoire. 

sinon si on garde la date jour(systeme) comment faire lorsque l'on arrive a la date butoire pour changer sa couleur.

Avez-vous compris ce que je souhaite faire?

merci d'avance pour la réponse et désolé de vous prendre du temps avec ça.

Papy Dédé · Answer

Je voudrais bien envoyer le fichier mais je ne sais pas faire a part en fichier joint par mail. On vas proceder autrement.

j'explique:
Je prends un tableau de 175 lignes et 8 colonnes.
dans la colonne 1 (Nom) dans la colonne 2 (Prénom) Dans la colonne 4 (caution) dans la colonne 7 (costume) dans la colonne 8 (Date de prêt).

Dans la colonne 7 J'ai sur chaques lignes quand je clic dessus une liste deroulante avec toute une liste de costumes (données, validation).

Procedure 1:
Je clic sur une cellule de la colonne 7 apparait ma zone deroulante et je selectionne le costume. je veux que la date apparaisse dans la colonne 8. Quel est la procedure ?

Maintenant, dans la colonne 4 par exemple j'ai un chiffre 30 (caution) est des que je  met 0, je veux effacer le texte de la colonne 7 et la date  de la colonne 8. Quel est la prcedure ?

Procedure2:
Ou bien si je supprime le texte de la colonne 7 (Zone deroulante de la cellule), cela efface la date de la colonne 8 et met à 0 la colonne 4. Quel est la prcedure ?

es ce que mon explication est claire pour ce travail?

Maintenant, je voudrais mettre la date en rouge quand le costume n'est pas de retour a temps voulu. exemple 8 jours apres la date incrite. 
(dou la date butoire avec le calendrier qui incrit la date dans la cellule 18 de la ligne 1 de la meme feuille)
es ce que comme cela c'est plus explicite?

je vous remerci par avance de votre aide  et a bientot de vous lire.
j'espere que cette fois je vais pouvoir m'en sortir.

Papy Dédé · Answer

Bonjour via55,
 ce qui doit se mettre en rouge, c'est la date de prêt quand elle est = ou superieur a la date butoir.
je vais tester ce que tu as envoyé cet apres-midi.

J'espere terminer tout ça lorsque j'aurai la réponse

encore merci

Papy Dédé · Answer

Bonjour via55,

j'ai tester, ça vas impec il rete plus que la date(Date prêt) et sans vouloir abuser mettre en couleur bordure, fond et police de la colonne 1 et 2 (Nom,prénom) quand il y a une valeur en colonne 4 (Caution)  et qui se supprimera lorse que la valeur 0 apparait dans la colonne 4.

Je viens de recevoir le message pour la date, c'est la date prêt qui doit changer, la date butoir ne se voie pas à l'ecran vue qu'elle est placée dans la colonne(18).
C'est pour ça que quand je mettais avec le bouton la date prêt avec comme macro

ActiveCell.FormulaR1C1 = "=aujourdhui()"
celle-ci change tous les jour et quand elle arrivait a la date butoir, elle passais au rouge via la mise en forme conditionnelle.

Si c'est pas possible ce n'est pas grave. je ferrai sans.

j'aimerais terminer pour dimanche pour montrer à mon Amie, c'est elle qui vas s'en servir.

encore une fois merci pour ta gentillesse et ton service.
papy dédé

Papy Dédé · Answer

Bonsoir via55,

J'ai tenté l'envois par cjoint

http://cjoint.com/?3CiqxbyIFDx

quand tu verras le fichier, Ne rigole pas, je suis un amateur. j'ai supprimé pas mal de lignes pour reduire la capacité ( 5 Mo) tout ce que j'ai fait a part ce que tu m'a indiqué, je l'ai fait sur excel 7 Les modules sont en français et je l'ai enregistrer ensuite sur excel 2000 pour arriver a ce travail.
je suis plus que nul en Anglais tu comprends pourquois je n'arrive pas à faire certaines choses 
j'espere que tu vas comprendre ce que j'ai fait avec mes menus personnalisés

Bon courage et merci à l'avance

papy dédé

Papy Dédé · Answer

Re Via55,

J'espere que tu as reçu le fichier, je viens de tester la condition pour nom et prénom, cela ne fonctione pas.
As-tu testé de ton coté?

Papy Dédé · Answer

Re 
As-tu essayé avec la macro Auto_Ouvrir en principe, ce devrait-etre Auto_Open mais avec Auto_Open ça ne marche pas et la tu devrais avoir la page démarrage avec les menus perso.(Cours, Optiions, Gestion)
Dans le menu Cours il y a le Menu Excel qui lui affiche tout.


Pour la mise en forme conditionnelle j'avais trouvé, J'etais en L1C1

Je ne peu pas ouvrir le fichier que tu as renvoyé il a une extention XLSM
Enfin puisque tu as le fichier comprends-tu pour la date Prêt...

Papy Dédé · Answer

Bonjour via55,

je viens te tenir au courant de ce que j'ai fais concernant la fameuse date.
en fin de compte ce que je voulais, c'etait un genre de compte à rebour.
J'ai trouvé.
Quand on sélectionne la zone déroulante, on inscrivais la date. sauf que c'etait une date fixe. alors pour avoir la date "Aujourdhui" j'ai ajouté X = "=AUJOURDHUI()"
 Ce qui donne ceci:
X = "=AUJOURDHUI()"
lg = Target.Row
col = Target.Column
don = Target.Value
If col = 4 And don = 0 Then Cells(lg, 7).Value = " ": Cells(lg, 8).Value = " "
If col = 7 And df = 0 Then
If don <> "" Then Cells(lg, 8).Value = X Else Cells(lg, 8).Value = " ": Cells(lg, 4).Value = 0
End If

donc remplace Date par X et ça marche  la date change chaques jour pour arriver à la date butoir.
Quand penses-tu?

Juste une question comme tu es très fort,
J'ai un autre fichier pour gerer les costumes (9 feuilles representant la catégorie) dans une colonne et dans chaques cellule le Nom de ce costume. 
Avec inserer commentaire, je met une image. sauf qu'avec plus de 1700 costumes le fichier passe de 682 KO à 88244KO aurait -il un moyen d'aller chercher l'image dans son répertoir "Mes Images"? J'avais cherché il y a un moment sur le forum, mais je n'avais rien trouvé.
Peus-tu me répondre?

Encore une foi, merci pour t'on aide, cela m'a été précieux.

Papy Dédé · Answer

Merci pour le lien concernant l'import d'une image, mais pour moi c'est de l'hebreu, je ne vois pas lequel conviendrai à mon Fichier.
Si je t'envois mon fichier, peu-tu regarder?
merci d'avance.

Papy Dédé · Answer

OK c'est super, tu m'enleve une sacrée épine du pied

Voic le lien:
http://cjoint.com/?3ClrK3KX9Dy

Comme il est basé sur le même fichier que le précédent, pour l'ouvrir  exécute la macro Auto_Ouvrir, j'ai mis une explication dans la page "Liste costume Jazz" n'oublie pas que je travail avec Excel 2000 Extension .XLS du fichier. je supose que tu as une version plus récente!!!
Il Fait 1,09 Mo.

encore Merci pour t'on aide.
Papy Dédé

Papy Dédé · Answer

Bonjour via55,

Cette foi, c'est moi qui suis nul. Cela ne fonctionne pas, j'ai beau changer l'extension du fichier image, (mes images sont en.png) donc en transparence. (Elles m'ont servies aussi  à créer un catalogue).
Avec image dans le commentaire, tu sais que c'est la bonne image puisqu'elle a été sélectionnée. Mais la, comment sais-tu en survolant la cellule ou en faisant un double clic que c'est la bonne image qui va apparaître. Dis moi si je me trompe, mais la je ne comprends pas. Pour moi il manque quelque chose...
explique-moi je ne voudrai pas mourir idiot.

Papy Dédé · Answer

Remplace Auro_Ouvrir par Auto_Open, j'ai déja eu le cas et quelque foi ça fonctionne.

Papy Dédé · Answer

Re avec la premiere solution, j'avais pas compris pour image3 dans la colonne 13.
J'ai donc fait un essais avec trois images extension Gif
2 sur 3 ont fonctionnées

Pour la solution suivante tout en gardant les images.png j'ai pas compris, il n'y a plus d'userform dans le code 
Je fini par m'y perdre...

Papy Dédé · Answer

Re,
Je suis daccort avec toi, la solution de l'userform et mieux, en effet, j'avais un interval de trop dans le nom de l'image.
A moi de jouer, je verrai cela à mon retour d'exam medicaux.

encore merci pour le coup de main et à bientot.
je te tiens au courant.
Papy Dédé

Papy Dédé · Answer

Bonjour via55
J'ai enfin terminé, et je voulais te remercier pour t'a précieuse aide.
A + peut-etre et encore MERCI...

Papy Dédé · Answer

Bonjour Via55

Nous somme le Vendredi 19 Avril 2013, et comme tu connais le fichier sous excel 2000, je sollicite ton aide.
Ma question est:
Comme j'ouvre chaques feuilles à l'aide d'un menu personnalisé, je voudrais supprimer le message d'alerte de protection de la feuille à l'ouverture de celle-ci tout en conservant sa protection.
Que devrais-je ajouter dans mon module d'ouveture de feuille (module qui ouvre la feuille et personnalise le Menu) pour supprimer ce message sachant qu'a la fin de ce module , j'active la protection de la feuille avec ce code: Sheets("Liste Costumes Jazz").Protect "1960", True, True

Donc quand je quitte cette feuille je ne puisse pas à sa nouvelle ouverture avoir ce message d'alerte (comme si la feuille n'etait pas protegée)

Peut-tu m'aider?
j'espere que cela ne te derange pas et que tu auras la solution.
Merci à toi via55

Papy Dédé

Papy Dédé · Answer

Bonjour via55

javais fait comme tu dis, mais il me demandais le mot de passe à l'ouverture, surement une erreur de ma part.
au début de mon module, j'ai donc mis ceci : ActiveSheet.Unprotect "1960" et a premiere vue cela fonctionne. je n'ai plus qu'a le faire pour chaque feuilles. J'avais essayé pour toutes les feuilles  avec ceci :

Sub protege()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    sh.Protect "1960"
Next sh
End Sub
'
'
Sub deprotege()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    sh.Unprotect "1960"
Next sh
End Sub

mais ça ne me plaisais pas vue qu'il faisait toutes les feuilles au démarrage de celle demandée.

encore merci pour ton aide 
Papy Dédé

Papy Dédé · Answer

Re Via55

Je viens de m'apercevoir maintenant que la feuille est protegée, lorsque je fais un double clic dans la cellule pour faire apparaitre l'image  à l'aide de UserForm1.Show, a la fermeture de celle-ci, il me dis que la feuille est protégée Hors si je déverrouille celle-ci une mauvaise manipe de la personne et le texte est supprimé. 
comment faire sans déproteger la cellule pour ne pas que ce message s'affiche?

Papy Dédé · Answer

Bonjour via55,

désolé pour le retard, j'ai abandoné pour la protection, trop de problêmes.
par contre, j'ai du tout reprendre car il a falue ajouter 2 colonnes suplémentaires ainsi que 26 feuilles pour qu'a l'écran, je n'ai que 35 lignes (Nb de lignes à l'écran) sans compter les menus personnalisé (Module suplémentaire (29) presqu'autant que de feuilles).mais j'arrive bientôt au bout.
Voilà, je voulais te tenir au courant.

J'aurais besoins de t'on aide si tu as du temps,
Je voudrais créer dans un userform (sous excel7 avec la boite de dialogue je savais faire) mais là je seche, une legende representant une ou deux cellules colorisé avec marqué Texte à l'interieur et sa signification en face. à ouvrir à partir du menu perso.

Si tu as une idée et surtout la solution, merci à toi et encore merci pour t'on aide et ta gentillesse.

Papy Dédé

Papy Dédé · Answer

Bonjour via55,

message reçu, j'esperais que tu avais réparéton ordi.

Pour te tenir au courant en ce qui concerne l'usrforme pour ma légende, je ne savais pas que l'on l'on pouvais modifier le label.

Avant de t'avoir posé la question, j'avais fait des essais et je n'y arrivais pas.
la seul difficulté pour moi c'est de remplire avec une texture du format cellule.
celle par exemple dans motif qui se trouve en 4 de la liste (avec des points gris à 12,5%) encrée dans la cellule, même si avec une mise en forme conditionnelle on ajoute une autre couleur.
Je me gratte la tête en me demandant si il ne vaux pas mieux que je cré une image similaire, qu'en penses-tu?

A bientot de te relire et merci à toi si tu as une autre idée.

Papy Dédé · Answer

Re via55

C'est ce que j'ai fait avant de recevoir ton message et ça fonctionne impec.
Il ne me reste plus qu'a rajouter ma commande dans mes menus personnalisés.
Je deviens bon même si je ne suis pas aussi bon que toi.
(C'est en forgeant que l'on deviens forgeron)

Je te souhaite une bonne journée et peut être à bientôt...
Papy Dédé

Papy Dédé · Answer

Bonjour via55
ça fait un bail...
Je viens prendre de tes nouvelles car j'aurais besoins de tes compétences si tu as de nouveau ton ordi avec excel. et surtout si tu as du temps.
Tiens moi au courant.
Merci 
A+ 
Papy Dédé

Papy Dédé · Answer

Bonjour via55,

Je t'explique en gros mon projet:
J'avais 2 fichiers avec lesquels je gère des non d'élève de cour de danse de deux villes  à horaires divers pour distribuer des costumes pour le spectacle de fin d'année. Dans une simple feuille de calcul avec  mise en forme conditionnelle. Et quelques macros que tu m'as indiquées ou que j'ai trouvée sur le forum.

Je voudrais gérer tout cela à l'aide d'une boite de dialogue dont je suis en train de faire la maquette sur Excel7. plus facile pour moi vue que je maîtrise mal l' userform. Donc un travail que je maîtrise mal en vba

Si tu es tenté je pourrai t'envoyer ce fichier excel7 si tu peut le lire avec libre office surtout la boite de dialogue. et m'aider sur ce que je ne sais pas faire (c'est à dire à peu prêt tout).
en attendant de te relire je te dis merci est 
A+
Papy Dédé

Papy Dédé · Answer

Bonjour via55,

Voici comme prevu le fichier excel7.

http://www.cjoint.com/?3EFqrFc2D2i

pour le cas ou tu ne peut le lire avec libre office voici un fichier Word avec image et explication.

http://www.cjoint.com/?3EFqwS3KqaW

Je pense que tu pourras le lire avec libre office

A +
Papy Dédé

Papy Dédé · Answer

Re  Bonjour via55

au cas ou tu ne peut lire le fichier Word avec libre office voici le fichier convertion PDF

http://www.cjoint.com/?3EFsKdmr9aD

A+
Papy Dédé

Papy Dédé · Answer

Bonjour via55

Désolé pour les fichiers que tu as envoyé et tu as du passé du temps, mais je n'ai rien compris du tout.
As-tu bien reçu le fichier explicatif  word ou celui au format PDF que j'avais joint avec le fichier Excel ?

Dans ces 2 fichiers il y avait l'image de la boite de dialogue et toutes les explications.

Merci pour le temps que tu as passé mais qui ne correspond pas à ce que je souhaite.

A+
Papy Dédé

Papy Dédé · Answer

Bonjour Via55

Un fichier joint pour explications

http://cjoint.com/?3FnrfGQ1L1l

A+

Papy Dédé

Un coup de main pour regler mon probleme.

31 réponses

Discussions similaires