Réaliser une boucle avec des conditions

0

Bonjour je suis débutante avec le VBA j ai une colonne de plusieurs valeurs que moi meme j'ai saisis manuellement à coté de chaque colonne A j ai mis une condition si c'est conforme ou pas moi je cherche comment par exemple faire si A1 est conforme je prend cette valeur sinon je passe à A2 si A2 n'est pas conforme je passe à A3 ainsi de suite jusq'à ce que la valeur est conforme je la prendre et mettre dans mon tableau à coté 

    Posté le 3 mai 2018, 10:16
    Répondre
    0

    Bonjour,

    Sur l'exemple suivant les valeurs testées sont numériques et celles qui sont supérieures à 10 sont extraites vers la feuil2

    Sub Extraire_Conformes()
    ' Nombre de lignes de la colonne source
    Nb_Lignes = Range("A65536").End(xlUp).Row
    'Numéro de la ligne de destination
    Lignes = 1

    For I = 1 To Nb_Lignes
      If Range("A" & I) > 10 Then
    'si la valeur testée est > 10
         Sheets("Feuil2").Range("A" & Lignes) = Sheets("Feuil1").Range("A" & I) ' récupère la valeur sur la Feuil2
         Lignes = Lignes + 1 ' incrémente le numéro de la ligne de destination
      End If
    Next
    End Sub


    ouisansdoute Posté le 14 mai 2018, 13:36
    par ouisansdoute

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :