Copier les lignes de Sheet1 et copier Sheet2 en fonction valeur

news8319 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention   -  
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   31
 
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
0
Réponse 2 / 2
news8319 Messages postés 9 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
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,
0