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.

 

[sylvanu]

renvoyez votre fichier avec la nouvelle colonne, et exactement sur quoi il faut trier.

 

[Nonomix]

Voici mon tableau,

Je comprend pas pourquoi le tri ce place vers les A 70 A80.
Cela fait des heures que je cherche en vain.

 

[sylvanu]

Vous avez un pb sur votre fichier, ça me plante XL et il est impossible d'enregistrer une macro.
Voici une V14 avec tri décroissant sur la date.
Comme la date n'était pas inscrite, je l'ai ajoutée. J'ai mis par défaut la date de création de la feuille. C'est facile à modifier si ce n'était pas ça.

 

[Nonomix]

Vous avez un pb sur votre fichier, ça me plante XL et il est impossible d'enregistrer une macro.
Voici une V14 avec tri décroissant sur la date.
Comme la date n'était pas inscrite, je l'ai ajoutée. J'ai mis par défaut la date de création de la feuille. C'est facile à modifier si ce n'était pas ça.

Oui j'ai eu aussi des beug de mon coté, j'ai remis les codes à l'identique et je n'ai plus de beug (pourvu que cela dure).

J'ai modifier la date (c'est celle rentrer dans le formulaire)

En fin de macro je suis sur une autre feuille que la nouvelle, comment je peut faire ?

 

[sylvanu]

Sheets("Nom de la feuille").Select

 

[Nonomix]

Sheets("Nom de la feuille").Select

Justement le nom de la feuille change à chaque formulaire.

 

[sylvanu]

Et alors? Le nom de la feuille c'est TextBox4.value.

Ça vous rappelle rien :

Sheets("FEUILLE TYPE A COPIER (2)").Name = TextBox4

Ce code est de vous.

 

[Nonomix]

Et alors? Le nom de la feuille c'est TextBox4.value.

Ça vous rappelle rien :

Sheets("FEUILLE TYPE A COPIER (2)").Name = TextBox4

Ce code est de vous.

Oui mais je doit dire que j'arrive plus à me concentrer avec les enfants...

 

[Nonomix]

Oui mais je doit dire que j'arrive plus à me concentrer avec les enfants...

...Et une grosse peur de replanter encore une fois le système.

 

[sylvanu]

J'ai supposé que vous vouliez revenir sur la feuille qui vient d'être crée.
par contre je n'ai pas changer la date dans la liste, j'ai gardé celle de la création.
mais ça vous avez déjà fait, il suffit de reproduire.

 

[Nonomix]

J'ai supposé que vous vouliez revenir sur la feuille qui vient d'être crée.
par contre je n'ai pas changer la date dans la liste, j'ai gardé celle de la création.
mais ça vous avez déjà fait, il suffit de reproduire.

Oui mais chez moi la nouvelle feuille se nomme "FEUILLE TYPE A COPIER (2)".

 

[Nonomix]

Oui mais chez moi la nouvelle feuille se nomme "FEUILLE TYPE A COPIER (2)".

En fait non, j'ai l'erreur "L'élément portant ce nom est introuvable" sur le code "Sheets(FeuilDeRetour).Select"

 

[sylvanu]

Vous avez fait créer une feuille ?
Je viens de revérifier, ça marche.
il y a bien la ligne :

Public FeuilDeRetour As String

au début de Sécurité ?

 

[Nonomix]

Vous avez fait créer une feuille ?
Je viens de revérifier, ça marche.
il y a bien la ligne :

Public FeuilDeRetour As String

au début de Sécurité ?

Oui, moi dans mon tableau final le code pour le tri est dans le module 1, j'ai donc inséré

Public FeuilDeRetour As String

au début, puis mon code tri

mais j'ai l'erreur "L'élément portant ce nom est introuvable" sur le code "Sheets(FeuilDeRetour).Select"

 

[sylvanu]

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

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.