[vba] Suppression de lig suivant val cellule Résolu

Question

Bonjour,Je suis en train de créer une macro et j'ai le pb suivant : - J'importe un fichier txt- Je le remet en forme (jusque là pas de pb)- je souhaite que lorsque qu'excel rencontre une valeur non numérique ou nulle dans une cellule des colonnes A à D, il supprime la ligne correspondante (les cellules sont en format texte et certaines sont fusionnées) => là, je bloque....Voilà ce que j'ai apres premiere mise en forme (qqes explemples de lignes):1300	130	780	1300	130	 B	1300	130	330	1300	130	410	1300	130	411	11.484,001300	130	411	937,251300	130	411	-766,39    Co	          Account Number		            Balance				60.000,00				            Current	Dans cet exemple, je souhaiterais que les 4 premieres et 3 dernieres lignes soit supprimées....Merci de votre aide,Tom

tompols · Answer

Ok, Probleme résolu....Voilà le code si ça peut intéresser qq1 : Public Sub vev()Dim laligne As IntegerDim i As IntegerDim j As IntegerApplication.ScreenUpdating = Falselaligne = Range("d65536").End(xlUp).RowFor i = laligne To 1 Step -1    For j = 1 To 4        If Not IsNumeric(Cells(i, j)) Or IsEmpty(Cells(i, j)) Then            Rows(i).delete: Exit For        End If    Next jNext iApplication.ScreenUpdating = TrueEnd SubA+

[vba] Suppression de lig suivant val cellule

1 réponse

Discussions similaires

Newsletters