Discussion :

[trouvaille]

Bonjour,

j'ai créé un fichier comportant entre autres 13 feuilles (1 récapitulative appelée "Souffrances", et 12 autres comportant des données de commandes en cours).

La feuille "Souffrances" comporte un code VBA repris ci-dessous permettant de reprendre les données des autres feuilles de commandes et ensuite d'effectuer un tri via un module afin d'obtenir les commandes non complètes. (ce module fonctionne).

Je dois avoir un soucis de code dans ma condition If InStr("Souffrances| Feuil25| Feuil26|", ws.Name & "|") = 0 Then. en effet, je n'arrive pas à reprendre toutes les feuilles que je désire mais simplement quelques unes.
J'avoue être débutant en VBA et ne comprend pas trop bien le fonctionnement de cette ligne de code, donc j'ai du mal à la corriger pour quelle fonctionne.

Pourriez-vous m'aider dans cette commande vba.

Merci

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
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub Worksheet_Activate()
'Début de la procédure
Dim LastLig As Long, NewLig As Long
'Déclaration des variables de type numérique,Nombre entier de - 2'147'483'648 à 2'147'483'647 (long)
Dim ws As Worksheet
'déclaration variable ws comme feuille de calcul
Application.ScreenUpdating = False
'demande une mise à jour de la feuille suivant conditions ci-dessous
With Worksheets("Souffrances")
'Concerne l'onglet souffrances
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    'Prendre dernière ligne remplie
    If LastLig > 1 Then .Rows(2 & ":" & LastLig).Clear
    'efface toutes les lignes remplies jusqu'à la deuxième ligne (garde le titre de l'onglet
    NewLig = 2
    'Place le début des nouvelles lignes pour copier les données à partir de la ligne 2 (toujours pour garder les titres)
    For Each ws In ThisWorkbook.Worksheets
    'Prend en considération tout les onglets du fichier (sauf voir condition if instr ci-dessous)
        If InStr("Souffrances| Feuil25| Feuil26|", ws.Name & "|") = 0 Then
        'Condition permettant de ne pas prendre en compte certains onglets (plaçés entre "" et séparés par |)
            LastLig = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            'va chercher la derniere ligne remplie de l'onglet à traiter
            ws.Rows("2:" & LastLig).Copy .Range("A" & NewLig)
            'Recopie les données à partir de la ligne 2 vers la feuille active afin d'éviter le doublon des titres
            NewLig = NewLig + LastLig - 1
            'Passe à la ligne suivante ainsi de suite
        End If
        'fin de la condition de ne pas prendre en compte certains onglets
    Next ws
    'passage à l'onglet suivant jusqu'à ce tout les onglets soient exécutés
End With
'Fin de l'instruction demandant de travailler sur l'onglet souffrances
Application.Run "'commandes 2018 final.xlsm'!tri"
'exécute la macro de tri pour filter les différents etats (se trouve dans le module 2)
End Sub
'Fin de l'instruction(Sub)VBA

[Philippe Tulliez]

Bonjour,
Je ne suis pas certain que vos expliquez bien le problème que vous rencontrez car la ligne d'instruction If InStr("Souffrances| Feuil25| Feuil26|", ws.Name & "|") = 0 Then ne traite que les feuilles qui ne font pas partie de "Souffrances| Feuil25| Feuil26|"

Si c'est que vous cherchez et qu'une partie des feuilles seulement est traitée alors peut-être avez vous un problème de casse. Si c'est le cas , je vous invite à lire ma réponse dans une discussion sur le même sujet https://www.developpez.net/forums/d2.../#post11794492

[trouvaille]

Bonjour,
Je ne suis pas certain que vos expliquez bien le problème que vous rencontrez car la ligne d'instruction If InStr("Souffrances| Feuil25| Feuil26|", ws.Name & "|") = 0 Then ne traite que les feuilles qui ne font pas partie de "Souffrances| Feuil25| Feuil26|"

Si c'est que vous cherchez et qu'une partie des feuilles seulement est traitée alors peut-être avez vous un problème de casse. Si c'est le cas , je vous invite à lire ma réponse dans une discussion sur le même sujet https://www.developpez.net/forums/d2.../#post11794492

alors, je ne comprend pas pourquoi qu'une seule partie des 12 autres feuilles ne soient traitées. juste les 4 premières..???

[trouvaille]

Merci de votre réponse, je vines de me rendre compte que c'est dans le module de tri qu'il y avait un soucis.

Encore merci de la réflexion

[trouvaille]

alors, je ne comprend pas pourquoi qu'une seule partie des 12 autres feuilles ne soient traitées. juste les 4 premières..???

pour info et sécurité, si je veux exclure plusieurs feuilles avec la fonction instr, quelle syntaxe utiliser avec le nom des feuilles entre virgules, quel place pour les guillemets ou puis-je aussi mettre les feuille numérotés ou mélanger les deux comme dans l'exemple;

Merci de me précisez la syntaxe

[jurassic pork]

hello,
pour sélectionner des feuilles dans l'ensemble des feuilles, tu peux aussi utilise Select Case ou Filter.

Exemple avec Select Case :

Code :

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

1
2
3
4
5
6
7
8
9
Sub SelectionFeuillesAvecCase()
 Dim ws
 For Each ws In ThisWorkbook.Worksheets
   Select Case ws.Name
     Case "Souffrances", "Feuil25" To "Feuil26"
         Debug.Print ws.Name
   End Select
 Next ws
End Sub

Pour inverser le test il faut utiliser un Case Else.

Exemple avec Filter :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SelectionFeuillesAvecFilter()
 Dim ws
 Dim myarray As Variant
 myarray = Array("Souffrances", "Feuil25", "Feuil26")
 For Each ws In ThisWorkbook.Worksheets
 If UBound(Filter(myarray, ws.Name)) <> -1 Then
     Debug.Print ws.Name
 End If
 Next ws
End Sub

Pour inverser le test :

Code :

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

 If UBound(Filter(myarray, ws.Name)) = -1 Then

Ami calmant, J.P

[trouvaille]

Super et précis.

Je pense que je vais utiliser cette fonction qui me parait plus facile à comprendre...

Merci beaucoup de l'aide apportée