Consultation de fiche pb de code

[lolo_bob2]

bonjour

Encore un soucis sur le programme
Je voudrais consulter mes fiches et pour cela j'ai le bouton sur le menu général ensuite je rentre le Mot de passe "MP" puis je rentre mon numéro de fiche ici N° 11 mais là ça beug et je ne vois pas le problème

Pouvez vous m'aider

Merci beaucoup

A++

Lolo

 

[Spitnolan08]

Re : Consultation de fiche pb de code

Bonjour,

Tout bêtement parce que le nom de ton ComboBox n'est pas bon : "client" et pas "cient"...

Cordialement

 

[Spitnolan08]

Re : Consultation de fiche pb de code

Re,

Mais aussi parce qu'il n'y a pas de contrôle s'appelant "Ref4", ni "N" ni....

Il faudrait que tu fasses le ménage dans ton code pour savoir de quoi tu as réellement besoin. Ensuite lorsque tu auras rangé ton bureau, tu y verras surement plus clair!😉

Cordialement

 

[lolo_bob2]

Re : Consultation de fiche pb de code

Merci Spitnolan,

Après vérification il est vrai que j'avais quelques erreurs...
Malgré les corrections j'ai toujours un beug...

En plus ce que j'aimerais c'est qu'a chaque fois que j'ouvre une fiche un numéro lui soit attribué à la place des "XX" mais pour moi ça commence à devenir difficile.

Merci de votre aide

 

[Spitnolan08]

Re : Consultation de fiche pb de code

Re,

Il faut modifier dans ton code :

  T = Sheets("Base").Range("K65536").End(xlUp).Row + 1

Sinon tu appelles une ligne qui n'existe pas : la 65537ème....

Pour régler ce genre de problème utilise le débogage en pas à pas ou lorsque ta macro plante regarde la partie de code surlignée.

Cordialement

 

[Compte Supprimé 979]

Re : Consultation de fiche pb de code

Salut Spitnolan08,
Salut Lolo_bob2,

C'est vraiment pas top les macros qui nous vire les barres d'outils, nous mets en plein écran, sans tout remettre en ordre après 😱

Edit : Merci Spitnolan, effectivement ce n'est que du plein écran

 

[Spitnolan08]

Re : Consultation de fiche pb de code

Re,
Bonjour BrunoM45,

C'est vraiment pas top les macros qui nous vire les barres d'outils, nous mets en plein écran, sans tout remettre en ordre après 😱

Tu as raison mais le code ne vire pas les barres. Il affiche seulement en plein écran. Donc ce n'est pas difficile de remettre en place.

Toutefois une macro de fermeture adhoc serait agréable...

Cordialement

 

[lolo_bob2]

Re : Consultation de fiche pb de code

Merci pour votre aide

Concernant l'affichage j'ai fais ça car le fichier va être installé dans notre atelier et il y a souvent des petits malins qui touvhe à ce qu'il ne faut pas...

 

[lolo_bob2]

Re : Consultation de fiche pb de code

Rebonjour

Concerant la fermeture adhoc je pourrais en savoir un peu plus ?

Merci

A++

 

[Spitnolan08]

Re : Consultation de fiche pb de code

Re,

Dans le module ThiWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub

et, au passage remplacer par ton auto_open par

Private Sub Workbook_Open()
Sheets("Base").Select
Application.DisplayFullScreen = True
Menug.Show
End Sub

à placer au même endroit que le précédent.

Cordialement

 

[Compte Supprimé 979]

Re : Consultation de fiche pb de code

Re,

Tu peux mettre ce code dans "ThisWorkbook"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Sheets("Base").Select
  Application.DisplayFullScreen = False
End Sub
 
Private Sub Workbook_Open()
  Sheets("Base").Select
  Application.DisplayFullScreen = True
  Menug.Show
End Sub

Ensuite tu peux supprimer ton module 1 et 2 (sans code)

Voilà 😉

Edit : Oups, Spitnolan a été le plus rapide

 

[lolo_bob2]

Re : Consultation de fiche pb de code

Merci beaucoup


je vais faire cette modif par contre j'ai encore deux soucis et oui j'apprends sur la tas comme on dit donc pas évident...

Voila je voudrais quand j'ouvre ma fiche le numéro de celle ci s'affiche par exemple j'ai déjà 8 fiche si j'en ouvre une autre le numéro sera 9 à la place de XX

Le second problème et lorsque je consulte les fiches si je rentre la fiche à consulter numéro 1 le numéro qui s'affiche sur cette fiche et le 2 je comprend pas pourquoi ?

Merci de votre aide

 

[Compte Supprimé 979]

Re : Consultation de fiche pb de code

Voila je voudrais quand j'ouvre ma fiche le numéro de celle ci s'affiche par exemple j'ai déjà 8 fiche si j'en ouvre une autre le numéro sera 9 à la place de XX

C'est fait, il suffit de récupérer le dernier numéro de fiche et d'incrémenter de 1 la valeur.

Le second problème et lorsque je consulte les fiches si je rentre la fiche à consulter numéro 1 le numéro qui s'affiche sur cette fiche et le 2 je comprend pas pourquoi ?

Problème régler, dans ta boucle "For I = 2 to T" tu commence à 2, puisqu'il existe une ligne d'entête.
Donc la valeur Z pour être valable, doit être décrémentée de 1 😉

Voir fichier joint.

 

[lolo_bob2]

Re : Consultation de fiche pb de code

Merci

Mais pour le second problème ca ne fonctionne pas vraiment. le numéro est correcte mais les données de ma feuille "Base" ne s'affiche pas correctement
En fait quand je tape 1 j'ai le nom de mes champs d'entete dans ma fiche.

Merci de ton aide

A++

Lolo