Si colonne vide exit sub

bonjour,

sur une partie d'un de mes codes j'ai inscrit

If Range("N1").Value = "" Then Exit Sub

Range("N3:N10000").Select

Application.CutCopyMode = False

Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _

:=Array(1, 1), TrailingMinusNumbers:=True

parfois dans cette colonne , il n'y a pas de valeur , est il possible de sortir de la macro si c'est le cas ?

merci d'avance

Bonsoir,

If Application.WorksheetFunction.CountA(Columns("N")) = 0 Then Exit Sub

merci c'est ce qu'il me fallait

j'avais penser a On Error Resume Next ce qui peux faire l'affaire mais si une autre erreur se présentait dans la macro je n'aurais pas l'info

merci encore

Rechercher des sujets similaires à "colonne vide exit sub"