Autres Excel 2007 : Problème validation formulaire vba

[Nonomix]

Bonjour,

J'ai dans le formulaire le TextBox4 qui m'indique le nom saisie dans le TextBox1 (je voudrais aussi indiquez le premier caractère du TexteBox2 avec un espace entre les 2). Je sais pas comment on fait.

Le TextBox 4 est fait pour avoir le nom de la feuille, j'aimerais savoir si il y a possibilité de faire une recherche dans les noms de feuille afin de ne pas avoir ni erreur VBA ni 2 feuilles portant le même nom si ce cas ce présente avoir un message demandant de changer de nom de feuille.

Pour la date, j'ai 3 TextBox mais n'est pas vraiment opérationnel, en effet j'ai un message d'alerte lorsque la date est mauvaise mais quand je fais ok, je reviens au formulaire, mais la nouvelle feuille se créer quand même à ce moment plutôt que seulement quand la date est bonne.

Et pour finir un code qui déverrouille pour la structure (qui est bloquer par un code) pour que la macro se fasse et reverrouille la structure à la fin.

Merci à celui peut m'expliquer comment résoudre mon soucis.

 

[Nonomix]

Oui.
Au départ on fait une copie cachée, renommée.
Si feuille absente on la duplique avec format, valeurs, boutons .... MAIS sans aucune donnée.
Ça dépend de votre stratégie. Supprimer Recap permet de retrouver la feuille mais sans les données que vous avez mises dedans.

Dans ma feuille type à copier et dans ma feuille recap il y a des formules, la feuille recap est le feuille ou on retrouve les informations annuel de toutes les feuilles donc essentielle.

 

[sylvanu]

Voilà la V10.
Feuille type et Recap sont reconstruites si elles sont supprimées.
Evidemment si des modifications doivent être apportées à ces feuilles, elles doivent se faire Sur les références masquées : Ne pas toucher, et Ne pas toucher Recap.
Ensuite il suffit de supprimer les feuilles type et Recap pour qu'elles se reconstruisent.

 

[Nonomix]

Voilà la V10.
Feuille type et Recap sont reconstruites si elles sont supprimées.
Evidemment si des modifications doivent être apportées à ces feuilles, elles doivent se faire Sur les références masquées : Ne pas toucher, et Ne pas toucher Recap.
Ensuite il suffit de supprimer les feuilles type et Recap pour qu'elles se reconstruisent.

Merci, je viens de m'apercevoir que j'avais oublier de préciser que le nom inscrit dans le TextBox4 doit aussi se mettre dans la feuille "RECAP" de R5 à Rxx mais je ne connais pas le code.

 

[Nonomix]

Merci, je viens de m'apercevoir que j'avais oublier de préciser que le nom inscrit dans le TextBox4 doit aussi se mettre dans la feuille "RECAP" de R5 à Rxx mais je ne connais pas le code.

C'est pour une base de liste déroulante à mettre en A.

 

[sylvanu]

Re Bonjour,
Pour le coup vous n'avez pas dû chercher beaucoup :

' Insertion Textbox4 dans la liste de Recap Col R, à partir de R5.
DerLig = Application.WorksheetFunction.CountA(Sheets("Recap").Range("R5:R500"))
Sheets("Recap").Range("R" & DerLig + 5) = TextBox4.Value

 

[Nonomix]

Pour le coup vous n'avez pas dû chercher beaucoup :

' Insertion Textbox4 dans la liste de Recap Col R, à partir de R5.
DerLig = Application.WorksheetFunction.CountA(Sheets("Recap").Range("R5:R500"))
Sheets("Recap").Range("R" & DerLig + 5) = TextBox4.Value

Merci, mon code était incomplet,

J'ai encore une question, je sais encore une de plus mais je souhaiterais que la liste en R (qui est un tableau) soit trier en fin de macro ?

 

[sylvanu]

Je vous dit que vous avez peu cherché, vous me répondez mon code était incomplet.
Vous pourriez expliquer ?

Ci joint la V12 avec le tri.

 

[Nonomix]

Je vous dit que vous avez peu cherché, vous me répondez mon code était incomplet.
Vous pourriez expliquer ?

J'avais juste : Sheets("Recap").Range("R" & DerLig + 5) = TextBox4.Value


Visiblement il y a juste a rajouter tri en dessous du code

DerLig = Application.WorksheetFunction.CountA(Sheets("RECAP").Range("R5:R500"))
Sheets("RECAP").Range("R" & DerLig + 5) = TextBox4.Value

mais j'ai une erreur de Compilation : Sub ou Fonction non défini

quand je l'intègre a mon tableau.

 

[Nonomix]

J'avais juste : Sheets("Recap").Range("R" & DerLig + 5) = TextBox4.Value


Visiblement il y a juste a rajouter tri en dessous du code

DerLig = Application.WorksheetFunction.CountA(Sheets("RECAP").Range("R5:R500"))
Sheets("RECAP").Range("R" & DerLig + 5) = TextBox4.Value

mais j'ai une erreur de Compilation : Sub ou Fonction non défini

quand je l'intègre a mon tableau.

C'est bon j'avais oublier la macro du tri. Je vais me reposer et reprendrais un peu plus tard.

 

[sylvanu]

Faites moi un point demain.
Bonne nuit.

 

[Nonomix]

Faites moi un point demain.
Bonne nuit.

Bonjour,

Le tri fonctionne bien mais j'ai légèrement modifier mon tableau, j'ai ajouté les date de début sur la colonne d'a côté (la date de début à A est toujours à côté de A) car je souhaite trier de la date la plus récente à la date la plus ancienne.

 

[sylvanu]

Bonjour,
Donc tout est bon ? Il n'y a plus de bug ? c'est parfait.

 

[Nonomix]

Bonjour,
Donc tout est bon ? Il n'y a plus de bug ? c'est parfait.

Il me manque juste le code pour trier en ordre décroissant

 

[sylvanu]

Adaptez la macro Tri que j'ai mis hier dans le module Sécurité.

 

[Nonomix]

Adaptez la macro Tri que j'ai mis hier dans le module Sécurité.

Je cherche,

J'ai essayer de remplacer :
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Par :
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

pour le moment c'est en vain !!!