Sélectionner la première cellule contenant x caractères [Résolu/Fermé]

Signaler
Messages postés
3
Date d'inscription
lundi 3 juin 2019
Statut
Membre
Dernière intervention
3 juin 2019
-
Messages postés
615
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
25 mai 2021
-
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

2 réponses

Messages postés
615
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
25 mai 2021
51
bonjour,

Nbre de caratère de la cellule active :
Len(ActiveCell)
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
lundi 3 juin 2019
Statut
Membre
Dernière intervention
3 juin 2019

Super, ça marche ! Un grand merci à vous deux, vous m'avez été d'une aide précieuse ^^
Messages postés
1412
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
9 mars 2021
153
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...


À plus,
ThauTheme
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
3
Date d'inscription
lundi 3 juin 2019
Statut
Membre
Dernière intervention
3 juin 2019

Super, ça marche ! Un grand merci à vous deux, vous m'avez été d'une aide précieuse ^^'
Messages postés
615
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
25 mai 2021
51
pas de mal ;)