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
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
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
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.
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
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 : ×
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 à 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
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é)
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