Macro VBA utilisation log
Mat
-
Mat -
Mat -
Bonjour,
je souhaite réaliser une macro qui me permette de récupérer dans plusieurs onglets l'ensemble des lignes contenant l'intitulé "Non disponible".
J'ai déjà une boucle qui me permet de lire l'ensemble des onglets de mon fichier. Reste à trouver la fonction qui me ramenera l'ensemble de ces informations (le but est de constituer un fichier d'erreur).
Ci dessous un exemple de ce que je cherche à faire (dans le cas réel il y a plusieurs milliers de lignes par onglet) :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijQjuEMBI.xls
Cordialement,
je souhaite réaliser une macro qui me permette de récupérer dans plusieurs onglets l'ensemble des lignes contenant l'intitulé "Non disponible".
J'ai déjà une boucle qui me permet de lire l'ensemble des onglets de mon fichier. Reste à trouver la fonction qui me ramenera l'ensemble de ces informations (le but est de constituer un fichier d'erreur).
Ci dessous un exemple de ce que je cherche à faire (dans le cas réel il y a plusieurs milliers de lignes par onglet) :
http://www.cijoint.fr/cjlink.php?file=cj200906/cijQjuEMBI.xls
Cordialement,
Configuration: Windows Vista Internet Explorer 7.0
1 réponse
-
Bonjour,
Avec une simple boucle tu cherches la valeur "Non disponible" :
Do while activecell <> "Non disponible
Activecell.offset(1, 0).select
loop
Tu sélectionnes ce que tu as besoin, copies et colles dans Feuil1 par exemple-
Merci pour ta réponse,
Finalement j'ai intégré ces lignes dans ma macro avec une fonction If then End if :
j=1
..
If cell.Offset(0, 17) = "Indéterminé" Then
Range(cell.Offset(0, 15), cell.Offset(0, 22)).Select
Selection.Copy
Sheets("Anomalies").Select
Range(Cells(j, 1), Cells(j, 2)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
j = j + 1
Sheets(iter).Activate
End If
Cordialement,
-
