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

Recopiage Cellules avec Filtre

Créer une discussion

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 !

S'inscrire
P

paco22

XLDnaute Junior
Bonjour à tous,

j'aimerais recopier des cellules d'une feuille sur une autre en cliquant sur un bouton, avec comme contrainte un filtre sur une colonne.
Je vous joins le fichier exemple, avec une feuille du resultat voulu.
Le filtre est que l'on ne prends que les personnel ACTIF.
Merci de votre aide.

Paco22
 

Pièces jointes

Trier par date Trier par votes
Re : Recopiage Cellules avec Filtre

Bonjour Skoobi,

c'est vraiment cela que j'espérais... c'est parfait.
Y-aurait-il moyen d'avoir un peu de commentaires pour les lignes suivantes

Set personne = Range(etat.Offset(0, -3), etat.Offset(0, -1))
Set enf1 = Range(etat.Offset(0, 1), etat.Offset(0, 3))

et cela

Set suite = .[A65536].End(xlUp).Offset(1, 0)
If enf1(1).Value <> "" Then
personne.Copy suite
enf1.Copy .Range(suite.Offset(0, 3), suite.Offset(0, 5))
Set suite = .[A65536].End(xlUp).Offset(1, 0)
End If


Merci d'avance
Paco22
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Re paco22,
pas de problème.

set personne: la plage personne

etat.Offset(0, -3): la 3e cellule à gauche de le cellule état
etat.Offset(0, -1): la 1ere cellule à gauche de le cellule état
etat.Offset(0, 1): la 1ere cellule à droite de le cellule état

là je pense que tu as compris ce que veut dire offset.

[A65536].End(xlUp): c'est possible de "simuler" celà en faisant:
1-va sur la cellule "A65536"
2- appuie sur la touche "fin"
3- appuie sur la touche "flèche haut"
Offset(1, 0): la 1ere cellule au-dessous

If enf1(1).Value <> "" Then: si la 1ere cellule de la palge "enf1" est vide alors

Edit: si tu veux plus d'explication, n'hésite pas, ne connaissant pas ton niveau en VBA...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Bonjour Skoobi,

c'est ok pour les explications.
J'avais une autre question....
est-il possible lors du recopiage des noms prenoms naissances des enfants, de mettre un filtre également sur la date de naissance ?
C'est à dire, que je ne veux pas par exemple prendre les enfants nés avant 01/01/1995.
Merci

Paco22
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Re,

oui c'est possible, avec VBA presque tout est possible 😀:

voici les modifications à faire:

Code: 
        With Sheets("resultats")
            Set suite = .[A65536].End(xlUp).Offset(1, 0)
            If enf1(1).Value <> ""[B][COLOR="Teal"] And enf1(3).Value >= #1/1/1995#[/COLOR][/B] Then
                personne.Copy suite
                enf1.Copy .Range(suite.Offset(0, 3), suite.Offset(0, 5))
                Set suite = .[A65536].End(xlUp).Offset(1, 0)
            End If
            If enf2(1).Value <> ""[B][COLOR="Teal"] And enf2(3).Value >= #1/1/1995# [/COLOR][/B]Then
                personne.Copy suite
                enf2.Copy .Range(suite.Offset(0, 3), suite.Offset(0, 5))
                Set suite = .[A65536].End(xlUp).Offset(1, 0)
            End If
            If enf3(1).Value <> ""[B][COLOR="Teal"] And enf3(3).Value >= #1/1/1995# [/COLOR][/B]Then
                personne.Copy suite
                enf3.Copy .Range(suite.Offset(0, 3), suite.Offset(0, 5))
                Set suite = .[A65536].End(xlUp).Offset(1, 0)
            End If
            If enf4(1).Value <> "" [COLOR="Teal"][B]And enf4(3).Value >= #1/1/1995#[/B][/COLOR] Then
                personne.Copy suite
                enf4.Copy .Range(suite.Offset(0, 3), suite.Offset(0, 5))
                Set suite = .[A65536].End(xlUp).Offset(1, 0)
            End If
            If enf5(1).Value <> "" [COLOR="Teal"][B]And enf5(3).Value >= #1/1/1995# [/B][/COLOR]Then
                personne.Copy suite
                enf5.Copy .Range(suite.Offset(0, 3), suite.Offset(0, 5))
                Set suite = .[A65536].End(xlUp).Offset(1, 0)
            End If
        End With

