Microsoft 365 boucle en VBA

lesoldat9 · 19 Janvier 2023

Bonjour à tous,

Alors je cherche à compléter ma formule en gros je souhaite que

tant que la colonne B est égal à X alors qu'il vérifie que D + E est égal à 0

Si nous dépassons -10 alerte via msg box

For b = 3 To a - 1

'Formule si la valeur de la cellule b est égal à la valeur de la textbox2 alors

If Sheets("...").Range("b" & b).Value = TextBox2.Value Then
....
....
....
...
..

End If

Next

Si je dois m'expliquer en version non excel je souhaite que ma formule vérifie que le N° conducteur est bien un delta inférieur à -10 sinon alerte msg.

En espérant avoir était clair.

Merci d'avance

Cordialement.

lesoldat9 · 19 Janvier 2023

Bon en creusant un peu plus j'ai réussi pour ceux à qui ca intéresse voici la formule

a = Cells(Rows.Count, 1).End(xlUp).Row + 1 'trouver dernière ligne vide

For b = 3 To a

'Formule si la valeur de la cellule b est égal à la valeur de la textbox2 alors

If Sheets(".....").Range("b" & b).Value = "c201" Then

c = c + Sheets("....").Range("d" & b).Value

End If

If Sheets("....").Range("b" & b).Value = "c201" Then

d = d + Sheets("....").Range("e" & b).Value

End If

Next

Delta = c + d

If Delta > "-10" Then MsgBox (Alerte)

End Sub

sylvanu · 19 Janvier 2023

Bonjour Lesoldat,
Une solution sans VBA en PJ en rajoutant une colonne dans le tableau.
A noter

lesoldat9 à dit:
ma formule vérifie que le N° conducteur est bien un delta inférieur à -10 sinon alerte msg.

C'est plutôt :
"ma formule vérifie que le N° conducteur est bien un delta supérieur à -10 sinon alerte msg."

Si vous tenez au VBA, faites signe. Ce n'est guère plus difficile.

lesoldat9 · 19 Janvier 2023

Bon en creusant un peu plus j'ai réussi pour ceux à qui ca intéresse voici la formule

a = Cells(Rows.Count, 1).End(xlUp).Row + 1 'trouver dernière ligne vide

For b = 3 To a

'Formule si la valeur de la cellule b est égal à la valeur de la textbox2 alors

If Sheets(".....").Range("b" & b).Value = "c201" Then

c = c + Sheets("....").Range("d" & b).Value

End If

If Sheets("....").Range("b" & b).Value = "c201" Then

d = d + Sheets("....").Range("e" & b).Value

End If

Next

Delta = c + d

If Delta > "-10" Then MsgBox (Alerte)

End Sub

lesoldat9 · 19 Janvier 2023

sylvanu à dit:
Bonjour Lesoldat,
Une solution sans VBA en PJ en rajoutant une colonne dans le tableau.
A noter

C'est plutôt :
"ma formule vérifie que le N° conducteur est bien un delta supérieur à -10 sinon alerte msg."

Si vous tenez au VBA, faites signe. Ce n'est guère plus difficile.

Merci mais je cherchais vraiment une solution sur vba

sylvanu · 19 Janvier 2023

Re,
Travaillant en tableau structuré, autant profiter de leur souplesse en interrogeant directement le tableau.
Une autre approche en PJ avec :

VB:

Sub Alerte()
    Dim Chaine$, L%
    Chaine = ""
    For L = 1 To [Tab_GestionStock].Rows.Count
        Ecart = [Tab_GestionStock[Sortie]].Item(L) + [Tab_GestionStock[Retour]].Item(L)
        If Ecart < -10 Then
            Chaine = Chaine & "N° conducteur : " & [Tab_GestionStock[N°Conducteur]].Item(L) & " - Ecart : " & Ecart & Chr(10)
        End If
    Next L
    If Chaine <> "" Then MsgBox Chaine Else MsgBox "Pas d'alerte détectée."
End Sub

lesoldat9 · 19 Janvier 2023

Par contre mon dernier code bloque je ne sais pas pourquoi?

If Delta > "-10" Then

MsgBox ("Attention le solde est atteint voulez-vous continuer ?", 4, "ALERTE")

sylvanu · 19 Janvier 2023

lesoldat9 à dit:
If Delta > "-10" Then

-10 est un nombre, non une chaine. Testez :

VB:

If Delta > -10 Then

lesoldat9 · 19 Janvier 2023

sylvanu à dit:
-10 est un nombre, non une chaine. Testez :

VB:

