Utilisation d'une Boucle avec Autofilter

[tounsy]

Bonjour,

Je travaille actuellement sur une macro excel qui a pour but de me faire un récapitulatif pour mes vendeurs avec calcul de commissions.

En VBA, j'ai fait une boucle pour qu'a chaque vedeur d'une plage, une feuille soit crée est des lignes provenant de la feuille "Base" soient recopiées.

Pour cela j'utilise la Fonction AutoFilter tel quel :
Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)

Temp(I, 1) étant la variable du nom de mon vendeur.

Le problème est que je tombe sur une erreur 400 très certainement dûe à ce que le vendeur 'temp(I, 1)' n'ai pas fait de vente ce mois-ci.

Comment contourner ce problème ?

J'ai fait quelques tests de IF mais je n'y arrive vraiement pas ..... 😕

Merci beaucoups pour votre aide 😉

 

[wilfried_42]

Re : Utilisation d'une Boucle avec Autofilter

Bonjour et bienvenue

essaye ça (si ton analyse de l'erreur est bonne)

Sheets("base").Select
If Application.WorksheetFunction.SumIf(Range("AL:AL"), temps(I, 1)) > 0 Then
    Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)
    If Range("A2").Value <> "" Then
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(temp(I, 1)).Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipBlanks:=False, Transpose:=False
    End If
End If

 

[tounsy]

Re : Utilisation d'une Boucle avec Autofilter

Bonjour et bienvenue

essaye ça (si ton analyse de l'erreur est bonne)

Sheets("base").Select
If Application.WorksheetFunction.SumIf(Range("AL:AL"), temps(I, 1)) > 0 Then
    Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)
    If Range("A2").Value <> "" Then
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets(temp(I, 1)).Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipBlanks:=False, Transpose:=False
    End If
End If

Bonjour wilfried_42,

Merci de t'être penché sur mon problème 😉
Je n'ai effectivement plus le message d'erreur mais maintenant la récupérations des données ne se fait plus....🙁

 

[wilfried_42]

Re : Utilisation d'une Boucle avec Autofilter

re:

bizarre, m'enfin
autre solution

Sheets("base").Select
'If Application.WorksheetFunction.SumIf(Range("AL:AL"), temp(I, 1)) > 0 Then
    Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)
    If Range("A65500").End(xlUp).Row > 1 Then
        Range("A2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(temp(I, 1)).Select
        Range("A6").Select
        Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipBlanks:=False, Transpose:=False
    End If
'End If
'Récupération du Numéro de Commission
'If Application.WorksheetFunction.SumIf(Range("AL:AL"), temp(I, 1)) > 0 Then
    Sheets("base").Select
    Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)
    If Range("A65500").End(xlUp).Row > 1 Then
        Range("AI2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(temp(I, 1)).Select
        Range("B6").Select
        Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipBlanks:=False, Transpose:=False
    End If

 

[tounsy]

Re : Utilisation d'une Boucle avec Autofilter

re:

bizarre, m'enfin
autre solution

Sheets("base").Select
'If Application.WorksheetFunction.SumIf(Range("AL:AL"), temp(I, 1)) > 0 Then
    Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)
    If Range("A65500").End(xlUp).Row > 1 Then
        Range("A2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(temp(I, 1)).Select
        Range("A6").Select
        Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipBlanks:=False, Transpose:=False
    End If
'End If
'Récupération du Numéro de Commission
'If Application.WorksheetFunction.SumIf(Range("AL:AL"), temp(I, 1)) > 0 Then
    Sheets("base").Select
    Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)
    If Range("A65500").End(xlUp).Row > 1 Then
        Range("AI2").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Sheets(temp(I, 1)).Select
        Range("B6").Select
        Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, operation:=xlNone, skipBlanks:=False, Transpose:=False
    End If

J'ai cette fois-ci l'erreur 400 ......

En faite, la macro commence par :
Selection.AutoFilter Field:=38, Criteria1:=temp(I, 1)

Et la valeur temp(I, 1) est présente dans ma plage --> création de l'onglet
Mais n'est pas presente dans la feuille base --> erreur 400.

 

[wilfried_42]

Re : Utilisation d'une Boucle avec Autofilter

re:

j'ai fait un 2ème test, je n'ai pas plus l'erreur que pour le premier
ton fichier en retour

 

[tounsy]

Re : Utilisation d'une Boucle avec Autofilter

re:

j'ai fait un 2ème test, je n'ai pas plus l'erreur que pour le premier
ton fichier en retour

C'est parfait ! merci à toi Wilfried 😉