et l'explication:
If enf1(1).Value <> "" And enf1(3).Value >= #1/1/1995# Then:
si la 1ere cellule de la plage "enf1" est vide et la 3eme cellule (naissance) est sup. ou égal au 01/01/1995 alors..
Voilà. 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Merci Skoobi,

c'est vraiment parfait....c'est ce que je voulais.
C'est vrai que l'on peut tout faire avec VBA.... pour ma part, je débute vraiment... je viens d'avoir un stage de 3 jours sur les Userform... et VBA, et cela m'a donné envie de m'y mettre pour simplifier mes fichiers, et créer des Formulaires plus conviviaux à remplir...

Y-a-t-il un site internet sympa pour les débutants, ou des livres ?
Merci d'avance et à l'occas.

Paco22
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

En tout cas merci pour ton aide rapide.
Je vais voir pour ce livre... pour le site, j'avais remarqué qu'il y avait des "pros".....
Merci et bonnes fêtes de fin d'année.

Paco22
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Bonjour Skoobi,

si pour cette nouvelle contrainte de la date, je désire réaliser un formulaire, avec un champs à renseigner pour cette date, qu'elles sont les conséquences sur le code ?
Merci de ton aide.

Paco22
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Re bonjour,

je suppose que tu parles d'un userform.
Et bien il faudra remplacer la date par la valeur du controle se trouvant dans le userform.
exemple:
#1/1/1995# à remplacer par DateValue(lecontrole.value).
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

Bonjour

en mettant ceci, ça doit marcher ??

If enf1(1).Value <> "" And enf1(3).Value >= DateValue(datenaissance.Value) Then

mais mon champs n'est pas considérer comme du texte ??
Meric

Paco22
 
Vote positif 0 Vote négatif
Re : Recopiage Cellules avec Filtre

cela ne fonctionne pas, mais je pense que c'est parce que mes cellules dans mon fichier ne sont pas en Date mais en TEXTE, donc c'est peut-être pas datevalue qu'il faut mettre....
Merci pour l'aide

Paco22
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
290
desmonts
D
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
1 K
jcf6464
V
  • Question Question
Microsoft 365 Liaison automatique de cellules
Réponses
4
Affichages
178
sylvanu
P
  • Résolu(e)
Microsoft 365 Remplissage tableau avec 2 conditions
Réponses
4
Affichages
208
pierrof
P
A
  • Question Question
XL 2016 Obtenir un NB SI ENS mais avec un filtre
Réponses
12
Affichages
399
AdrienExcel13
A
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
376
Phil69970
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
628
sousou
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
471
fanch55
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
197
sylvanu
2
  • Résolu(e)
Microsoft 365 Filtrer plage afficher cellules avec plus d'une valeur dans une colonne
Réponses
6
Affichages
505
2pi_N
2
A
  • Question Question
Microsoft 365 récupérer des valeurs après un filtre en VBA (pour envoyer des emails)
Réponses
6
Affichages
263
aurejotrail
A
H
  • Question Question
Microsoft 365 Création application excel
Réponses
5
Affichages
372
Lolote83
L
  • Résolu(e)
XL 2021 Une aide pour optimiser du code VBA
2
Réponses
16
Affichages
469
jeff1494
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
1 K
Alain 79
A
D
  • Résolu(e)
Microsoft 365 Filtre avancé VBA multi-critères
Réponses
14
Affichages
762
DELHOMME
D
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
191
PRy
P
N
  • Question Question
Microsoft 365 Créer une fenêtre de vente qui alimentera un cumul dans un tableau
Réponses
2
Affichages
339
job75
J
  • Question Question
XL 2021 Nom groupe cellules
Réponses
3
Affichages
170
Dranreb
E
  • Résolu(e)
Microsoft 365 Filtre sur LISTBOX
2
Réponses
16
Affichages
1 K
eric72
E
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
1 K
Nain porte quoi
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…