Autres Excel 2007 : Problème validation formulaire vba

Nonomix · 5 Mai 2020

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.

sylvanu · 7 Mai 2020

Donc vous n'avez pas insérer la ligne au bon endroit :

VB:

ActiveSheet.Unprotect (mdp)
Sheets("FEUILLE TYPE A COPIER (2)").Name = TextBox4
FeuilDeRetour = TextBox4 ' pour le retour après l'action sur Recap

feuilderetour doit être après le renommage.

Nonomix · 6 Mai 2020

sylvanu à dit:
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 · 6 Mai 2020

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 · 6 Mai 2020

sylvanu à dit:
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 · 6 Mai 2020

Nonomix à dit:
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 · 6 Mai 2020

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

VB:

' 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 · 6 Mai 2020

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

VB:

' 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 · 6 Mai 2020

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 · 6 Mai 2020

sylvanu à dit:
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 · 6 Mai 2020

Nonomix à dit:
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 · 6 Mai 2020

Faites moi un point demain.
Bonne nuit.

Nonomix · 7 Mai 2020

sylvanu à dit:
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 · 7 Mai 2020

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

Nonomix · 7 Mai 2020

sylvanu à dit:
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 · 7 Mai 2020

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

Nonomix · 7 Mai 2020

sylvanu à dit:
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 !!!

Autres Excel 2007 : Problème validation formulaire vba

Nonomix

XLDnaute Nouveau

Pièces jointes

sylvanu

Nonomix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Nonomix

XLDnaute Nouveau

Nonomix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Nonomix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Nonomix

XLDnaute Nouveau

Nonomix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Nonomix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Nonomix

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Nonomix

XLDnaute Nouveau

Discussions similaires