qui peu m'aider en vba pour faire fonctionne les UserForm

job75

XLDnaute Barbatruc
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Re,

Effectivement, je ne sais pas ce qui se passe sur 2007, et je n'irai donc pas plus loin. Mais le dernier fichier est mieux sans l'instruction End.

Pour en terminer avec les derniers points en suspens, voici la version (25) :

Cijoint.fr - Service gratuit de dépôt de fichiers

1) le programme ne trouvait pas un article parce qu'il y a un espace à la fin du texte, alors que je supprime dans les ComboBox et TextBox les espaces superflus. Pour que ça ne puisse plus se produire, j'ai modifié pour que ça marche quelque soit le texte qui se trouve dans la base (pour les majuscules et espaces).

2) J'ai ajouté un bouton Supprimer dans l'USF6 (Unités) et l'USF7 (Fournisseurs). Quand on supprime un fournisseur, ses articles sont aussi supprimés.

Voilà, je crois que c'est vraiment terminé pour moi cette fois.

A bientôt David :)
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

merci beaucoup grand chef

bon j'ai fais un teste, je sais pas trop ce que tu as fais ou moi, quand j'ai réinstaller excel 2007, mais bon je l'ais fais une fois, apparament il a fonctionné pour enregistrer quand j'ai imprimer le bon de commande.et quitter ensuite.

je referais un autre essaie car dans le coup j'ai teste les unités , en creant une unités quand je valide il bug.

voici le code

Private Sub CommandButton2_Click() 'Liste des articles
Unload UserForm6
Load UserForm2
End Sub

Private Sub CommandButton3_Click() 'Menu général
Unload UserForm6
End Sub

Private Sub CommandButton4_Click() 'Créer
Dim ref As Range
If ComboBox1 = "" Then TextBox6.SetFocus: Exit Sub
With Sheets("Base")
If IsNumeric(Application.Match(Cherche(ComboBox1), .Range("Unité"), 0)) Then _
MsgBox "Unité déjà créée", 48: ComboBox1.SetFocus: Exit Sub
Set ref = .Range("Base_Unité").Offset(1).Find("", LookIn:=xlFormulas)
ref = Trim(ComboBox1)
Call Bordures(.Range(ref, ref.Offset(0, 1)))
.Range("Unité").Sort Key1:=.Range("Unité").Columns(1), Order1:=xlAscending, Header:=xlNo 'tri de la base
MsgBox "L'unité est créée"
TextBox6 = ""
TextBox6.SetFocusEnd With
End Sub

je refais d'autres teste pour revoir si on peu enregistrer et au niveau du démarrage il me donne l'image que je joint comme boite

encore mille merci job75 de toutes les maniéres de m'avoir aidé

david
 

Fichiers joints

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

non laisse tomber job75 j'ai refais un teste apparament sa deconne toujours.

écoute je pence que je vais réinstaller EXCEL 2000 et vais voir pour le boulot si je peux mettre cette version.

car je trouve dommage d'avoir passé du temp comme sa, que je pence que c'est une trés bonne aide pour moi, sur tous les points de vu, pour mes commandes, les fournisseurs, les groupements d'achats.

la actuellement je n'ais rien je passe du temp a cherche sur chaque fournisseur, son groupement d'achat quand au prix je n'en met pas car a la mains c'est trop de temp, bref il faut que moi je me trouve un moyen.

ou que je refasse sur accées si c'est pas possible au boulot, bref pour toi je tiens vraiment a te remercier pour ton aide, trés sincérement.

et j'espére te revoir sur le forum un jour que que sa sois toi qui me demande un service.

encore merci job75

je te tiens au courant de toutes façon, de ce qu'il en est pour le futur, de notre projet, car c'est autant le tiens que le miens.

trés trés bonne soirée job75.

amicalement david
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

ok merci grand chef de tout ce que tu ma fais sincérement.

j'ai demandé de l'aide sur le forum EXCEL 2007 si quelqu'un a déja rencontré ce probléme.

Je te tiens au courant, c'est un expert qu'il me faut comme toi grand chef du vb version 2007.

un grand grand merci

david
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

salut job75

c'est david je te tiens au courant j'ai essayé sur excel du boulot version 2007.

il a pas fonctionné malheureusement, mais bon je vais essayer de trouver .

bon soirée a toi
david
 

job75

XLDnaute Barbatruc
Dernière édition:

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Bonsoir job75

Je viens de rentrer du boulot, donc j'ai essayé la version 26 qui ne fonctionne pas sur 2007.

Par contre la version teste je ne sais pas ce que tu as fait il fonctionne et quand je quitte il quitte Excel sans buger, mais par contre il enregistre rien ce que tu viens de rentrer en donné. Donc sa dois être le faite d'enregistrer qui fais buger,

Voila pour ce qui concerne les versions, maintenant j'ai vu avec ma gestionnaire, et je vais avoir Microsoft office 2000, donc je vais le réinstaller sur ce pc, donc si tu peux remettre la version qui fonctionnais des le début, avec les derniers changements que tu avais mis pour supprimer.

