Profil de Charles Racaud

Snippets Codyx

Bonjour, Je fais un retour depuis la migration car je ne parviens pas à récupérer les snippets que j'avais posté sur Codyx. Sur la page de mon profil, j'ai bien accès aux 10 dernières dans "Codes Sources" > "Derniers CodeS-SourceS" mais impossible d'en avoir plus. Le lien "Voir toutes les sources" revois vers une liste vide. J'aime... Lire la suite

Merci d'en prendre note. J'espère que ca pourra être corrigé sans trop taper sur les nains. _____________ Kenji

Bah le problème, c'est que je me souviens plus de toutes les snippets que j'ai écrites. J'ai reconnu celle que j'ai donnée en exemple, car c'est celle que je cherchait. J'avais écrit une bonne centaines de snippets. Le problème, c'est que les snippets ont été mélangées avec les sources. Du coup c'est pas facile de trouver avec la fon...

Par contre, le problème c'est que pendant la migration, le créateur du sujet (le groupe de snippets) à été désigné propriétaire des snippets. Je suis donc propriétaire de snippets que je n'ai pas écrites et quelqu'un d'autre l'est à ma place pour d'autres. Par exemple, j'ai écrit celle-ci : http://codes-sources.commentcamarche.net/sou...

Ha merci bien. Ca m'as permis de voir que c'était caché sous le champ recherche. _____________ Kenji

Lecture du registre

Bonjour, J'ai un programme écrit en VB6 pour lire les information sur la version de Windows à l'aide de la fonction : Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData ... Lire la suite

"CSDVersion" renvoie une erreur 2 Pourquoi ne nous donnes tu aps le message d'erreur ? C'est le plus important ici !!! _____________ Kenji

macro excel : etirer les cellules d'une selection jusqu'à cellule non vide

Bonjour, Je débute dans la programmation des macros sur Excel. J'aimerais faire l'équivalent du double click sur la croix noir en bas à droite d'une cellule qui étire les formules Ce sont des cellules variables donc pas d'adresse type "A1" et le nombre de valeurs est aussi variable donc pas de destination type "A2:A354" Pour l... Lire la suite

Bonsoir, Ton problème se décompose en deux étapes. La première et de déterminer la dernière cellule non vide. La seconde, appliquer "l'étirage" des cellules jusqu'à la cellule trouvée dans la première étape. Il est inutile d'essayer de faire la seconde étape si la première ne fonctionne pas. _____________ Kenji

Comparaison deux tables SQL et lister la difference [Résolu]

Bonjour, j'ai deux tables dans une base sql, je veux faire une comparaison entre les deux tables et lister la différence et cela selon trois champs qui permettent de faire une liaison entre les deux tables.

Ah, c'est dans section "SQL Server". Je n'avais point vu. _____________ Kenji

Bonsoir, Merci de préciser le moteur de base de donnée. Si c'est du SQL Server, utilise EXCEPT Un exemple ici : Tapez le texte de l'url ici. _____________ Kenji

évènement After_Select à sélection unique [Résolu]

Bonjours, Voilà, actuellement pour permettre la sélection d'un fichier via un treeview, j'utilise l'évènement After_Select. Seulement ce qui m'embête c'est la sélection unique du fichier avec cet évènement. Je souhaiterai pourvoir re-sélectionner le même fichier par la suite si besoin est... Du coup, j'ai essayé avec MouseClick, Node... Lire la suite

Moi je comprends pas pourquoi tu y arrive avec After_Select et pas avec NodeMouseClick ? C'est la même chose. La node sélectionnée est dans le EventArgs de l'évènement et sa propriété FullPath te retourne son chemin complet dans la TreeView. _____________ Kenji

Point d'insertion dans un TextBox [Résolu]

Bonjour à tous. Dans un TextBox multiligne, est-il possible d'obtenir par le code le rang de la ligne dans laquelle se trouve le point l'insertion ? Merci de me répondre. Étant illettré, je signe d'une croix : ×

Bonsoir, Je te propose une petite solution qui évite des copie de chaines en split : (Avec une belle fonction .NET toute faite ) Dim currentLine = 1 For i = 0 To TaPetiteTextBox.GetFirstCharIndexOfCurrentLine() - 1 If TaPetiteTextBox.Text(i) = vbLf Then currentLine += 1 End If Next _____________ Kenji

