aide sur prog VBA

[gaudone]

Bonjour,

mon problème :

dans mon tableau si ma case ne comporte pas de chiffre en colonne E supprimer la ligne, en language VBA

merci de votre aide

 

[Dull]

Re : aide sur prog VBA

Salut gaudone, le Forum

Vraiment succinct comme énoncé de problème

A tout hasard essaye ce code a mettre dans un module standard

Sub EssAi()
Dim i As Long, DerLig As Long

DerLig = Range("E" & Rows.Count).End(xlUp).Row
For i = DerLig To 2 Step -1
     If Not IsNumeric(Cells(i, 5)) Then Rows(i).EntireRow.Delete
Next i
End Sub

A tester

Bonne Journée

 

[gaudone]

Re : aide sur prog VBA

je voulais dire :

si dans la colonne E à partir de la ligne 6 jusqu'à la dernière ligne de la colonne E, pas de chiffre dans la case alors supprime la ligne, j'espère être plus clair (c pas évident)

merci

 

[Dull]

Re : aide sur prog VBA

Re,

...j'espère être plus clair (c pas évident)...

Autre essai

Sub EssAi()
Dim i As Long, DerLig As Long

DerLig = Range("E" & Rows.Count).End(xlUp).Row
For i = DerLig To 6 Step -1
     If Not IsNumeric(Cells(i, 5)) Or Cells(i, 5) = "" Then Rows(i).EntireRow.Delete
Next i
End Sub

Bonne Journée

 

[gaudone]

Re : aide sur prog VBA

Merci beaucoup !!!

 

[gaudone]

Re : aide sur prog VBA

Bonjour,

voilà j'ai attaque le VBA il y a 2 mois (donc novice)
Je programme par apprentissage & ça marche par contre ça fait un paquet de ligne
Pouvez-vous regarder ce fichier.

@+

 

[gaudone]

Re : aide sur prog VBA

Bonjour,

j'écris une formule dans la case I6 je voudrais la copier puis coller jusqu'à la derniere ligne remplie de la colonne I & en VBA sous excel 2007.

merci de votre aide

 

[Staple1600]

Re : aide sur prog VBA

Bonjour à tous

gaudone
Tu as regardé dans les archives du forum (grâce à la loupe en haut à droite)
Car identifier la dernière cellule non vide d'une colonne est une question qui revient souvent sur le forum

Un indice?

derligne=Cells(Application.Rows.count,"E").End(xlup).Row

Comme tu es en mode apprentissage , je te laisse voir comment utiliser cela pour insérer ta formule.