Vous travaillez sur Excel et vous être bloqué pour trouver un caractère dans une chaîne de caractère Excel VBA ? Pas de panique ! Les recherches d’informations sur Microsoft Office Excel sont une tâche complexe. De la recherche de grande information à la petite, une bonne compréhension des fonctions est indispensable. Grâce au VBA, on automatise facilement la recherche de caractère dans une chaîne de caractère Excel.

Voir la formation sur Excel VBA

Le Visual Basic For Application sur Excel permet de faire plusieurs manipulations. Pour trouver ce caractère, nous aurons besoin d’ouvrir le Visual Basic Editor (VBE). Pour ouvrir le VBE, on fait la combinaison des touches ALT+F11.

Par la suite, une fois le VBE ouvert, nous pouvons créer un nouveau module. Nous nous assurons qu’en haut du module de placer Option explicit, celui-ci permettra de faire le contrôle des variables que nous allons utiliser par la suite pour savoir si ceux-ci sont bien déclarés.

Trouver un caractère dans une chaîne de caractère Excel VBA

Ensuite, on peut créer une nouvelle subroutine appelé TrouverValeur.

Sub TrouverValeur()

End Sub

À présent, nous allons faire la déclaration des variables, nous allons déclarer quatre variables : i, j,c, r. À ce propos, les variables, c’est et r contiendront respectivement le nombre de colonnes et le nombre de ligne, tandis que i et j sont des compteurs.

Sub TrouverValeur()
Dim i, j, c, r As Integer

c = Sheets(1).Range("A1:F6").Columns.Count
r = Sheets(1).Range("A1:F6").Rows.Count

For i = 1 To r
    For j = 1 To c

    Next j
Next i
End Sub

En conformité avec la sélection, nous travaillerons avec la plage de cellule “A1:F6”. Ainsi, c comptera le nombre de colonne dans cette sélection tandis que r comptera le nombre de ligne dans la sélection. Les boucles for sont utilisés pour compter automatiquement les cellules.

Sub TrouverValeur()
Dim i, j, c, r As Integer

c = Sheets(1).Range("A1:F6").Columns.Count
r = Sheets(1).Range("A1:F6").Rows.Count

For i = 1 To r
    For j = 1 To c
        If WorksheetFunction.CountIf(Cells(i, j), "*è*") Then
        MsgBox Cells(i, j)
        End If
    Next j
Next i
End Sub

En définitive, dans le code ci-dessus, nous recherchons les cellules contenant le caractère è dans la sélection et afficher les contenus des cellules.

Voir cette un cas pratique dans cette vidéo short