Fonction rechercher sous excel
Lulu_MOB
Messages postés
6
Statut
Membre
-
cdz41 Messages postés 33 Statut Membre -
cdz41 Messages postés 33 Statut Membre -
Bonjour,
Je débute à peine sous VBA.
J'ai un tableau avec deux colonnes, une pour des références et l'autre pour des resultats de tests.
Je dois à partir d'un tableau dont les cellules sont remplie de données importées d'un fichier word par copie speciale,
chercher les tests ayant pour resulat OK et afficher dans une nouvelle feuille la liste des référence ayant répondu correctement à cette requête.
J'ai cherché sur différent forum mais aucune solution répond à mon problème...
Merci de votre aide.
Je débute à peine sous VBA.
J'ai un tableau avec deux colonnes, une pour des références et l'autre pour des resultats de tests.
Je dois à partir d'un tableau dont les cellules sont remplie de données importées d'un fichier word par copie speciale,
chercher les tests ayant pour resulat OK et afficher dans une nouvelle feuille la liste des référence ayant répondu correctement à cette requête.
J'ai cherché sur différent forum mais aucune solution répond à mon problème...
Merci de votre aide.
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Bonjour, voici une petite macro que je te laisse etudier il te faut 2 feuilles de calcul Feuil1 ou tu a tes tests en colonne A et tes resultats de test en colonne B (ex "NG" et "OK")
cette macro fait un copier coller sur la Feuil2 des tests dont la valeur en colonne B est"OK"
les tests doivent commencer en A1 sur la Feuil1 et la Feuil2 dois etre vierge.
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/05/2008 par Desprez - 8340
'
Sheets("Feuil1").Select
Sheets("Feuil2").Select
Cells.Select
Selection.ClearContents
Range("a1").Select
Sheets("Feuil1").Select
Range("a1").Select
Do
If ActiveCell = "" Then
Exit Do
Else
If ActiveCell.Offset(0, 1) = "OK" Then
Range(ActiveCell, ActiveCell.Offset(0, 1)).Select
Selection.Copy
Sheets("feuil2").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
End If
Loop
'
End Sub
essai cette macro en mode pas a pas pour voir ou cela disfonctionne avec tes données et ajuste la macro a ton fichier.
a+ et bon excellllll
CDZ
