Discussion :

[oudin77]

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

[Caro-Line]

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

[oudin77]

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

[Caro-Line]

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.

[Commodore]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Hagendorf]

Bonjour,

Tu peux essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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