Profil de jpleroisse - CodeS SourceS

Voila, j'ai 40 contenu de controle de TEXT à effacer ( de Text1 à Text40) quand je clique sur Command1 Plutôt que de me taper : Private Sub Command1_Click() Text1.Text = 0 Text2.Text = 0 'ect ... Text40.Text = 0 End Sub J'ai fait : Private Sub Command1_Click() For i = 1 To 40 Text(i).Text = 0 Next ... Lire la suite

Bonjour, Si tu neux pas modifier ton programme (Créer un groupes de TextBox). Utilise ce code. Private Sub Command1_Click() Dim Obj As Object For Each Obj In Me.Controls If TypeName(Obj) = "TextBox" Then Obj.Text = "" End If Next Obj End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Ac...

Compter le nombre de doublons dans un listbox

Bonjour, J'ai un listbox avec des doublons et j'aimerai compter le nombre de chaque doublons exemple: ordi ordi ordi nombre : 3 Est-ce possible Merci d'avance

Bonsoir, Private Sub Command1_Click() Dim i, n n = 0 For i = 0 To List1.ListCount - 1 If List1.List(i) = "ordi" Then n = n + 1 End If Next i MsgBox n End Sub jpleroisse Si une réponse vous convient, cliquez Réponse Acceptée

Couleur / Taille du texte dans un Bouton

Salut je ne trouve pas comment modifier la taille et la couleur dans un bouton j'ai juste trouvé la police mais c'est tout... merci d'avance

Re, Malheureusement, le CommandButton n'a pas de propriété ForeColor. Peut-être par Api, mais ça je ne sais pas jpleroisse

Bonjour, Dans la page de propriété du CommandButton, à Style, tu 1-Grafical ce qui te permettra de changer la propriété BackColor du CommandButton. jpleroisse

comptage de fichier dans un dossier

salut je suis a la recherche d'une solution qui me permettrai de compter le nombre de fichier excel présent dans un dossier dont j'ai le chemin réseau. Je veux juste récupérer un nombre entier qui me dirai combien il y a de fichier dans le dossier. Merci

Bonjour, Ceci devrait répondre à ta question. Sub CompterFichier() Dim Rep As String Dim n As Integer Rep = Dir("C:\Documents and Settings\JEAN-PIERRE\Mes documents\*.xls") While Rep "" n = n + 1 Rep = Dir Wend MsgBox "Il y a " & n & " fichier(s) dans le répertoire" End Sub jpleroisse Si une réponse vous con...

Combobox

Bonjour, Kk'un sait t'il comment on peut ouvrir (dérouler) une combobox par le code et non pas par un click dessus?? le tout en eVB (ou VB6 parce que je pense ke la manip sera sensiblement la meme..) j'espere avoir été clair, c'est assez urgent! Merci a tous!!

Re, En VBA Excel, ce code ne marchera pas !, il n'y a pas de propriété hwnd. jpleroisse

Bonjour, Ce code ouvrira le Combobox dès qu'il reçoit le focus. Dans un Module: Public Declare Function SendMessage Lib "User32" Alias _ "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Public Const CB_SHOWDROPDROWN = &H14F Dans la Form Private Sub Combo1_GotFocus() ...

TEXTBOX RECHERCHE VBA

Bonjour à tous ... Jai un petit soucis pouvez vous me dire comment afficher dans une texte box le resultat d'une recherche.... Je mexplik jai une liste deroulante je choisie un nom et je voudrais que l'adresse et le num de telephone et ainsi de suite saffiche automatiquement dans mes text box en dessous il y a une base... Lire la suite

Bonjour, Dans cet exemple, j'ai mis des noms dans la colonne A, en face des noms, dans la colonne B, les adresses et dans la colonne C, les numéros de téléphonne. Private Sub UserForm_Initialize() Dim cell, PlageTest ListBox1.Clear Set PlageTest = Range("A:A") For Each cell In PlageTest If cell.Value "" Then Lis...

Probleme d'utilisation du parametre OnAction - C'est un peu Urgent - Résolu

Bonjour, J'ai un soucis pour utiliser le parametre OnAction en VBA. Mon probleme est le suivant, j'ai créer un menu deroulant dans Excel, et je voudrait lors du clique sur le menu, il execute une fonction ou procedure avec parametre(s). Mais je n'arrive pas à passer le parametre dans la fonction ou procedure (ci-dessous un exempl... Lire la suite

Re, A tout hasard, je te remet ton code simplement modifé. (Quand même plus simple) Sub Créer_Menu() 'Supprime le menu au cas où il existerait déjà. Call DeleteMenu With Application With .CommandBars(1).Controls.Add(msoControlPopup, before:=10) .Caption = "Mon Menu Perso" With .Controls.Ad...