Suppresion lignes avant traitement

[anna]

Bonjour à toutes et à tous
voila mon soucis de la journée(j espere le seule
dans un fichier que je dois traiter par des macro que j ai deja fait je voudrai d'abord faire un netoyage cad suprimmer d'abord toute les ligne ou le contenu de la cellule Files(de la colonne G dans l'exemple joint) est vide
en gros j ai tablo (avec files vide et non vide) ------> supprimer les ligne ou files= vide -------> continuer la macro pour traiter le ligne restante.
je n sai spas si je suis claire mais le fichier joint devrai eclaircir ma demande
Merci d'avance
Anna [file name=Supprimer_Lignes.zip size=2277]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Supprimer_Lignes.zip[/file]

 

[anna]

Re bonjour,
personne ne peut m'aider?
j ai rajouter dan sla macro deux lignes pour faire un delete mais ca marche pas,on dirai que ca decale les ligne vers le aut puis ca saute la ligne courante
enfin je bloque la.SVP aidez moi.
Anna

 

[Hervé]

Bonjour

essaye comme ceci :

Sub Bouton1_QuandClic()
Dim i As Integer

For i = Range('b65536').End(xlUp).Row To 2 Step -1
If Range('g' & i).Value = '' Then Rows(i).Delete
Next i
End Sub

Salut

 

[anna]

ohh mon ami hervé bonjour
tu sais quoi j ai fais exactement la meme chose sauf que quand je comparai avec le fichier source en faisant un filtre sur true si file non vide et je voyais le numero de la dernier ligne differente du numero de la derniere ligne du fichier resultat alors je pensais que c etais faux hors non,enfin je vais t embrouillai pour rien la.
merciiiii mon ami.
Anna

 

[anna]

euuuuh si je peux me permettre et te poser une autre question je souhaite(avec une macro) remplacer tout les champ d'une colonne contenant NON EVOLUTIVE DOCUMENT par DNE
hors ils sont souvant suivant d'un espace puis de quelque chose genre G21
un exemple
NON EVOLUTIVE DOCUMENT
NON EVOLUTIVE DOCUMENT G20
NON EVOLUTIVE DOCUMENT
NON EVOLUTIVE DOCUMENT
NON EVOLUTIVE DOCUMENT
NON EVOLUTIVE DOCUMENT G50
NON EVOLUTIVE DOCUMENT G50
NON EVOLUTIVE DOCUMENT G50

le resultat doit etre
DNE
DNE20
DNE
DNE
DNE
DNE50
DNE50
DNE50


tous ce que je sais faire c
iderligne = Range('B65536').End(xlUp).Row

iderligne = Range('B65536').End(xlUp).Row
For x = 2 To iderligne
Cells(x, 19) = Replace(Cells(x, 19), 'NON EVOLUTIVE DOCUMENT', 'DNE')

Next
ce qui n remplacer que NON EVOLUTIVE DOCUMENT et me garde l'espace puis la premier lettre avant les chiffre
comment modifier le code pour avoir ce que je veut.
Merci d'avance
Anna

 

[Hervé]

re

Si tu n'a toujours que deux chiffres après le G, essaye comme ceci :

Sub Bouton1_QuandClic()
Dim iderligne As Integer
Dim x As Integer

iderligne = Range('B65536').End(xlUp).Row
For x = 2 To iderligne
    If IsNumeric(Right(Cells(x, 1), 2)) Then
        Cells(x, 1) = 'DNE' & Right(Cells(x, 1), 2)
    Else
        Cells(x, 1) = 'DNE'
    End If
Next x

End Sub

salut

 

[Hervé]

re re

Dans ton code remplace, bien sur les cells(x,1) par cells(x,19)


Salut

 

[anna]

t'es un amour Hervé(euh en tout bien tout honeur
je vais l essaier mais je te fais confiance d'avance
Merci
Anna

 

[anna]

Merci
ca marche tres bien
Anna