Suppresion lignes avant traitement

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

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

Cliquez pour agrandir...

Salut

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

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

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

Cliquez pour agrandir...

salut

re re 🙂

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


Salut

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

Merci
ca marche tres bien
Anna