Probleme de recupération de données-à suprimer

Bonjour à tous,

j'aimerai que vous jetiez un coup d'oeil sur mon code,

j'aimerai récupérer les valeurs non vide d'une de mes colonnes ainsi que le nom de l'onglet dans un tableau.

mais j'ai du oublier quelques lignes , car ma macro ne récupère aucune donnée

Ci joint je vous transmet un fichier exemple, et mon code

Pour info mon niveau en vb est encore faible, je suis preneur de toutes explications,

et je reste à votre disposition pour tous complément d'information.

DefBool Y
'Cette instruction doit se trouver sur la première ligne du module
           'Avant toute autre déclaration ,Sub ou Function

Function testo()

Dim Y, Y1, Y2, Y3, Y4, Y5, Y6, i% ' % = As integer
Dim tab_entete() As Integer
Dim Nb_Feuil
Dim Nb_Champ

Dim Ligne_Depart, ligne_fin

'affiche_tous

  For i = 1 To Worksheets.Count
      With Worksheets(i)
      Y1 = Left(.Name, 8) = "Synthese"
      Y2 = Left(.Name, 1) = "_"
      Y3 = Left(.Name, 6) = "Modele"
      Y4 = Left(.Name, 3) = "CAL"
      Y5 = Left(.Name, 9) = "Bienvenue"
      Y6 = Left(.Name, 3) = "PIP" ' modele dont les infos sont en colonne etat_lib
      Y = Y1 Or Y2 Or Y3 Or Y4 Or Y5

        If Not Y Then ' exclusion des onglets non conserné
        If Y <> Y6 Then 'exclusion des onglets PIP
            With Worksheets(i)
           i = 0
           i = i + 1
           col_rapport = 1
                        ligne_debut = Range("Rapport_lib").Row + 1
                        ligne_fin = Range("STOP").Row - 1
                        For cpt = ligne_debut To ligne_fin
                        Rapport_lib = Cells(cpt, col_rapport)

                                'Alimentation du tableau
                        tab_entete(cpt0, cpt_tab) = Rapport_lib
                        cpt0 = cpt0 + 1
                        cpt_tab = cpt_tab + 1
                        ReDim Preserve tab_entete(Nb_Champ, cpt_tab)
                    Next
                 End With
                 End If
                 End If
                 GoTo continue
                Y = Y6 'traitement des onglets PIP
                 If Y Then
            With Worksheets(i)
    i = 0
    i = i + 1

                        ligne_debut = Range("Etat_lib").Row + 1
                        ligne_fin = Range("STOP").Row - 1
                        For cpt = ligne_debut To ligne_fin
                           Etat_lib = Cells(cpt, cpt_tab)

                                'Alimentation du tableau
                                cpt0 = 0
                                tab_entete(cpt0, 0) = Etat_lib
                                cpt0 = cpt0 + 1
                                cpt_tab = cpt_tab + 1
                                ReDim Preserve tab_entete(Nb_Champ, cpt_tab)
                    Next
                 End With

                 End If
      End With
   Next

bonjour,

Là tu as tout faux :

If Y <> Y6 Then 'exclusion des onglets PIP

Tu es dans une boucle If Not Y c'est donc que Y = False

et si Y <> Y6 c'est que Y6 est True : Tu ne traite donc que les onglets PIP !

Relève un peu la tête du guidon... Hume un peux l'air frais de l'été !

A+

Ok il me faudra donc faire une première boucle en excluant tous les onglets inutile et une seconde avec juste avec les onglets pip, merci encore galopin pour les explications

bon alors j'essaie de faire ma première boucle mais pour le coût c'est moi qui tourne en rond. ( et pourtant j'ai bien pris l'air )

La macro reste sur l'onglet sélectionner...

et j'ai une erreur sur la récupération du nom de l'onglet

je remet mon fichier avec le code

bonsoir,

                            nomonglet = Worksheets(i).Name  '= SON_E3WS

A+

Merci !

Ca va beaucoup mieux comme cela!

Quit à passer pour un bon blaireau, j'ai toujours un problème sur la récupération de mes données de la colonne B de la ligne 26 à 100,

je suis repartit d'un code que galopin m'avait gentiment retravaillé, histoire de faire le moins d'erreur possible... mais voilà mon ancien surnom revient vite " the bugman" à encore frappé!

Si je demande de récupéré une valeur de la colonne le code est nickel ( because rédiger par galopin) mais dès que je veux récupérer les données non vide de la colonne sur plusieurs lignes ( limité pour l'instant à quatre lignes, ca bug )

je retransmet mon vilain petit fichier....

si vous avez des idées, et des explications ... je suis là

Merci d'avance