Recopiage Cellules avec Filtre

[paco22]

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

 

[RENAUDER]

Re : Recopiage Cellules avec Filtre

Bonjour,
Une ébauche

 

[paco22]

Re : Recopiage Cellules avec Filtre

Pour ma part, j'aimerais mettre les noms, prenoms et naissances des enfants, en une seule colonne... et seulement pour les personnels ACTIF.
Merci

Paoc22

 

[skoobi]

Re : Recopiage Cellules avec Filtre

Bonsoir paco22 Renauder,

voici une autre proposition.
Bon test et bonne fêtes!!!

 

[paco22]

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

 

[skoobi]

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...

 

[paco22]

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

 

[skoobi]

Re : Recopiage Cellules avec Filtre

Re,

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

voici les modifications à faire:

        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à. 🙂

 

[paco22]

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

 

[skoobi]

Re : Recopiage Cellules avec Filtre

Pour le site, tu es sur le bon 😀.
Pour le livre, regarde ici:
Livre VBA pour Excel pour les nuls - J. Walkenbach - - Librairie Eyrolles
J'ai commencé avec l'enregistreur de macro puis je tatonnais et ensuite j'ai acheté ce livre qui met au clair beaucoup de chose et enfin je me suis perfectionné grace à ce super site 🙂🙂

 

[paco22]

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

 

[paco22]

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

 

[skoobi]

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).

 

[paco22]

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

 

[paco22]

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