Copier les lignes de Sheet1 et copier Sheet2 en fonction valeur

Fermé

news8319 Messages postés 9 Date d'inscription jeudi 14 janvier 2016 Statut Membre Dernière intervention 26 février 2016 - 25 févr. 2016 à 06:26
Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 - 26 févr. 2016 à 09:39

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

Réponse 1 / 2

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
25 févr. 2016 à 14:58

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

Réponse 2 / 2

news8319 Messages postés 9 Date d'inscription jeudi 14 janvier 2016 Statut Membre Dernière intervention 26 février 2016
26 févr. 2016 à 03:09

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

Theo.R Messages postés 575 Date d'inscription vendredi 11 juillet 2014 Statut Membre Dernière intervention 30 mars 2016 31
26 févr. 2016 à 09:39

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,

Newsletters