Profil de valtrase - CodeS SourceS

Gestion de relevé de compteurs Résolu

Bonjour, Voilà je veux travailler sur des relevés de compteurs électriques. Je ne recherche pas le code mais plutôt l'axe vers lequel je dois me diriger. D’abord le tableau il se constitue de lignes ou j'ai tous mes compteurs Parking, toilettes, etc.. Sur les colonnes j'ai tous les mois de l'année avec deux colonnes une relevé et l'a... Lire la suite

Bonjour à tous. Je vais marquer ce sujet résolu j'ai eu une réponse sur un autre site qui me plais bien. -- Le savoir n'a de valeur que s'il est partagé.

Problème avec le Navigateur Web d'access

Re Bonjour, Maintenant c'est avec le navigateur web que j'ai des soucis. J'ai un Label relié à un champ de ma table qui est format LienHypertext. J'ai paramétré mon Label comme suit. Ishyperlink=non Afficher comme lien hypertext = si lien hyper texte cible = sur l'évènement click de mon label j'ai mis ce code: Private Sub Plus... Lire la suite

J'ai fait cette modification pour travaillé avec le controle directement et c'est pareil bizare.... Private Sub Plus_Click()'Dim ctlNavWeb As SHDocVw.WebBrowser'Set ctlNavWeb = Me.ctlNavWeb.Object'"http://www.allocine.fr/film/fichefilm_gen_cfilm=112381.html"Dim strURL As String'Le lien web est au format: "Plus...#HTTP etc...'Je récupère ...

Récursivité sur nom de fichier

Bonjour a tous, Ce que je cherche à faire: J'ai deux liste : - Fichiers présent dans ma base - Fichiers présent sur le disque dur je voudrais rajouter les nouveaux fichiers du disque dans ma base. jusque là pas de problème une comparaison de chaine suffit. Mais j'aime bien me compliquer la vie, et voilà comment. je veux po... Lire la suite

Merci de ta réponse ucfoutu Je ne connais pas dictionnary et à y regarder de plus prés ça m'a l'air un tantinet compliqué. j'ai codé ça, ça tourne mais si quelqu'un à une solution pour l'optimiser je suis preneur. Private Sub R_cmdUpdateBase_Click()Dim SearchQualityDim bolSelected As BooleanDim strTextSearch, strTextDim MaxValue As...

Utilisation txt Box

Bonjour, Une autre petite question je cherche à recréer le comportement de txtBox comme dans la fenêtre de correction automatique de Word ou Access. J'ai donc deux txtbox une zone de liste à deux colonne, un bouton ajouter un bouton annuler. -Si une des deux txtbox "" et que l'on tappe du texte dans l'autre txbox alors la liste déro... Lire la suite

Bonjour, Je reviens donc sur ce post C'est bien ce que je veux dans mon prog. ça donne cela: Je suis en train de voir en programmant toutes les touches dans: KeyDown mais c'est pas une mince affaire..... Donc si quelqu'un a une autre idée je suis preneur. Le savoir n'a de valeur que s'il est partagé.

Vote

Bonjour, je vais mieux m'expliquer. C'est la boite typique de correction automatique. TextBox Remplacer: Quand on tappe du texte dans le txtBox "Remplacer" la liste de dessous se cale sur les premières lettres reconnues, mais le txtbox garde le focus. Le bouton Ajouter et supprimer sont inactifs. TextBox Par: Quand on tapp...

c'est dur à expliquer le mieux c'est de regarder le fonctionnement dans Word ou Access ou Excel dans Fichiers\options\Vérification\Options de correction automatique... Et de tester les txtbox Remplacer: et Par:

Boite de dialog VBA Résolu

Bonjour tout le monde. Après un certain temps en sommeil je reviens doucement à la prog. J'ai une filedialog qui n'en fait qu'a sa tête, elle est paramétrée pour ouvrir le dossier "Windows Vidéos"mais en fait elle ouvre un sous-dossier nommé "Vidéos Lumia". J'ai lu qu'il y avait un bug sous VB. Donc ma question quelqu'un a-t-il réussi... Lire la suite

Merci de vos réponses, Pour documents and settings je suis d'accord, Windows les gardes pour la compatibilité ascendante, il est donc bloqué comme d'autres depuis le passage à Windows 10. Mon appli doit tourné sur des machines de pots je dois donc pouvoir "c'est un bien grand mot" me caler sur le dossier vidéos du PC et celui-ci n'es...

Pareil avec les tirets en plus -D:\User\JeanPaul\vidéos- J'ai l'impression qu'il ne digère pas le Vidéos... :( J'ai testé en dur "D:\" ------------------------->OK "D:\User\"-------------------->OK "D:\User\JeanPaul\"----------->OK "D:\User\JeanPaul\Vidéos\"----> "D:\User\JeanPaul\Vidéos\Vidéos lumiA 930 Je pense que cela vi...

Le message Box affiche D:\User\JeanPaul\vidéos Si tu as one note un lien avec les captures d'écran

Bonjour ucfoutu et merci de ton intérêt. Pour le logiciel c'est Access . Comme écrite dans les ligne de codes: AddBackSlash renvoie le non de fichier avec ou sans un BackSlash à la fin. DossierSpecial renvoie le chemin des dossier spéciaux windows ici en fait il renvoie la chaine "D:\User\JeanPaul\Vidéos" qui est mon dossier vid...

incrementation Résolu

