Créer une boucle sous VBA

[macha]

Bonjour,

En tant que novice dans le VBA, je m'essaye à ce mode d'automatisation dans Excel mais me retrouve coincée...

CI-joint, un extrait de la base de données sur laquelle je travaille.

Dans cette BD, la colonne "Numérique" est déjà automatisée, et je dispose également d'une formule VBA pour définir le texte à afficher en colonne "Valeur" selon le résultat trouvé en colonne "Numérique".
Je souhaiterais insérer une boucle dans le traitement VBA de la colonne "Valeur" de façon à ce que lorsqu'il y ai deux fois ou plus le même chiffre dans la colonne "Numérique",je retrouve Doublon d'inscrit en colonne "Valeur".

Ma question est la suivante:
Comment insérer une boucle dans l'écriture VBA qui suit?

>>>>>>>
' Permet d'afficher "OK", "Doublon" ou "Code manquant" dans la colonne Valeur

Dim Numerique As Integer
Dim Valeur As String
Numerique = Range("D2")
Select Case Numerique
Case Is = 1
Valeur = "OK"
Case Is > 1
Valeur = "Doublon"
Case Else
Valeur = "Code manquant"
End Select
Range("E2") = Valeur

End Sub
>>>>>>>

Merci de votre aide!

 

[Modeste]

Re : Créer une boucle sous VBA

Bonsoir macha,

Pas certain d'avoir bien compris, mais si c'est ce que tu veux, tester ce qui suit:

Dim Numerique As Integer, Valeur As String
'Numerique = Range("D2") 'en commentaire (voir 4 lignes + bas)
[B][COLOR="SeaGreen"]i = 1[/COLOR][/B] 'ligne 1 = titre de colonne
Do
    i = i + 1
    Numerique = Range([COLOR="SeaGreen"][B]"D" & i[/B][/COLOR]).Value
    Select Case Numerique
            Case Is = 1
            Valeur = "OK"
            Case Is > 1
            Valeur = "Doublon"
            Case Else
            Valeur = "Code manquant"
     End Select
     Range([B][COLOR="SeaGreen"]"E" & i[/COLOR][/B]) = Valeur
Loop While Cells(i, 1) <> ""

Modeste

 

[macha]

Re : Créer une boucle sous VBA

C'est exactement ce que je voulais 🙂
Merci Modeste 😉
Maintenant je peux continuer ma découverte de la programmation VBA Excel....hihi

 

[macha]

Re : Créer une boucle sous VBA

C'est exactement ce que je souhaitais!

Merci Modeste! 🙂

Je vais continuer la découverte de VBA maintenant....