Faire boucle jusque cellule contenant un texte précis
Résolu/Fermé
Walles
Messages postés
15
Date d'inscription
mercredi 13 juillet 2016
Statut
Membre
Dernière intervention
12 septembre 2019
-
12 sept. 2019 à 10:57
f894009 Messages postés 17181 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 mars 2024 - 12 sept. 2019 à 11:39
f894009 Messages postés 17181 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 mars 2024 - 12 sept. 2019 à 11:39
A voir également:
- Faire boucle jusque cellule contenant un texte précis
- Excel cellule couleur si condition texte - Guide
- Excel compter le nombre de cellule contenant le même texte ✓ - Forum Excel
- Mettre un texte en majuscule - Guide
- Verrouiller cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
Modifié le 12 sept. 2019 à 11:39
Modifié le 12 sept. 2019 à 11:39
Bonjour,
une facon de faire sans boucle, adaptez la feuille
une facon de faire sans boucle, adaptez la feuille
Sub recherche() With Worksheets("feuil1") Atel = "Atelier1" 'variable ou vous mettrez le texte a chercher derlig = .Range("A" & Rows.Count).End(xlUp).Row NbA = Application.CountIf(.Range("A2:A" & derlig), Atel) 'nombre de fois Atel If NbA = 1 Then lig = 1 lig = .Columns(1).Find(Atel, .Cells(lig, 1), , xlWhole).Row 'recherche ligne '----------- code de traitement que vous avez a faire ' ' ElseIf NbA = 0 Then MsgBox "Attention: " & Atel & " n'existe pas !!!!!" ElseIf NbA > 1 Then MsgBox NbA & " fois " & Atel End If End With End Sub