[Résolu][Calc]Modifier paramètre d'enregistrement

[maxime14000]

Bonjour a tous, je me permet de poster ici après avoir chercher dans le forum sans trouver "mon bonheur"
Je sui en train de créer un fichier pour remplir des caisse journalière pour restaurant et j'ai un problème particulier sur la partie enregistrement.
j'ai une feuille de saisie (saisie) et une feuille de récap des données (devis).
dans ma feuille récap en colonne A ont retrouve les dates sous un format comme suit: B-01-01-2022-1
dans ma feuille saisie en cellule F12 j'ai repris (validité de donnée) le format date de la colonne A de la feuille devis. lorsque je sélectionne une journée cela fonctionne.

en fait le code fonctionne mais le problème est double:
Premièrement je souhaiterais pour facilite la sélection avoir un format de sélection en F12 plus classique comme 01-01-2022 ... mais si je change le format de sélection cela ne fonctionne plus! je n'arrive pas dans le code a recherche par rapport au jour et au mois de de la date selectionner de la cellule F12 page saisie.
de plus le code original enregistrais sans collectionner de date automatiquement et donc creer un numéro comme suis

Code : Tout sélectionner

Numero = "D" & CStr(year(now)) & CStr(format(month(now),"00"))& "-" & CompterLignes("Devis")

il est donc imperatif pour les reste du document et du code que l'on puisse respecter ce format la..
je souhaiterais donc que le code reprenne le format original et que CStr(year(now)) coresponde à l'année que l'utilisateur aura sélectionner en F12, que CStr(format(month(now),"00")) corespondent au mois que l'utilisateur aura selectionner en F12. je rajouterais bien le jour aussi par la meme occasion.


Code adapté qui fonctionne

Code : Tout sélectionner

			Recherche = Devis.createSearchDescriptor() 'on recherche le brouillon corespondant
	With Recherche
 			.SearchString =  Saisie.getcellrangebyname("F12").string
			.SearchWords = True
	End With
	Trouve = Devis.findFirst(Recherche)
	i = Trouve.cellAddress.row
	if 	Devis.getcellrangebyname("M" & i + 1).string <>"" then 'déjà suivie
		MsgBox "Brouillon déja enregistré No " & Devis.getcellrangebyname("M" & i + 1).string, ,"CaisseRestaurant"
		exit sub
		end if
End Select
Numero = Saisie.getcellrangebyname("F12").string
'Numero = "D" & CStr(year(now)) & CStr(format(month(now),"00"))& "-" & CompterLignes("Devis")

comme certain le reconnaitrons , j'ai repris un code complet que j'ai adapter et qui fonctionne après de nombreuse heure passez dessus, mais je vous avoues que je ne m'y connais pas assez caller pour régler ce problème ci..
afin de bien comprendre le fichier , j'ai expurger le fichier de tout les autres codes et laissé que pour l'enregistrement
j'aurais vraiment besoin d votre aide si quelqu'un passe par ici..???

[Dolev]

Bonjour,


Que faut-il faire avec ton classeur ?
Si je clique sur la liste en F12, il ne se passe rien.

Il y a 3 modules avec 50 macros dedans, tu dois te mettre un peu à la place de ceux qui aident.

[maxime14000]

bonsoir,

Dolev
Que faut-il faire avec ton classeur ?
Si je clique sur la liste en F12, il ne se passe rien.