Bonjour, l'incrémentation ne se fait plus. cette macro a été conçu par une personne de ce forum ( il y a 8 ans je crois). serait il possible de la vérifier s.v.p., merci! Sub IncrementationFactureNumero()Dim NumberInvoiceNumber As IntegerDim RangeInvoiceNumber As RangeDim StringInvoiceNumber As StringSet RangeInvoiceNumber = She... Lire la suite

Bonjour, Tout d'abord meilleurs voeux à tous pour cette nouvelle année. Comme je suis téméraire j'ai uploader ta source. Je suis d'accord avec ucfoutu ce code est très confus. J'ai bien trouver la sub IncrementationFactureNumero mais aucun appel à celle-ci. Mettre l'appel à l'ouverture du classeur reviendrai à ne faire qu'une factur...

Mon projet est complétement planté Résolu

Bonjour, Suite a une importation de module qui a mal tourné j'ai mon projet qui est planté. Suite a cette manipulation une fenêtre dans l'IDE a été renommée. Photo du problème: A partir de la plus rien n'y fait impossible de faire quoi que ce soit, ni suppression ni renommage à chaque clic dessus j'ai ce message d'erreur : ... Lire la suite

Bonjour à tous Bien voilà j'ai repris une sauvegarde et beaucoup de travail mais tout et OK. Par contre je me coucherais toujours aussi bête car je n'ai pas trouvé le moyen de traficoté ce fichier MDB. Je vais passer ce projet sous VB.NET ça me permettra de distinguer programme et données. Je marque quand même résolu

Bonjour UCFOUTU, Bien évidemment sur la form Menu j'ai des boutons qui me servent a lancer d'autres forms dont celles qui posent problème. Pour le deuxième point maintenant quand je suis sous access si je clique sur options du menu général ça plante access.(car prob sur les form) et quand je vais dans IDE ce message d'erreur app...

Salut NHenry, J'ai tout testé je ne peux rien faire sur ces deux Forms dés que je met l'une ou l'autre en surbrillance j'ai les messages d'erreur. A l'ouverture de mon projet, une Form s'affiche qui me sert a lancer d'autres Forms dés que je sélectionne une des deux Forms qui posent problème j'ai ce message d'erreur: "Erreur d'ac...

CheckBox : obligation de cocher qu'une seule case Résolu

Bonjour, Il y a plusieurs CheckBox dans mon UserForm d'accueil. Je voudrait que l'utilisateur ne puisse cocher qu'une seule case. Comment dois-je m'y prendre? Merci par avance !

Oui Jordane45 a raison mais sinon tu peux coller ce code à modifier bien entendu pour chaque case à cocher selon ton code. Private Sub CheckBox1_Click() If CheckBox1.Value = False Then CheckBox2.Locked = False CheckBox3.Locked = False ElseIf CheckBox1.Value = True Then CheckBox2.Locked = True CheckBox3.Locked = True Els...

supprimer une ligne quand une cellule est vide

Bonjour, Je souhaiterais supprimer 1 ligne lorsque que la cellule de la colonne A est vide, mais ça me supprime toutes les lignes, même celle avec une cellule pleine. Voilà mon programme: Sub Select_case() Dim collection As Range Dim cellule As Range Set collection = Range("A2:A351") For Each cellule In collection Sele... Lire la suite

Lut, vieux sujet là ! Il m'est arrivé ce genre de problèmes Tu devrais tester ton code en partant de la fin de tes lignes et non pas du début le fait de supprimer des lignes pose problème au niveau du code. LR = Selection.Rows.Count "ou une plage de lignes" With Selection For n = LR To 1 Step -1 Ton co...

Incrémenter une plage excel

Bonjour à tous, Qqn aurait-il une idée pour incrémenter une plage à chaque clic. Pour ma part j'utilise "Selection_change de ma feuille" le hic c'est que je doit à chaque fois cliquer sur une autre plage et revenir ensuite a la plage qui doit être incrémenter (1, 2,3,4 etc....) Je suis preneur de toute idée ou code merci d'avance ... Lire la suite

Bé quand je fais le .Offset Excel relance "SelectionChange de la feuille, donc c'est pour éviter de relancer le code de la procédure. MyTarget est déclarer en Static si je ne fais pas cela je me retrouve avec l'incrémentation dans ma plage caché. Mais bon si qqn à mieux je suis preneur. Tant que je suis là je recherche un bon bouqu...

Merci jack, j'ai contourné le prob je fais un .Offset(0,-1) pour sélectionner une colonne caché largeur = 0 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static MyTarget ' on vérifie si on a clique dans la plage voulue If IsCellInRange(Target, "Bouches") = True Then ' If MyTarget = "" ...

Salut Jack, J'utilise les objets range la dessus pas de prob donc un exemple: je clique sur la cellule "A1" (pour moi se sont des plages) ==> la valeur de cette plage passe à 1 Je reclique sur cette même plage ==> la valeur passe à 2 et ainsi de suite. J'ai un code qui tourne mais je dois faire: clic sur "A1" ==> la val...

excel-vba comment désactiver boutons Réduire, Agrandir et Fermer

Bonjour à tous, J'ai une application excel/vba avec plusieurs classeurs ouverts simultanément. J’ai ma propre barre de menu avec un choix pour fermer l’application. J’aimerais savoir comment je peux désactiver les boutons Réduire, Agrandir et Fermer des classeurs ouverts. Et bien sur, les réactiver quand je ferme. J'ai ch... Lire la suite

Bonjour, Ce code est éprouvé donc t'as du faire une bourde quelque part. Il n'est pas de moi, mais je l'ai déjà utilisé. Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé