Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment faire une boucle sur les lignes jusqu'à une valeur spécifique trouvée dans Excel?

Dans certains cas, vous pouvez parcourir les lignes une par une jusqu'à une valeur spécifique trouvée dans une feuille. Ici, je présente un code de macro pour vous aider à boucler des données jusqu'à ce qu'une valeur spécifique soit atteinte.

Boucle à travers jusqu'à la valeur spécifique


flèche bleue droite bulle Boucle à travers jusqu'à la valeur spécifique


1. presse Alt + F11 touches pour activer le Microsoft Visual Basic pour l'applications fenêtre.

2. Cliquez insérer > Module, collez le code ci-dessous dans le champ vide Module.

VBA: Boucle à travers les lignes jusqu'à une valeur spécifique

Sub LoopUntilSpecificValue()
'UpdatebyExtendoffice20161222
    Dim fStr As String
    Dim strActAddress As String
    Dim fbool As Boolean
    Dim cnt As Long, cntRow As Long
    Dim xRg As Range, yRg As Range, zRg As Range
    fbool = False
    strActAddress = ""
    cnt = 0
    On Error Resume Next
    Set zRg = ActiveSheet.UsedRange
    cntRow = zRg.Rows.Count
   
    Set xRg = Application.InputBox _
        (Prompt:="Range select..", Title:="Kutools for Excel", Type:=8)
    fStr = Application.InputBox _
        (Prompt:="Search string?", Title:="Kutools for Excel", Type:=2)
    Application.ScreenUpdating = False
    For Each yRg In xRg
       
        If yRg.Row > cntRow Then
            MsgBox "Value not found ", vbInformation, "Kutools for Excel"
            Application.ScreenUpdating = True
            Exit Sub
        End If
        If yRg.Value2 = fStr Then
            Application.ScreenUpdating = True
            yRg.Activate
            fbool = True
            strActAddress = yRg.Address
            MsgBox "Value found in cell " & strActAddress, vbInformation, "Kutools for Excel"
            
            Exit Sub
        Else
            cnt = cnt + 1
        End If
        
    Next yRg
    
    If cnt = xRg.Count Then
        MsgBox "Value not found ", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

boucle doc jusqu'à la cellule spécifique 1

3. presse F5 clé, une boîte de dialogue apparaît pour sélectionner une colonne à parcourir. Voir la capture d'écran:
boucle doc jusqu'à la cellule spécifique 2

4. Cliquez OK, et tapez la chaîne que vous voulez trouver dans la deuxième boîte de dialogue. Voir la capture d'écran:
boucle doc jusqu'à la cellule spécifique 3

5. Cliquez sur OK. Il parcourra la sélection jusqu'à la valeur spécifiée.
boucle doc jusqu'à la cellule spécifique 4

Note: s'il n'y a pas de valeur trouvée, une boîte de dialogue apparaît pour vous rappeler qu'il n'y a pas de valeur trouvée.
boucle doc jusqu'à la cellule spécifique 5

prêter attention1Kutools for Excel: Les fonctions 200 que vous devez avoir dans Excel, vous pouvez télécharger gratuitement à partir d'ici


Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.