XL 2013 Rapprochement

[momo]

Bonjour à tous
Je voudrais savoir si il est possible de comparer le total d'un tableau (tableau détail) se trouvant sur onglet avec le montant inscrit dans un autre tableau (Tableau mère) et renvoyer un message, si le total est bon ou une alerte si il y a une différence.

Merci par avance

 

[job75]

Bonsoir momo,

Efforcez-vous d'écrire "Accueil" correctement...

Voyez le fichier joint et la macro du bouton "Vérif" du ruban :

'Callback for Vérif onAction
Sub Check(control As IRibbonControl)
Dim P As Range, w As Worksheet, i As Variant, j As Variant, test1 As Boolean, test2 As Boolean, mes$, n, s, s1
Set P = Sheets("Accueil").[B:B]
For Each w In Worksheets
    i = Application.Match(w.Range("A11"), P, 0) 'adapter au besoin
    j = Application.Match("Total", w.Columns("A"), 0)
    If IsNumeric(i) And IsNumeric(j) Then
        test1 = P(i, 2) = w.Cells(j, 2)
        test2 = P(i, 3) = w.Cells(j, 3)
        mes = IIf(mes = "", "", mes & vbLf) & w.Name & Chr(9)
        If test1 And test2 Then mes = mes & "Vérif Ok": n = n + 1
        If Not test1 Then mes = mes & "Erreur sur Année N": n = n + 1
        If Not test2 Then mes = mes & IIf(test1, "", vbLf & w.Name & Chr(9)) & "Erreur sur Année N-1": n = n + 1
    End If
Next
MsgBox mes
With Sheets("Verif")
   . [A:B].ClearContents 'RAZ
    If mes = "" Then Exit Sub
    s = Split(mes, vbLf)
    For i = 1 To n
        s1 = Split(s(i - 1), Chr(9))
        .Cells(i, 1) = s1(0)
        .Cells(i, 2) = s1(1)
    Next
End With
End Sub

Je rappelle que CAR(9) - Chr(9) - est le caractère de tabulation.

A+

 

[job75]

Re,

Il y avait une petite coquille, j'ai corrigé, prenez le bon fichier.

A+

 

[momo]

Bonsoir momo,

Efforcez-vous d'écrire "Accueil" correctement...

Voyez le fichier joint et la macro du bouton "Vérif" du ruban :

'Callback for Vérif onAction
Sub Check(control As IRibbonControl)
Dim P As Range, w As Worksheet, i As Variant, j As Variant, test1 As Boolean, test2 As Boolean, mes$, n, s, s1
Set P = Sheets("Accueil").[B:B]
For Each w In Worksheets
    i = Application.Match(w.Range("A11"), P, 0) 'adapter au besoin
    j = Application.Match("Total", w.Columns("A"), 0)
    If IsNumeric(i) And IsNumeric(j) Then
        test1 = P(i, 2) = w.Cells(j, 2)
        test2 = P(i, 3) = w.Cells(j, 3)
        mes = IIf(mes = "", "", mes & vbLf) & w.Name & Chr(9)
        If test1 And test2 Then mes = mes & "Vérif Ok": n = n + 1
        If Not test1 Then mes = mes & "Erreur sur Année N": n = n + 1
        If Not test2 Then mes = mes & IIf(test1, "", vbLf & w.Name & Chr(9)) & "Erreur sur Année N-1": n = n + 1
    End If
Next
MsgBox mes
With Sheets("Verif")
   . [A:B].ClearContents 'RAZ
    If mes = "" Then Exit Sub
    s = Split(mes, vbLf)
    For i = 1 To n
        s1 = Split(s(i - 1), Chr(9))
        .Cells(i, 1) = s1(0)
        .Cells(i, 2) = s1(1)
    Next
End With
End Sub

Je rappelle que CAR(9) - Chr(9) - est le caractère de tabulation.

A+

Bonsoir Job!

Merci pour le rappel sur le mot "Accueil", Erreur d'inattention

Un grand merci pour le code, j'ai essayé la première Version elle a vait marché au premier et plus au deuxième

la deuxième version est vraiment top! si seulement vous pouvez me donner des cours.... vous donnez vraiment envie d'apprendre

Par contre n'est il pas possible que la l'onglet vérif disparaisse à la fermeture du fichier

 

[job75]

Par contre n'est il pas possible que la l'onglet vérif disparaisse à la fermeture du fichier

Disparaisse, c'est à dire ??? S'il n'y a plus cet onglet la fin de ma macro doit être supprimée.

Pour les cours je viens de dépasser les 26000 messages sur ce forum.

A+

 

[momo]

Disparaisse, c'est à dire ??? S'il n'y a plus cet onglet la fin de ma macro doit être supprimée.

Pour les cours je viens de dépasser les 26000 messages sur ce forum.

A+

C'est compris!

Merci pour tout