Discussion :

[huître]

bonjour

j'ai un drôle de souci

alors j'ai le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
sub conversion()
Dim rg As Excel.Range
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
For Each rg In Selection
If rg.Value = "LIV Date" Then
rg1.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns , DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
Else
MsgBox "veuillez renseigner la date de livraison"
Exit Sub
End If
next
end sub

donc le problème c'est que le msgbox est greffé à la boucle et je ne vois pas comment le faire sortir
par conséquent le msgbox se reproduit autant de fois que la boucle parcours le tableau

j'aimerai bien le faire afficher en une seule fois

voila merci d'avance

[Many31]

Bonjour,
Normalement le Exit Sub devrait fonctionner... De la même manière qu'un flag.
Sinon voici un possibilité en utilisant un booléen. Pb la macro parcourt toutes les données... m'enfin...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
sub conversion()
Dim rg As Excel.Range
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Message = false
For Each rg In Selection
If rg.Value = "LIV Date" Then
rg1.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.TextToColumns , DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 5), TrailingMinusNumbers:=True
Else
Message = True
End If
next
if Message then MsgBox "veuillez renseigner la date de livraison"
end sub

[Gorfael]

Salut huître et le forum
Suffit de sortir la MsgBox de la boucle, en définissant ce qu'on doit mettre en cas de valeur nulle et de remplir dans la boucle.
A+