Sélectionner la première cellule contenant x caractères
Résolu
Killian__
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
fabien25000 Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Sélectionner la première cellule contenant x caractères
- Site x - Guide
- Sites X : Pornhub, YouPorn et Redtube sont de nouveau accessibles en France - Guide
- Caractères ascii - Guide
- Caractères spéciaux - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
bonjour,
Nbre de caratère de la cellule active :
Len(ActiveCell)
Nbre de caratère de la cellule active :
Len(ActiveCell)
Killian__
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
Super, ça marche ! Un grand merci à vous deux, vous m'avez été d'une aide précieuse ^^
Bonjour Killian, bojour le forum,
Essaie comme ça :
[Édition]
Bonjour Fabien. Nos posts se sont croisés...
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...