Recherche:

Bonsoir,
Pour cacher les commandbars.


Private Sub Workbook_Open()
CommandBars(1).Enabled = False
CommandBars(2).Enabled = False
CommandBars(3).Enabled = False
End Sub

Bonjour,



Sub RenommerFeuille()
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "MaFeuille"
End Sub

jpleroisse

Bonjour,
De cette façon, tu remplis ta combobox avec les cellules de la colonne A, même s'il y a des cellules vides entre les cellules contenant des données.


Private Sub UserForm_Click()
Dim...

Bonsoir,
Ce code importe le contenu d'un fichier .txt et le place dans ton classeur actif en commençant par la cellule A1.


Sub ImporterFichierTxt()
Dim r, Data
Range("A1").Select
Open...

Bonjour,
Ce n'est pas possible (à ma connaissance) avec un Combobox.
Pour celà, utilise une ListBox et un TextBox que tu nommes txtRechercher.

Dans un Module.


Public Declare Function...

Bonsoir,
Ceci sera certainement mon dernier message sur ce forum.
Tu peux aussi utiliser une constante


Option Explicit
Public Const inputval = 123

Sub test()
Cells(1, 1) = inputval

Bonjour,
Voici un exemple qui fontionne chez moi.


Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal...

Bonsoir,
Et si tu la mets en rouge ? Ici c'est la troisième ligne qui se met en rouge.


ListView1.ListItems.Item(3).ForeColor = vbRed

jpleroisse

Bonjour,
Vas voir dans la FAQ.

http://vb.developpez.com/faq/?page=Autres#scrolling

jpleroisse

Bonjour,
Essye cette méthode.

Dans un Module.


Public Sub CopierFichier(Origine As String, Destination As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
...

Bonjour,
Je pense (j'en suis même certain) que tu ne peux pas faire référence à une cellule, si tu n'as pas Excel et de même pour Access. En somme, tu ne peux faire de références à quelques chose...

Bonsoir,
Je dis peut-être une bêtise, mais si tu créais tes boutons, tu aurais ainsi l'adresse des cellules ?


Public BtnRetour As Object

Sub EffacerBoutons()
Set BtnRetour =...

Bonjour,
Dans le code de ta case à cocher, enlève la protection de la feuile, avant ton code de transfert de word et ensuite reprotège la.

jpleroisse

Bonsoir,
Ce n'est pas Autoresize, mais AutoSize = True.
Essaye le code que je t'ai passé.

jpleroisse

Bonjour,
Un exemple de recherche d'une ligne, par rapport à un mot, dans un fichier .txt.


Private Function chercheLigne(mot As String) As String
'rechercher la ligne dans laquelle est contenu...

Bonjour,
Une petite précision, il n'est pas possible de changer la couleur des onglets sous Excel 97, avec Excel 2003, pas de problèmes.

jpleroisse

Bonsoir,
Utilise le contrôle SSTab, Microsoft Tabbed dialog control 6.0(SP6)

jpleroisse

Bonsoir,
Dans le menu Outils / Références, tu dois cocher Microsoft ActiveX Data Objects 2.0 Library et Microsoft DAO 3.51 Object Library (suivant ta version d'office, se sera peut-être 2.5 et 3.6)...

Bonjour,
Ce code n'utilise pas d'Api.


Dim DX As Integer, DY As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DX = X
DY = Y
End Sub...

Bonsoir,
Place un TextBox au dessus de ta ListBox et appelle le txtRechercher.

Dans un Module:


Public Declare Function SendMessageByString& Lib "user32" _
Alias "SendMessageA" (ByVal hwnd...

Bonsoir,
liste, correspond à quoi ?? une ListBox ??

jpleroisse

Bonsoir,
Ne peux-tu créer des groupes de contrôle ?
Pour VB, 20 optionButtons font 20 objets, tandis que un groupe de 20 OptionButtons (ou autres contrôles) ne fait qu'un objet.

jpleroisse

Bonjour,
Dans ce cas, dans la procédure Click de ton bouton qui est sur la frmMerchant, tu mets frmTerminal.Show.
Si des actions doivent se réaliser à l'ouverture de celle-ci, tu les places dans la...

Re,
Désolé Linaa, j'ai posté pendant que tu trouvais.
jpleroisse

Bonsoir,
Dur dur hein !


Private Sub Command1_Click()
Label1.Caption = "&" & "&"
End Sub

jpleroisse