Contenu récent par dysorthographie

les directives de compilation permettent de définir les librairies en fonction de la version excel. Voici un exemple #If Win64 Then Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long #Else...

bonsoir, pour n'as tu pas mis des directives de compilation pour évaluer la version des libraires ?

GitLab – c’est quoi ? GitLab est un site web (ou serveur) qui héberge tes projets Git en ligne. Il fonctionne comme un cloud pour ton code : tu peux y stocker ton projet, partager avec d’autres personnes, et gérer l’historique des modifications. Fonctions principales : Stockage de projets...

Private Sub CommandButton100_Click() Dim i As Long, j As Integer Dim S As String Dim ColVisu As Variant, Forma, TP, Taille Dim rs As Object ' Objet Recordset:TP ColVisu = Array(1, 2, 6): Forma = Array("YYYY-MM-DD", "@", "#,##0.00"): TP = Array(7, 200, 14) ' Créer un objet...

bonsoir, Vue d'ensemble Ce code extrait certaines colonnes d'un ListBox, les formate, et les colle dans Excel à partir de la cellule K2. Explication ligne par ligne 1. Déclaration des variables Dim i As Long, j As Integer Dim S As String Dim ColVisu As Variant, Forma, TP Dim rs As Object i ...

bonjour, oui il faut vraiment pas s'inquiéter pour Mac. Ils sont entre 1,5 et 3 fois plus cher qu'un windows et on trouve être 3 et 5 fois moins de logiciel 100% compatible.

bonsoir, pour moi le plus simple pour ce genre de truc c'est encore SQL. bien sur ça fonctionne pas sur Mac, mais a j'avou mon ignorance je ne sais même pas si les Macintosh disposent d'un bouton marche arrêt.

Private Sub CommandButton1_Click() Dim i As Long, j As Integer Dim S As String Dim ColVisu As Variant, Forma, TP Dim rs As Object ' Objet Recordset:TP ColVisu = Array(1, 2, 6): Forma = Array("YYYY-MM-DD", "@", "#,##0.00"): TP = Array(7, 200, 5) ' Créer un objet Recordset...

si tu nous fournir un fichier avec les 10 première ligne ça le fait. remplaces UserForm27.ListBox1 par Me.ListBox1

Dim i As Long, j As Integer Dim ColVisu As Variant Dim rs As Object ' Objet Recordset ColVisu = Array(0, 1, 2, 4) ' Colonnes à extraire ' Créer un objet Recordset Set rs = CreateObject("ADODB.Recordset") ' Définir les colonnes du Recordset With rs For j = 0 To...

bonjour, personnellement je vois pas l'intérêt de passer par le tableau V() alors que la source de ce tableau est une listebox. ListBox1.ListCount ListBox1.ColumnCount ListBox1.list(1,1) .Resize(lignes, colonnes) si tu fais un transpose il faut inverser ubound(tb,1) et ubound(tb,2 ) dans le...

bonjour, comment veux-tu faire apparaitre le terme "Arrêt" en B2 si l'idée est d'effacer B2:B15?

bonjour, les TARIF FOURNISSEUR on été mis à jour en fonction des Prix Achat Brut . pour les réf fournisseurs identique. peut-être devrais tu regardé si le prix de onglet "TARFIS Fournisseur" associé au ref. fournisseurs on correctement été mis a jour! si tu veux je peux rajouter les réf...

Bonjour, Sub test() Sheets("TARIFS_Fournisseur").Range("A:A").NumberFormat = "@": Sheets("Source").Range("A:A").NumberFormat = "@" ConvertirNum Sheets("TARIFS_Fournisseur").Range("B:B"): ConvertirNum Sheets("Source").Range("B:B") Dim Cn, Sql As String: Cn = GenereCSTRING(Xls...

pour travailler avec IA il faut commencer à apprendre à poser des questions. de toutes les façons il est toujours compliqué de travailler sans un base de réflexion et je pense que ce fichier c'est une très bonne base.