Effacement lignes selon ... Résolu/Fermé

Question

Bonsoir le forum

Je ne parviens pas au résultat espéré ce soir ...
Dans le fichier suivant :  https://www.cjoint.com/c/FCEsTFwb6CI
J'aurais besoin d'effacer en feuille "France" le contenu de toutes les lignes contenant le mot "Erreur" (quelle que soit la colonne) et de stocker les numéros de ligne en mémoire.
Dans un deuxième temps, j'ai besoin d'effacer le contenu des mêmes lignes (en mémoire) sur la feuille USA.

J'ai commencé le code (voir module), mais rien ne se passe ...

Par avance merci bien pour l'aide apportée !


Configuration: Windows 7 / Excel 2010 / Firefox 45.0

ccm81 · Answer

Bonjour

Un essai avec ce que j'ai compris
http://www.cjoint.com/c/FCEtplyAwHR 

Cdlmnt

touroul · Answer

Bonsoir ccm81

Bravo, tu as très bien saisi la problématique et le code, après adaptation à mon classeur, fonctionne parfaitement, grand merci à toi !

J'ai encore une requête si possible : est-il possible de réaliser la même opération (en plus de la 1ère) en recherchant "Erreur" à partir de la feuille "USA", et effacer les lignes correspondantes de la feuille "France" ?
J'ai essayé de comprendre un peu le code mais c'est d'un niveau qui n'est pas le mien : juste un truc : à quoi correspond le "Option Base 1" ? Jamais vu celui là ...  

Vraiment sympa de t'être penché sur mon problème.

A plus

ccm81 · Answer

1. est-il possible de réaliser la même opération (en plus de la 1ère) en recherchant "Erreur" à partir de la feuille "USA", et effacer les lignes correspondantes de la feuille "France"
Est ce la même procédure qui doit faire les deux opérations ?

ccm81 · Answer

Set obj = .Rows(liFF).Find(E, , , xlWhole)
recherche E dans toute la ligne liFF
Option Explicit est une directive qui impose aux tableaux déclarés de commencer à l'indice 1

ccm81 · Answer

Comme ça ?
http://www.cjoint.com/c/FCEurb8k1CR

ccm81 · Answer

Les deux lignes Const coFF et coFU sont inutiles (j'ai changé l'intruction qui calcule lifin)  tu peux les supprimer
Si c'est OK, je peux te commenter un peu le code

touroul · Answer

Cette fois c'est carton plein.

Mille mercis ça va servir tous les jours à mon équipe.
Je n'y serais par parvenu c'était quand même très difficile.

Bonne nuit et encore un grand merci pour ton dévouement et ta facilité à t'adapter aux demandes.

ccm81 · Answer

1. J'ai ajouté une ligne qui évitera à la procédure de planter si aucun "Erreur " dans la feuille 
If n = 0 Then Exit Sub
With Sheets(FB)

2. j'ai ajouté quelques explications
http://www.cjoint.com/c/FCEuJ4K0drR 

3. Si c'est fini, merci de mettre le sujet à Résolu (sous le tiitre de ton premier message)

Cdlmnt

touroul · Answer

Bonjour ccm81

J'ai tout testé ce matin au lever.
Il n'y a aucun problème, mes lignes sont bien supprimées de part et d'autres.
En cas d'absence d'erreur, rien ne se passe, c'est impeccable.

Et merci pour les explications détaillées sur la feuille, j'ai tout compris (faut pas se mélanger les pinceaux avec les constantes !)

C'était d'un bon niveau, sans ton aide je n'y serai pas parvenu.

Bonne journée à toi, mille mercis cher ami !
Au plaisir

ccm81 · Answer

(faut pas se mélanger les pinceaux avec les constantes !) 
Oui mais, ces constantes sont là pour éviter d'avoir à toucher au corps de la procédure (un malheur est si vites arrivé) au cas où la configuration des feuilles serait modifiée

Bonne journée

Effacement lignes selon ...

10 réponses

Discussions similaires