Désolé, mais je suis tellement sur le fichier en essayant de trouver des solutions que j'en oubli le principale et les explications quand a son utilisation...
c'est un classeur exemple simplifier et expurger d'une partie du code destiné au validation, vérifications, stat, diagramme, paramètres ect..
le but du classeur est d'enregistrer les données saisie de la feuille (saisie) en cherchant la date dans la feuille (devis) colonne A.
pour, enregistrer il faut ce mettre sur brouillon, sélectionner la date en F12, remplir E15, E16,N23 et appuyer sur enregistrer
le format en F12 de la page saisie est identique au format de la colonne A de la page devis. la recherche est donc facile mais le format en F12 (B-01-01-2022-1) n'est pas top pour la sélection.
je souhaiterais pourvoir sélectionner la date comme suit: 01-01-2022 (F13 de la page saisie) et que l'on recherche B-01-01-2022-1.
enfin pour que le reste du code fonctionne et que le document soit fonctionnel il faut que l'on garde la structure d'enregistrement ci dessous. Le numéro sert à versifier et a valider, le mois, l'année pour les stats, récap CA ect et j'ai rajouter les jour aussi.

Code : Tout sélectionner

Numero = "B" & CStr(year(now)) & CStr(format(month(now),"00"))

en fait il faudrait que le code puisse reconnaitre la date sélectionner en cellule F13 au format (01-01-2022), que CStr(year(now)) soit = a l'année sélectionnée (2022), que CStr(format(month(now) soit = au mois sélectionné et pareil pour le jour.
c'est sur ce point précis que je bloque...je ne sais pas comment faire, je vous avoue que c'est trop pointus pour mois!

enfin pour la recherche je pensais modifier;

Code : Tout sélectionner

Saisie.getcellrangebyname("F12").string

par

Code : Tout sélectionner

 Mid(Saisie.getcellrangebyname("F12").string,2

[Dolev]

Pourquoi ne prends tu pas la date de la colonne C dans ta feuille Devis ?

[maxime14000]

Pourquoi ne prends tu pas la date de la colonne C dans ta feuille Devis ?

Bonjour et tout d’abord merci de vous intéresser au problème.
La date dans la colonne C correspond à la date, à laquelle on enregistre la caisse. Elle ne correspond pas aux dates du calendrier annuel.
Après s’il faut en effet je pourrais rajouter une colonne dédier spécifiquement au date du calendrier. De toute façon à terme les 365 jours correspondant 365 lignes implémenter de la date pour pouvoir la rechercher, Mais J’aurais souhaité au maximum garder l’ensemble de la structure du numéro sur une seule colonne et de préférence À (de la feuille devis), car après derrière ça fait du boulot pour modifier tout le reste du code qui ne ce concentre que sur une seule cellule.
Mais si on a pas le choix .??

[Dolev]

Re,

Mais J’aurais souhaité au maximum garder l’ensemble de la structure du numéro sur une seule colonne et de préférence À

Rien ne t'empêche de mettre cette colonne à la fin et de la masquer si elle te gène.

[maxime14000]

Re,

Rien ne t'empêche de mettre cette colonne à la fin et de la masquer si elle te gène.

Malgré mes inquiétudes a modifier l'enregistrement de cette façon là, j'ai suivit vos conseil en modifiant les colonnes dans la page devis et j'ai modifier aussi l'enregistrement et la visualisation afin d'atteindre le but souhaiter. Pour l'instant cela fonctionne pour l'enregistrement et la visualisation. Malgré tout, j'ai du enlever la fonction "compterligne" dans l'enregistrement(qui ne sert plus dans mon cas) puisquon cherche une date dans une colonne. Pour que le document final fonctionne bien j'ai mis "compterlignes" après l'enregistrement comme suit:

Code : Tout sélectionner

if CompterLignes("Devis") > 1 then
deverrouillerPlage("Devis","A2:A" & CompterLignes("Devis"))
verrouillerPlage("Devis","A2:A" & CompterLignes("Devis"))

le code fonctionne correctement mais comme j'ai effectuer beaucoup de modification et avant de l'incorporer dans le dossier final, pourriez regarder si la partie du code pour "enregisterdevis" et "voirdevis" est bien "conçu"..?

[Dolev]

Re,

Pour l'instant cela fonctionne pour l'enregistrement et la visualisation.

Dans ce cas, il faut mettre [Résolu]

Et ouvrir d'autres sujets pour d'autres questions