msgbox dans une boucle

Version imprimable

bonjour

j'ai un drôle de souci

alors j'ai le code suivant
Code:

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

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:

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

15/06/2011, 15h18
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+
15/06/2011, 16h15
huître

tout compte fait ça ne marche pas

le message s'affiche automatiquement j'ai compris le principe mais je ne comprend pas pourquoi ça ne fonctionne pas

en faite le code de Many31 revient au même etant dans donné que la variable message est intégré à la boucle

maintenant s'il y a une autre de méthode de recherche je suis preneur

Veuillez préciser me but:

Arrêter la boucle si une cellule ne contient pas LIV Date
Terminer la boucle et indiquer les colonnes à rectifier
Ne pas entrer dans la boucle si au moins une cellule ne contient pas LIV Date

Ci-joint code pour la 2.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Conversion()
Dim Rg As Range
Dim Erreur As String
 
With Sheets("Feuil1")
    For Each Rg In .Range(.Range("A1"), .Range("A1").End(xlToRight))
        If Rg.Value = "LIV Date" Then
            .Range(Rg, Rg.End(xlDown)).TextToColumns , DataType:=xlDelimited, _
                                                     TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
                                                     Tab:=True, FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True
        Else
            Erreur = Erreur & "; " & Rg.Column
        End If
    Next Rg
End With
Erreur = Mid(Erreur, 3)
If Erreur <> "" Then
    MsgBox "Veuillez renseigner les dates dans la(es) colonne(s) " & Erreur
Else
    MsgBox "Opération terminée avec succès"
End If
End Sub

16/06/2011, 23h21
huître

non finalement c'est bon l'instruction Do Until me permet de sortir de la boucle

merci sinon
16/06/2011, 23h28
mercatog

Bonsoir
Mets ta trouvaille au cas où un autre aura besoin de ta solution.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'Plage de titre Zone= range(cells(1,1),cells(1,Dercol)).Address 'Recherche si colonne Nom client Range("A1").Select 'vérifier si le champs nom client existe dans la zone If application.countIf(Range(Zone), "Nom client")>0 then i=1 do until activecell="Nom client" cells(1,i).select col= activecell.column i=i+1 Loop else msgbox "veuillez renseigner le nom du client" end if
alors

l'instruction

Code:

If application.countIf(Range(Zone), "Nom client")>0 then

me permet de savoir si le champs correspondant existe

l'instruction

Code:

Do until

me permet de sortir d'arrêter l'itération une fois que le champs correspondant a été trouvé

Après plusieurs test la procédure marche nickel

Cordialement,
Huître

Bonsoir
Pour ce code, utilise plutôt la méthode find qui ira directement au but sans moulinette (ta boucle)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Exemple()
Dim Col As Integer
Dim c As Range
 
With Sheets("Feuil2")
    Set c = .Rows(1).Find("Nom client", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Col = c.Column
        Set c = Nothing
        MsgBox Col
    Else
        MsgBox "veuillez renseigner le nom du client"
    End If
End With
End Sub

Et surtout, ça ne sélectionne rien, les Select sont seulement une source d'instabilité et de lenteur du code. A éviter.

EDIT

Le code conversion aura l'allure suivante (sans aucune Select ni boucle) à adapter au niveau du nom de la feuille

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Conversion()
Dim c As Range
Dim Col As Integer
 
With Sheets("Feuil2")
    Set c = .Rows(1).Find("Nom client", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        Col = c.Column
        Set c = Nothing
        .Range(.Cells(1, Col), .Cells(.Rows.Count, _
                                      Col).End(xlUp)).TextToColumns .Cells(1, Col), DataType:=xlDelimited, _
                                      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                                      FieldInfo:=Array(1, 5), TrailingMinusNumbers:=True
    Else
        MsgBox "veuillez renseigner le nom du client"
    End If
End With
End Sub