aide svp sur macro consolidation !!!!!!

[fpouzou]

bonjour

voila je travail sur un suivi de materiel et j'ai des petit probleme pour cosonlider les differentes feuilles lorsque je consolde il m efface ma base de donnée qui se trouve sur la feuille accueil je n'arrive pas a modifier le code de facon a lui dire de ne pas selectionner tout mes feuilles sauf accueil est bd

merci de votre aide 😱

 

[jp14]

Re : aide svp sur macro consolidation !!!!!!

Bonjour

Ci dessous la procédure à modifier

Sub consolide_ongletsNomOnglet()
 Sheets("ACCUEIL").[A1].CurrentRegion.Offset(1, 0).Clear
 For s = 2 To Sheets.Count
    [COLOR="Red"]Select Case Sheets(s).Name[/COLOR]
        [COLOR="Red"]Case "toto", "tutu" ' mettre le nom des feuilles[/COLOR]
            nlig = Sheets(s).[A65000].End(xlUp).Row - 1
            ncol = Sheets(s).[A1].CurrentRegion.Columns.Count
            [A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
            [A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
            Sheets(s).[A2].Resize(nlig, ncol).Value
       [COLOR="Red"] Case Else
    End Select[/COLOR]
 Next s
 On Error Resume Next
 [A:a].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

En rajoutant le code on indique les feuilles qui sont concernées par la procédure, la feuille "ACCUEIL" est toujours concernée.

JP

 

[fpouzou]

Re : aide svp sur macro consolidation !!!!!!

merci pour cette reponse mais comme le principe de ce fichier et d'evoluer en fonction des demande et qu'il frabrique lui meme les feuille necessaire je ne peux pas lui donner les feuille concerner juste les feuille qu il ne doit pas prendre en compte a moin de faire autrement je suis preneur merci encore pour l'aide

 

[jp14]

Re : aide svp sur macro consolidation !!!!!!

Bonsoir fpouzou


IL suffit de modifier le select case

Sub consolide_ongletsNomOnglet()
................................
    Select Case Sheets(s).Name
        Case "toto", "tutu" ' mettre le nom des feuilles qui ne sont pas à utiliser
 
        Case Else
           nlig = Sheets(s).[A65000].End(xlUp).Row - 1
            .................................................
            Sheets(s).[A2].Resize(nlig, ncol).Value
    End Select
...................................
End Sub

 

[fpouzou]

Re : aide svp sur macro consolidation !!!!!!

super ca marche !!!!!!!! Merci encore
mille fois

encore une petite chose je voudrais a partir de mon formulaire avec le bouton rechercher faire apparaitre dans une feuille la vétusté en fonction de mes trois critaire
- 1ANS ; 1ANS et 3ANS ; +3ANS
le mot de pass admin que je dois virer pour ne plus proteger mon classeur mais je verrrais
plus tard
merci pour ton aide