Macro VBA utilisation log
Fermé
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
- Notice d'utilisation - Guide
- Utilisation chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 754
9 juin 2009 à 08:22
9 juin 2009 à 08:22
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
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
9 juin 2009 à 17:25
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,