Tous les billets

Préambule
Dans un billet précédent, titré Comment créer dynamiquement les onglets d'un contrôle TabStrip à l'aide d'une fonction générique, j'ai montré comment créer dynamiquement les onglets d'un objet TabStrip.



Qu'est-ce qu'un TabStrip ?
Son aspect est proche de l'objet MultiPage mais la manière de l'utiliser est totalement différente.

Dans un MutliPage on peut afficher des contrôles différents par onglet ...

Fichiers attachés

• TabStrip Comment filtrer les données en fonction de la sélection d'un onglet .xlsm (53,7 Ko, 212 affichages)

Introduction
Nous sommes régulièrement amené à devoir obtenir la liste de fichiers présents dans un répertoire afin par exemple de les charger, les copier, les insérer en ajoutant éventuellement un critère sur le nom qui

• commence par
• se termine par
• contient

Il existe plusieurs méthodes pour le faire et entre autres la fonction Dir. J'ai écrit il y a quelques années une fonction générique qui l'utilise et qui renvoie une liste ...

Constat

On peut lire régulièrement sur les forums dédiés au VBA, des codes publiés comme ceux-ci

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Range("A2").Value = 10 Then
  CommandButton2.Visible = True
Else
  CommandButton2.Visible = False
End If

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Sheets("NOM DE LA FEUILLE").Visible = True Then
   Sheets("NOM DE LA FEUILLE").Visible = False
 Else
   Sheets("NOM DE LA FEUILLE").Visible = True
End

...

Un code pour ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function mfForm_AddControls()

    Dim oFrm As Form, _
        oText As Control, _
        oLabel As Control, _
        sFormName As String, _
        oRset As Recordset, _
        oField As Field, _
        lLeft As Long, _
        lTop As Long, _
        lWidth As Long, _
        lHight As Long, _
        i As Integer
    
    
    
    lLeft = 343

...

Envoyé par informer

Bonjour à tous,

En vba, il existe une fonction native REPLACE(expression, find, replace, [ start, [ count, [ compare ]]]) Voir ici pour plus d'information

Toutefois, cette fonction ne peut remplacer qu'un seul caractère à la fois. donc dans l'éventualité d'un remplacement de différents caractères par un même caractère, rien de mieux que l'utilisation du RegEx. Le code suivant permet cette action!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Function fRegExReplace(psValue As String, psPattern

...