Macro VBA utilisation log

Fermé

Mat - 9 juin 2009 à 00:27
Mat - 9 juin 2009 à 17:25

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,

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

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
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

Mat
9 juin 2009 à 17:25

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,

Discussions similaires

TI college plus (calculatrice probleme)

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA