Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier certaines cellules d'une feuille vers une autre sous condition

  • Initiateur de la discussion Initiateur de la discussion zek
  • Date de début Date de début

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 !

zek

XLDnaute Nouveau
Bonjour,

j'ai un classeur Excel qui comprend plusieurs feuille dont une "BDD" et "Sommaire".

la feuille "BDD" est alimentée par un userform (formulaire pour réaliser un suivi de courrier).

Je souhaite avoir sur la feuille "sommaire" certaines cellules de la feuille "BDD" si une donnée (en colonne D de cette même feuille) est absente.

exemple :
si en ligne 2 la colonne D est vide, alors les la valeur des cellules en colonnes A, C, F, L,... de cette ligne, sont reprises en feuille "Sommaire" à partir de la celulle B14

puis si xx autres lignes sont concernées, alors elles se rajoutent à la suite sur cette feuille sommaire.

Merci pour votre aide!!
 
Re : Copier certaines cellules d'une feuille vers une autre sous condition

Bonjour, zek, le Forum,

...Merci pour votre aide!!

Merci 🙄 pour le fichier exemple non fourni...

Une suggestion avec ce code logé dans le module de l'onglet "Sommaire".

Code:
Option Explicit
Private Sub Worksheet_Activate()
    Range(Range("a2"), Range("d2").End(xlDown)).Clear
    With Sheets("BDD")
        .Range("a1").AutoFilter
        .Range("a:l").AutoFilter Field:=4, Criteria1:="="
        .Range("a2:a10000,c2:c10000,f2:f10000,l2:l10000").SpecialCells(xlCellTypeVisible) _
                .Copy Sheets("Sommaire").Range("a" & Rows.Count).End(xlUp)(2)
        .Range("a1").AutoFilter
    End With
End Sub

A bientôt 🙂
 
- 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
5
Affichages
234
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…