Je lui ais carrément demandé a ma gestionnaire qu'elle version elle avait et elle a sur son pc 2000, donc elle m'a dit de l'installer sur mon pc.

Par contre sur les dernières versions que tu m'avais faites pour les suppressions, il doit avoir des décalages au niveau des cellules.

exemple quand j'efface toutes les données, dans Unités est que j'en créé un autre il me décale la cellule Unités, et code compte, ensuite j'ai pas encore vu mais quand je supprime un articles par exemple sa décale toutes les données de ma ligne supprimé, ou juste par catégorie , exemple catégorie LISTE DES ARTICLES FOURNISSEURS, UNITES, CODE COMPTE, LISTES DES FOURNISSEURS, et pour finir Noms d'utilisateur, mot de passe.

Car en faite j'ai supprimé tout ce que j'avais dans mes donnés, et une fois enregistré et quitté. Il ne reconnaissait pas le nom d'utilisateur et mot de passe, alors que j'étais sur que c'étais bien le bon.

Alors ma question est ?

Est il possible de ciblé les suppressions par cellule ou on ne peu le faire que par ligne.

Merci job75 encore pour ton investissement pour moi.

David

Aprés si tu pence avoir trouvé de quoi il s'agit en version 2007 avec la version teste, tu me fais signe. mais bon tu en a assez fais pour moi pour ce qui concerne excel 2007. si je peux te soulager avec la version 2000. pas de souci.
 
Dernière édition:

job75

XLDnaute Barbatruc
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Bonsoir David,

1) Tu peux utiliser cette version (26) corrigée (il y avait une légère erreur au niveau du tri de la base quand on crée la 1ère unité) :

Cijoint.fr - Service gratuit de dépôt de fichiers

2) Le test me permet de confirmer que le problème à la fermeture est dû à l'enregistrement sur Excel 2007. Poursuivant mon idée, dis-moi ce que donne maintenant ce fichier test (il enregistre bien) :

Cijoint.fr - Service gratuit de dépôt de fichiers

A+
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

salut job75

je t'envoie ce petit message avant de partir au boulot.

j'ai teste le fichier teste que tu as refais, il bug aussi comme avant avec récupération des données donc non enregistré.

je ferais d'autre teste cet aprés midi, la je suis pas en avance pour mon boulot.

david
 

job75

XLDnaute Barbatruc
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Bonjour David,

Finalement pour Excel 2003 et antérieur, tu peux utiliser l'une des 2 versions :

Version (26) qui enregistre et ferme le fichier par l'envoi de touches Ctrl+S, Ctrl+F4 ou Alt+F4 :

Cijoint.fr - Service gratuit de dépôt de fichiers

Version (27) qui enregistre et ferme le fichier avec ThisWorkbook.Save, ThisWorkbook.Close ou Application.Quit :

Cijoint.fr - Service gratuit de dépôt de fichiers

Perso, je n'ai pas de préférence.

Pour Excel 2007 et le problème d'enregistrement, peux-tu encore tester le fichier ci-dessous où je n'ai gardé que l'USF5 avec le bouton Quitter. Fais 3 essais en mettant préalablement le fichier aux 3 formats .xls .xlsx .xlsm

A+
 

Fichiers joints

Dernière édition:

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

salut job75

je viens de tester ton ficher zip. au format xls. il fonctionne j'ai ma fenêtre enregistrer oui ou non, j'ai fais oui et ca fonctionne. pour les formats xlsx et xlsm je n'ai rien qui s'affiche a part les fenêtre bug de l'ouverture.

je te fait une copie d'écran de ce sa me met a l'ouverture et reviens

david
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

voici les genres de chose que j'ai eu les premières fois que je l'ai ouvert en image

mais une fois que j'ai réouvert sa déconne mais pas toujours pareil, mais au niveau enregistrement toujours pareil, dans la version 27 , sinon le teste que tu m'as donné a faire lui fonctionne il a même enregistré, car il a changé de ko il était a 48 ko et 50 ko aprés enregistrement.

par contre la version que tu me donne c'est pour excel version 2000 ou version 2007. car la sur mon pc je suis toujours sur 2007. aprés si tu veux que je teste pour version 2007. je reste sur 2007.

et peu pas teste 2000 si c'est pour version 2000.
ou alors peu t'on installer deux version de excel sur le même pc, sans que sa face interference entre eux ? je m'étais jamais poser la question.

merci grand chef.

david
 

Fichiers joints

job75

XLDnaute Barbatruc
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Re,

Si je comprends bien ce que tu dis, le fichier test s'enregistre normalement à la fermeture sous Excel 2007.

