Sélectionner la première cellule contenant x caractères Résolu

Question

Bonjour à tous,

Comme expliquer dans le titre, je cherche un moyen de sélectionner la première cellule contenant x caractères, en l'occurrence, je cherche à sélectionner la première cellule contenant 17 caractères dans la colonnes B.
J'ai beau chercher, je ne trouve pas de code me permettant de le faire, étant désespéré, j'ai décidé de m'inscrire sur le forum dans l'espoir qu'une âme charitable vienne à mon secours ^^.

Merci

fabien25000 · Answer

bonjour,

Nbre de caratère de la cellule active : 
Len(ActiveCell)

ThauTheme · Answer

Bonjour Killian, bojour le forum,

Essaie comme ça :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim I As Long 'déclare la variable I (Incrément)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B de l'onglet O
For I = 1 To DL 'boucle sur toutes les lignes éditées I de 1 à DL
    If Len(Cells(I, "B").Value) = 17 Then 'condition : si le nombre de caractère de la cellule de la boucle est égal à 17
        O.Cells(I, "B").Select 'sélectionne la cellule
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
End Sub

[Édition]
Bonjour Fabien. Nos posts se sont croisés...

Sélectionner la première cellule contenant x caractères

2 réponses

Votre réponse

Discussions similaires