Discussion :

[NEC14]

Bonjour à tous,

Dans le fichier joint, j'ai un code Vba qui est censé m'afficher une alerte dès l'ouverture du fichier en cas de dépassement de délai dans le traitement des factures.
Le délai de traitement ne doit pas dépasser 10 jours. Hors dans mon tableau (feuille Arrivée), le dépassement est de plus de 40 jous donc l'alerte devrait s'actionner, une copie des lignes concernées devraient être faite dans la feuille "Hors délais", mais cela ne fonctionne pas.

Pouvez-vous regarder mon code et me dire ce qui ne va pas s'il vous plait ?
Il se trouve dans ThisWorkBook
Merci par avance

[DeaD78]

Bonjour,

Je viens de modifier ta macro. Cela fonctionne maintenant (cf. fichier joint).

Pièce jointe 45935

Tu utilisais des tableaux bien compliqués pour ce qui est à faire, je pense.

A bientôt.

EDIT : Je n'ai pas cherché à comprendre comment marchait ton copier/coller. Par contre, ton problème (insuf ne passant pas à true) venait d'une erreur d'étourderie de ta part En effet, lorsque tu faisais ta comparaison, tu as mis "<" au lieu de ">"

[laetitia]

bonjour NEC14 DeaD78 le forum comme j ai compris en déja éviter de mettre le code dans ThisWorkbook

Code :

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

1
2
3
4
Option Explicit
Private Sub Workbook_Open()
Macro1
End Sub

je recopie pas la deuxieme ligne elle est deja dans Sheets("Hors délais") plus simple tu est parti sur des tableaux je suis reste dessus pas forcement utile pour si peu 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
option explicit
Sub Macro1()
Dim t As Variant, t2() As String, X As Long, i As Long, k As Long, z As String
On Error Resume Next
Application.ScreenUpdating = False
Sheets("Hors délais").Range("a2:m" & Range("a65536").End(xlUp).Row).ClearContents
t = Sheets("Arrivée factures").Range("a3:m" & Range("a65536").End(xlUp).Row)
 X = 1
For i = 1 To UBound(t)
If t(i, 13) > 10 Then
z = z & "facture n°  " & t(i, 2) & Chr(10)
ReDim Preserve t2(1 To 13, 1 To X)
For k = 1 To 13
t2(k, X) = t(i, k)
Next k: X = X + 1: End If: Next i
Sheets("Hors délais").Range("a65536").End(xlUp)(2).Resize(UBound(t2, 2), UBound(t2, 1)) = Application.Transpose(t2)
Erase t, t2: MsgBox "Dépassement de délais pour la (les) facture(s) " & Chr(10) & z, vbInformation, "Avertissement"
End Sub

[Gautheron]

Salut,

pourquoi ne simplifie tu pas ton code de façon radicale, en scruptant simplement ta colonne de dépassement ?
Un truc du style :

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
 
 = 3 'première ligne de données du tableau arrivées
j = 3 'première ligne du tableau hors delais apres effacement des antériorité...
 
While Worksheets("Arrivée factures").Cells(i, 13).Value <> ""
    If Worksheets("Arrivée factures").Cells(i, 13).Value > 10 Then
        insuf = True
        Worksheets("Arrivée factures").Cells(i, 13).EntireRow.Copy Worksheets("Hors délais").Rows(j).EntireRow
          j = j + 1
    End If
Wend
 
        If insuf = True Then
            MsgBox "REtard de traitement signalé!"
            Worksheets("Hors délais").Select
        End If

J'ai pas vérifier le code...

[NEC14]

Merci DeaD78 et à tous les autres pour votre aide.

Laetitia ton code est intéressant mais pas adapter à ce que je veux faire, car j'ai besoin d'éditer la feuille contenant les dépassements de délais. Il est vrai que je ne l'avais pas précisé dans mon message.

Encore milles mercis

Bon week-end à tous