Discussion :

[dybmans]

Bonjour,

Je suis sur une macro qui me pose problème.
J'ai un onglet "Localisation" dans lequel il y a des zones de saisis.
je voudrai vérifier le document pour que s'il y a des données dans les autres colonnes et que le champ de la colonne F n'est pas renseigné on
affiche un message d'erreur.

Voilà le code que j'ai fais et il fonctionne à la main pour les tests j'ouvre le document je saisi en oubliant le champ F cela fonctionne et quand je le
rempli plus de message. Mais quand le batch lance ce fichier il me met le message d'erreur sur tout les lignes active du document.

Avez-vus déjà eu ce problème ?

Merci par avance pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Localisation").Select
 
NbLignes = ActiveSheet.UsedRange.Rows.Count
 
For ligne = 2 To NbLignes
If Worksheets("Localisation").Range("A" & ligne) <> "" Or Worksheets("Localisation").Range("B" & ligne) <> "" Or Worksheets("Localisation").Range("C" & ligne) <> "" Or Worksheets("Localisation").Range("D" & ligne) <> "" Or Worksheets("Localisation").Range("E" & ligne) <> "" Or Worksheets("Localisation").Range("G" & ligne) <> "" Or Worksheets("Localisation").Range("H" & ligne) <> "" Or Worksheets("Localisation").Range("I" & ligne) <> "" Or Worksheets("Localisation").Range("J" & ligne) <> "" Or Worksheets("Localisation").Range("K" & ligne) <> "" Or Worksheets("Localisation").Range("L" & ligne) <> "" Or Worksheets("Localisation").Range("M" & ligne) <> "" Or Worksheets("Localisation").Range("N" & ligne) <> "" Or Worksheets("Localisation").Range("O" & ligne) <> "" Or Worksheets("Localisation").Range("P" & ligne) <> "" _
Or Worksheets("Localisation").Range("Q" & ligne) <> "" Or Worksheets("Localisation").Range("R" & ligne) <> "" Or Worksheets("Localisation").Range("S" & ligne) <> "" Or Worksheets("Localisation").Range("T" & ligne) <> "" Or Worksheets("Localisation").Range("U" & ligne) <> "" Or Worksheets("Localisation").Range("V" & ligne) <> "" And Worksheets("Localisation").Range("F" & ligne) = "" Then
MsgBox "Libellé manquant en F" & ligne & " de l'onglet Localisation. Merci de compléter.", vbExclamation, "Message Erreur"
Cancel = True 'Annule les demandes d'enregistrement
End If
Next ligne
End Sub

[Kimy_Ire]

Bonjour dybmans,

Pas tout compris.
Ce n'est pas ce que tu demandes ?

Code :

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

1
2
3
For ligne = 2 To NbLignes
    MsgBox "J'affiche une message box pour chaque ligne"
Next ligne

La condition précédente doit donc est valide.
Voila, je ne sais pas trop quoi dire ! ^^

Cordialement,
Kimy

[dybmans]

Bonjour,

Non entre le for et le next il y a un test If et si le test est ok alors on affiche le message.

[Kimy_Ire]

La condition précédente doit donc est valide.

C'est ce que j'ai dit...

C'est le bordel dans ta condition en fait. Que souhaites-tu en Français ?
Tu as des Or partout et un And à la fin.

Avez-vus déjà eu ce problème ?

On rencontre fréquemment ce problème, qui se situe toujours à 30cm de l'écran.

J'attends ton retour sur la condition, parce que je ne suis pas bien sûr de ce que tu veux.

Cordialement,
Kimy

[dybmans]

Dans un document avec des colonnes de A à V, j'ai un champ qui est obligatoire en F.
Je souhaite vérifier que s'il y a une données dans une des autres colonnes alors la colonne F doit être remplit.

Par exemple si en A2 et B2 j'ai une données alors je vérifie que F2 est rempli sinon j'ai le message pour indiqué que F2 n'est pas rempli.

[Kimy_Ire]

Voici pour toi :

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
21
22
23
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim oBool As Boolean
 
With Worksheets("Localisation")
 
    For i = 2 To .UsedRange.Rows.Count
        oBool = False
        For j = 1 To .Range("V1").Column
            If .Cells(i, j) <> "" And i <> 6 Then
                If .Cells(i, 6) = "" Then
                    oBool = True
                    Exit For
                End If
            End If
        Next j
 
        If oBool Then
            MsgBox "Libellé manquant en F" & i & " de l'onglet Localisation. Merci de compléter.", vbExclamation, "Message Erreur"
            Cancel = True 'Annule les demandes d'enregistrement
        End If
    Next i
End With
End Sub

N'hésite pas à revenir vers moi !

Cordialement,
Kimy