Discussion :

[67jero]

Bonjour à toutes et à tous,

Je suis à la recherche de quelques renseignements concernant le if et then à savoir,
J'ai un tableau dans lequel j'ai des valeurs en colonne "F" qui peuvent correspondre à 7 types de valeurs et je souhaiterais que si une ligne ne contient pas une de ces types de valeurs en colonne "F" que la macro s'arrête et qu'elle signale éventuellement sur quelle ligne se trouve l'erreur.

Merci à vous pour vos réponses.

[zyhack]

Bonjour

essaye quelque chose dans ce genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub verif()
Dim type As String, c As Range
type = "Type1 Type2 Type3 Type4 Type5 Type6 Type7 "
For Each c In Range("F2:F" & Cells(Rows.Count, 6).End(xlUp).Row)
  If InStr(type, c.Value) = 0 Then MsgBox "ligne " & c.Row
Next

[67jero]

Bonjour,

Merci beaucoup à toi, Zyhack, ça marche à merveille suite à quelques petites adaptation, en l'occurence j'ai rajouté la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(type, c.Value) = 0 Then Exit Sub

avant le "Next"

Afin que cette macro stoppe avant l'exécution des macros suivantes.

Merci encore et bonne soirée.