Verouiller une Cellule Par un Mot de Passe [Résolu]

Bonjour, Comment vérouiller cette cellule "A1" par mot de passe. pour que seul les administrateur puisse changer la Valeur . voila ce que j'ai fait jusqu'à présent. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A1"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Su... Lire la suite

Bonjour, Il est possible de protéger toute la feuille mais de laisser certaines cellules éditables. Cela s'édite dans le format des cellules. Ici, il suffit de mettre toute les cellules en mode "éditable" sauf celles de ton choix. _____________ Kenji

Effacer un/les fichier [Résolu]

Bonjour à tous J'ai écrit une routine pour effacer tous les fichiers avec extension old Private Sub DeleteFiles(ByVal D As String, ByVal extension As String) Try For Each file As String In Directory.GetFiles(D, extension) list1.Items.Add(file) Directory.Delete(file) ... Lire la suite

Faut arrêter cette manie de mettre des Try..Catch partout (c'est à cause d'eux qu'on ne peut plus identifier les erreurs) Tu peux aussi éviter ta récursivité avec Directory.GetFiles(D, Extensions, SearchOption.AllDirectories) _____________ Kenji

[Catégorie modifiée .Net -> VB6] Comment afficher un texte sans pouvoir le modif [Résolu]

Bonsoir, Je cherche un moyen d'afficher un texte dans un objet, sans qu'on puisse l'effacer dans l'application, mais qu'on puisse le selectionner pour le copier et le coller ailleurs. (Le textbox peut être modifié, et le label ne peut pas être selectionné)

En VB6, c'est la propriété Locked C'était pourtant pas bien compliqué à trouver. _____________ Kenji

Bonsoir, Utilise tout simplement la propriété ReadOnly de la TextBox. _____________ Kenji

Créer des fichiers numérotés [Résolu]

Bonjour @tous, J'espère avoir correctement choisi le Thème. Voilà comme dit dans mon profil, je suis Concepteur de Produits en 3D via le logiciel SolidWorks. Il arrive parfois que dans certaines de mes missions clients je rencontre des fonctions spéciales. Dans ce cas un précédent dessinateur avait crée une macro pour enregistrer ... Lire la suite

Les fonction Right, Left, Mid, Trim se trouve dans l'espace de nom VBA (pareil pour le VB6). Le $ est pour indiquer qu'elles traitent des chaînes de caractères. L'espace de nom "VBA est optionnel, mais j'ai pris l'habitude de le mettre pour certaines fonctions à cause de problèmes de comptabilité. Toute l'aide se trouve sur le site de l...

Il faut ajouter l'argument lors de l'appel de la fonction : index = GetLastIndex(MyFolder, Strings.Mid(swModel.GetTitle, 1, 11)) + 1 _____________ Kenji

Il suffit de passer un paramètre supplémentaire à la fonction: Function GetLastIndex(ByVal directory As String, ByVal Title As String) Const EXT_SLDPRT As String = ".sldprt" Dim file As String Dim indexPos As Long Dim index As Long Dim maxIndex As Long If Not VBA.Right$(directory, 1) "" Then directory directory & ...

Ce qui me donne toujours pas le nom du fichier. Tu n'as pas rajouté le "Debug.Print file". La seule façon pour que j'ai réussit à produire l'erreur et de mettre un numéro énormément grand. Sinon, c'est normal, qu'il reprenne à 1, la fonction renvoie 0 s'il n'y a aucuns fichier numéroté. Tu peux d'ailleurs retirer le "index = Second(N...

Est-ce possible d'avoir le nom du fichier sur lequel il bloque ? Les noms s'affichent dans la fenêtres de Debug si tu as bien ajouté la ligne que je t'avais demandé. _____________ Kenji

Je vois bien l'image ^^ Par contre, il dois t'indique aussi un message d'erreur qui me serait fort utile. Ajoute aussi un "Debug.Print file" juste avant la lige en jaune et affiche la fenêtre de Debug (Ctrl-G) ou menu Affichage > "Immediate Window" (je n'ai pas de version FR donc je connais pas la traduction) _____________ Kenji