Il y a donc autre chose (que le fait d'enregistrer) dans le programme qui ne plaît pas à Excel 2007.

Mais je ne vois pas quoi, puisqu'avec ma version 2003 tout marche sans problème sur version (26) ou version (27).

On va donc en rester là. Si j'ai d'autres idées je te contacte.

A bientôt.
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

ok merci job75 et encore merci pour ton aide, moi pour mon cas je vais installer ma version 2000 en plus de excel 2007, et tester si tout fonctionne.

je te remercie encore .
a plus sur le forum.
david
 

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

haaa !!!! quel joie job75

tu vas pas me croire j'ai eu personne sur le forum excel 2007, qui m'a dit comment faire pour enregistrer sur excel 2007.

j'ai pris le format que tu m'avais dit .xlsm il m'a dit comment faire moi en faite je changais l'extension en renomment directement le fichier que tu me donnais, et en faite il fallait que je l'ouvre normalement que je l'enregistre au format .xlsm et que je l'ouvre a nouveau.

et la miracle sa fonctionne tout bien l'enregistrement.

bon par contre j'ai testé opur supprimer toutes les données pour le remettre a zéro , donc il fonctionne bien par contre il m'efface a chaque fois le nom d'utilisateur "AB3" et le mot de passe "AC3", et aussi les données code compte "M3" et j'ai un fournisseur ou toute les cellules de la ligne ne efface pas.

donc sa reste bien en final ce que tu m'as fais, toujours un grand chef

a plus job75

je suis trop content
david
 

job75

XLDnaute Barbatruc
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Re,

Content que ton problème d'enregistrement soit résolu, mais on y a mis le temps, heureusement que je ne suis pas payé à l'heure ;). Excel 2007 n'est pas vraiment à la portée de tout le monde...

J'avais fait un peu vite les derniers boutons Supprimer, il y avait là encore une légère erreur, voici les fichiers corrigés :

Version (26) :

Cijoint.fr - Service gratuit de dépôt de fichiers

Version (27) :

Cijoint.fr - Service gratuit de dépôt de fichiers

J'ai pu tout supprimer des Bases Articles, Unités, Fournisseurs, sans problème.

Je ne comprends pas ton problème avec le Code Compte ou la base Utilisateur.

A+

Edition 1 : je viens de voir ton dernier post. Adr1 et Adr2 sont des plages de données de la base Fournisseurs. Tu obtiens ce message en faisant quoi ????

Edition 2 : tu devrais savoir que je ne peux pas ouvrir un fichier .xlsm !!!!
 
Dernière édition:

montgesoye

XLDnaute Occasionnel
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Ha oui excuse pour t'avoir envoyé le xlsm.

Alors je t'explique ce qui ce passe quand j'ai enregistré la version 27 en format .xlsm sa ma mis les deux fenêtres que je t'ai envoyé avant concernant adr1 et adr2.

Alors en ce qui concerne la suppression des articles, unités, et fournisseurs de la base moi aussi j'arrive à les supprimer, ce n'ais pas le souci,

Le problème viens de la suppression de la liste des fournisseurs, quand je supprime exemple BOUDESSOL ET CAPAL des cellules M3 a la cellule AC3 les lignes sont supprimé alors que moi je dois supprimer seulement les lignes de la cellule O3 a la cellule Z3.

Donc la en faite les lignes M3 M4 et ainsi de suite sont supprimé donc sa me supprime mes donnés CODE COMPTE, chose que je ne veux pas et pareil pour AB3 ET AC3 nom d'utilisateur et mot de passe.

Sa veux dire que si je supprime des fournisseurs le nom d'utilisateur et mot de passe peux être supprimé, alors qu'il ne faut pas, si je fais enregistre et qu'il y a rien de marqué dans nom d'utilisateur et mot de passe, je pourrais plus l'ouvrir.

Si tu as un souci dans ce que j'écris grand chef fait moi signe.

Sa fait drôle de plus parlé de l'enregistrement et de s'avoir que l'on a réussi encore mille merci job75

David
 

job75

XLDnaute Barbatruc
Re : qui peu m'aider en vba pour faire fonctionne les UserForm

Re,

J'ai réglé j'espère :eek: les 2 derniers problèmes :

1) Pour la suppression des fournisseurs, c'était un peu plus subtile. Tu sais que je supprime aussi les articles du fournisseur supprimé. Pour ça j'applique un filtre. Mais pour supprimer la plage filtrée, il faut désactiver le filtre avant... Pourtant j'avais testé, et n'avais rien vu d'anormal !!

2) Pour Adr1 et Adr2, je suppose que ce sont des noms utilisés par Excel 2007. Je les ai simplement remplacés par Adresse1 et Adresse2. Ils sont utilisés dans la feuille Commande.

Voici la version (26) corrigée :

Cijoint.fr - Service gratuit de dépôt de fichiers

Et la version (27) :

Cijoint.fr - Service gratuit de dépôt de fichiers

N'hésite pas à m'appeler si tu découvres encore un problème.

Bonne nuit.
 

Discussions similaires


Haut Bas