Discussion :

[bech59]

Bonjour,
Dans un de mes fichiers je retrouve des doublons sur une des colonnes ( colonne (D).
Je voudrais effacer dans l'ensemble des feuilles composants mon fichier les lignes complètes ou l'on retrouve les doublons de la même dénomination à savoir "starting".
le nombre de feuille dans mon fichier n'est pas fixe et on ne peu pas savoir le nombre de feuille avant de lancer la macro.
auriez vous une solution à me proposer!
merci

[bech59]

oui c'esst sur avec un screenshoot ça marche toujours mieux enfaite j'ai mal formulé le problème je voudrais supprimer toute les lignes de mon fichier où l'on retrouve le mot starting et où il n'y a pas de valeur dans la colonne O... si joind un exemple

[lionhigh]

A moins que tu aies plusieurs feuilles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
        For x = 1 To 200 'on pourait utiliser Ubound pour connaitre la derniere ligne du tableau, mais je sais pas comment il marcher
            If Cells(x, "O") = "" Or Left(Cells(x, "D"), 8) Like "STARTING" Then
                Rows(x & ":" & x).Select
              Selection.Delete Shift:=xlUp
            Else
 
            End If
        Next x

[bech59]

oui j'ai plusieurs feuille, il faudrais docn appliquer ceci à tout mon fichier!
petite précision cette macro est stocké dans un fichier et s'appliquera sur un autre comment faire pour lui indiqué??

[bech59]

je viens de testé ta macro mais elle ne supprime pas tous ce quil faudrait g besoin de supprimer les lignes contenant starting en colonne D, les lignes ne contenant rien en colonne O et les lignes contenant starting en D et un chiffre en 0

[lionhigh]

Pour l'appliquer à toutes les feuilles je ne sais pas comment faire. J'ai essayé, mais je n'arrive pas à faire fonctionner.

Pour l'appliquer à un autre fichier tu peux l'ouvrir, puis lui appliquer le traitement des lignes, l'enregistrer et le fermer. Tout ce que tu dois savoir se trouve là :
http://warin.developpez.com/access/fichiers/

Suffit de chercher un peu :-p

Pour les autres conditions: ajoute les conditions nécessaires dans le If avant le Then en utilisant Or. Pourtant mon If englobe ce dont tu as besoin:

Si la cellule de la colonne O est vide OU la cellule de la colonne D commence par starting, alors elle sera supprimée.