aide svp sur macro consolidation !!!!!!

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fpouzou

XLDnaute Nouveau
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 😱
 

Pièces jointes

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

Bonjour

Ci dessous la procédure à modifier

Code:
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
 
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
 
Re : aide svp sur macro consolidation !!!!!!

Bonsoir fpouzou


IL suffit de modifier le select case
Code:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
1 K
Réponses
5
Affichages
599
Retour