probleme de programmation (debutant)

bonjour à tous,

Je débute en vba et j'aimmerais faire un programme qui permet de prendre que les filles d'un tableau (feuille1) et les copier dans la feuille 2.Voila mon probleme.
Si quelqu'un peut me venir en aide.
Merci par avance,
Cordialement,

Oudin77

Et comment tu reconnais que ce sont des filles dans ton tableau ?

Bonjour,

Tu peux essayer ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

sub Recopie   dim X as long, y as long x=1 y=1 'Si il s'agit dune fille ou d'un garçon dans la colonne A et que ça commence a la ligne 1 while cells(x,1)<>"" if sheets("Feuil1").cells(x,1)="fille" then sheets("feuil2").cells(y,1)=cells(x,2) 'par exemple y=y+1 end if x=x+1 wend end sub

---

Tiens esaye avec cette exemple, tu devras adapté le code en fonction du nom des feuilles et des données que tu souhaite obtenir. je ne peux pas t'aider plus sans voir le fichier

parcequ'il ya des caracteristiques dans mon tableau et c'est afficher le genre (femme/homme)

Donc avant de te lancer dans le codage de la macro tu dois pouvoir faire l'action à la main.
Je suppose que tu as une colonne avec les gens dedans et une colonne avec le genre.
Tu filtres sur la colonne genre (Mettre au préalable Données > Filtre > Filtre Automatique)
Et tu copie/colle les gens (qui ne sont alors que des filles).

Tu n'as plus qu'à faire l'action en enregistrant la macro puis tu l'édites et éventuellement tu la modifie pour la rendre un peu plus jolie et performante.

un exemple qui pourrait t'aider:
disons que ton tableau a 2 colonnes: NOM (col A) et SEXE (col B)
Les cellules concernées sont de A1 à B500

Code:

---

1 2 3 4 5

Dim c As Range For Each c in Range("A1:A500") If Range("B" & c.Row).Value = "Fille" Then MsgBox "Fille détéctée en ligne " & c.Row & " !" End If

---