If Delta > -10 Then

Non jusqu'ici ca fonctionnais la j'ai le message d'erreur "erreur de complication: erreur de syntaxe" depuis que j'ai rajouté ,4,"ALERTE")

sylvanu · 19 Janvier 2023

lesoldat9 à dit:
Non jusqu'ici ca fonctionnais la j'ai le message d'erreur "erreur de complication: erreur de syntaxe" depuis que j'ai rajouté ,4,"ALERTE")

Je ne suis pas devin.
Envoyez votre code, ou mieux un petit fichier test.

sylvanu · 19 Janvier 2023

Si votre pb se situe au niveau du msgbox, regardez ceci : LIEN
et testez cela si avec le 4 vous vouliez changer l'icone :

VB:

Sub Essai()
    Message = MsgBox("vbCritical", vbCritical, "Alerte")
    Message = MsgBox("vbExclamation", vbExclamation, "Alerte")
    Message = MsgBox("vbInformation", vbInformation, "Alerte")
    Message = MsgBox("vbQuestion", vbQuestion, "Alerte")
End Sub

lesoldat9 · 19 Janvier 2023

Je vous envoie le fichier test

sylvanu · 19 Janvier 2023

Re,
Il suffisait la prose du lien que je vous ai envoyé, la syntaxe est :
Message = MsgBox("Texte d'alerte", vbCritical, "Alerte")
Pourquoi donc mettre du code dans Thisworkbook ?
Il vaut mieux le mettre dans un module. Sauf si vous vouliez un déclenchement spécifique de la macro.
Un essai en PJ avec déclenchement manuel avec :

VB:

Sub Alerte()
    Dim Chaine$, L%
    Chaine = ""
    For L = 1 To [Tab_GestionStock].Rows.Count
        Ecart = [Tab_GestionStock[Sortie]].Item(L) + [Tab_GestionStock[Retour]].Item(L)
        If Ecart < -10 Then
            Chaine = Chaine & "N° conducteur : " & [Tab_GestionStock[N°Conducteur]].Item(L) & " - Ecart : " & Ecart & Chr(10)
        End If
    Next L
    If Chaine <> "" Then
        Message = MsgBox(Chaine, vbCritical, "Alerte")
    Else
        MsgBox "Pas d'alerte détectée."
    End If
End Sub

lesoldat9 · 19 Janvier 2023

sylvanu à dit:
Si votre pb se situe au niveau du msgbox, regardez ceci : LIEN
et testez cela si avec le 4 vous vouliez changer l'icone :

VB:

Sub Essai() Message = MsgBox("vbCritical", vbCritical, "Alerte") Message = MsgBox("vbExclamation", vbExclamation, "Alerte") Message = MsgBox("vbInformation", vbInformation, "Alerte") Message = MsgBox("vbQuestion", vbQuestion, "Alerte") End Sub

Super ca fonctionne.

lesoldat9 · 19 Janvier 2023

sylvanu à dit:
Re,
Il suffisait la prose du lien que je vous ai envoyé, la syntaxe est :
Message = MsgBox("Texte d'alerte", vbCritical, "Alerte")
Pourquoi donc mettre du code dans Thisworkbook ?
Il vaut mieux le mettre dans un module. Sauf si vous vouliez un déclenchement spécifique de la macro.
Un essai en PJ avec déclenchement manuel avec :

VB:

Sub Alerte() Dim Chaine$, L% Chaine = "" For L = 1 To [Tab_GestionStock].Rows.Count Ecart = [Tab_GestionStock[Sortie]].Item(L) + [Tab_GestionStock[Retour]].Item(L) If Ecart < -10 Then Chaine = Chaine & "N° conducteur : " & [Tab_GestionStock[N°Conducteur]].Item(L) & " - Ecart : " & Ecart & Chr(10) End If Next L If Chaine <> "" Then Message = MsgBox(Chaine, vbCritical, "Alerte") Else MsgBox "Pas d'alerte détectée." End If End Sub

Merci c'était juste pour le test

sylvanu · 19 Janvier 2023

Impec.
Pensez à supprimez votre Vert du post #3, ça risque d'induire le futur lecteur en erreur.

Microsoft 365 boucle en VBA

lesoldat9

XLDnaute Occasionnel

Pièces jointes

lesoldat9

sylvanu

XLDnaute Barbatruc

Pièces jointes

lesoldat9

XLDnaute Occasionnel

lesoldat9

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

lesoldat9

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

lesoldat9

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

lesoldat9

XLDnaute Occasionnel

lesoldat9

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Discussions similaires