Code VBA Instr ne fonctionne pas

Version imprimable

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:

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

18/12/2021, 17h20
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
18/12/2021, 18h47
trouvaille

Citation:

Envoyé par 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

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

solutionné

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
18/12/2021, 19h04
trouvaille

Citation:

Envoyé par 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

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

Exemple avec Select Case :
Code:

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:

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:

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

Ami calmant, J.P

19/12/2021, 15h50
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