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,
A voir également:
- Macro VBA utilisation log
- Utilisation chromecast - Guide
- Télécharger gratuitement notice d'utilisation - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
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,