Arréter une macro?

[Mouchty85]

Bonjour a tous, je réalise un petit programme dans lequel je me trouve confonter a un petit problème.

Mon code :

Private Sub AjouterDésignation_Click()

Sheets("Paramètre").Select

If SaisieDésignation.Value = "" Then
MsgBox " Cette opération n'est pas possigble : Aucune désignation n'est écrite", vbCritical, "ATTENTION : Valeur de la désignation non existante"
Else
For i = 1 To Range("PDésignation").Rows.Count
If SaisieDésignation.Value = Range("PDésignation").Cells(i, 1).Value Then
MsgBox "La désignation :" & SaisieDésignation & " existe déja." & Chr(13) & "Merci de changé l'intitulé si vous souhaitez toujours ajouter cette désignation", vbCritical, "ATTENTION : Désignation déja existante"
Else
NL = Range("PDésignation").Rows.Count
Range("PDésignation").Cells(NL, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
Range("PDésignation").Cells(NL - 1, 1).Value = SaisieDésignation.Value
End If
Next i
End If

End Sub


Explication :
Je souaiterai que ma macro s'arrète si la valeur de la combox (SaisieDésignation) a été insérer dans mon tableau.

Le problème auquel je suis confronté, c'est qui va m'insérer autant de fois la désignation que de ligne qu'avait mon tableau au début de la macro.

Merci pour votre aide.

Mouchty85

 

[Pierrot93]

Re : Arréter une macro?

Bonjour Mouchty, toutes et tous

J'ai modifié le code de ta marco en rajoutant 2 lignes de code, Exit For ou Exit Sub, tu gardes l'une ou l'autre, a priori les deux ensemble ne sont pas utiles dans ce cas.

Private Sub AjouterDésignation_Click()

Sheets("Paramètre").Select

If SaisieDésignation.Value = "" Then
    MsgBox " Cette opération n'est pas possigble : Aucune désignation n'est écrite", vbCritical, "ATTENTION : Valeur de la désignation non existante"
Else
    For i = 1 To Range("PDésignation").Rows.Count
        If SaisieDésignation.Value = Range("PDésignation").Cells(i, 1).Value Then
        MsgBox "La désignation :" & SaisieDésignation & " existe déja." & Chr(13) & "Merci de changé l'intitulé si vous souhaitez toujours ajouter cette désignation", vbCritical, "ATTENTION : Désignation déja existante"
    Else
        NL = Range("PDésignation").Rows.Count
        Range("PDésignation").Cells(NL, 1).EntireRow.Select
        Selection.Insert Shift:=xlDown
        Range("PDésignation").Cells(NL - 1, 1).Value = SaisieDésignation.Value
        [COLOR="Red"]Exit For [/COLOR][COLOR="Green"]'pour sortir de la boucle
        'ou[/COLOR]
        [COLOR="red"]Exit Sub [/COLOR][COLOR="green"]'pour sortir de la procédure[/COLOR]
        End If
    Next i
End If

Bonne journée
@+

 

[ERIC S]

Re : Arréter une macro?

Bonjour,
bonjour Pierrot93, plud rapide que moi.....

je n'ai pas regardé à fond ton exemple mais tu peux procéder selon les méthodes suivantes

quand tu as inséré, tu forces
i=Range("PDésignation").Rows.Count
ta boucle s'arrêtera d'elle-même

idem avec exit for

 

[Pierrot93]

Re : Arréter une macro?

Bonjour Eric,

oui c'est vrai mais pour sortir d'une boucle Exit For est plus rapide à écrire et à s'exécuter. lol

Bonne journée
@+