Copier les lignes de Sheet1 et copier Sheet2 en fonction valeur

[Fermé]
Signaler
Messages postés
9
Date d'inscription
jeudi 14 janvier 2016
Statut
Membre
Dernière intervention
26 février 2016
-
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
-
Bonjour,

Je vous remercie pour votre aide et surtout votre temps.

J'ai un classeur dans lequel j'ai deux feuilles Sheet1 et Sheet2
Je souhaite rechercher dans la colonne A de Sheet1 la valeur <Courage> et copier les ligne dans la feuille Sheet2.

Je me demande si il y a une macro ou une formule matricielle qui peut le faire

Merci pour votre aide

2 réponses

Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
28
Bjr,

Les formules (matricielles ou non) n'exécutent aucune action, elles ne font que renvoyer des résultats dans la cellule où elles sont saisies. Donc pas de solution par formule pour votre pb.

Par macro par contre oui c'est tout à fait approprié. Essayez ce code dans un module VBA :
Sub test()

Dim DernLigne As Long
DernLigne = Sheets("Sheet1").Cells.SpecialCells(xlCellTypeLastCell).Row
m = 1

For i = 1 To DernLigne

If Sheets("Sheet1").Cells(i, 1).Value = "Courage" Then
Sheets("Sheet2").Rows(m).Value = Sheets("Sheet1").Rows(i).Value
m = m + 1
End If

Next i

End Sub
Messages postés
9
Date d'inscription
jeudi 14 janvier 2016
Statut
Membre
Dernière intervention
26 février 2016

Bonjour Théo,

Merci pour ton aide et ton temps.
J'ai mis ce code dans le module 1 mais rien ne se passe.

Aussi j'aimerais savoir selon le code ci-dessus que c'est dans colonne À ou B ou C de la feuille Sheet1 qu'on doit faire la recherche pour identifier le mot Courage.

Merci pour ton aide
Messages postés
575
Date d'inscription
vendredi 11 juillet 2014
Statut
Membre
Dernière intervention
30 mars 2016
28
Les dispositions du document à respecter pour la macro sont :

1) La feuille source se nomme "Sheet1" et la feuille cible "Sheet2"
2) Dans Sheet1, les cellules valorisées à "Courage" sont recherchées dans la colonne A. Il s'agit d'une égalité stricte, donc si vos cellules "contiennent" le mot mais pas que, il faudra changer l'égalité.

Cdt,