supprimer une ligne d'excel par VBA

Qu'est ce qui se passe exactement, ca affiche un bug ?
De plus le 0.00 c'est surement du numérique donc pas besoin de mettre des guillemets et peut être que tu as mis une valeur par défaut.

Dernier truc le plus important :

Rows("i:i").Delete xlUp

Désolé mais la ligne i:i n'existe pas, si par contre tu parle de la ligne donc la valeur est celle de ta variable i tu devrais plutot ecrire :

Rows(i & ":" & i).delete xlUp

voilà le code que j'ai mis mnt:

Sub Macro4()

 
For i = 1 To i = 2500

If Cells(i, 11) = 0 Then

Rows(i & ":" & i).Delete xlUp

End If

Next i

End Sub

mais ça marche toujours pas. En fait la macro ne se bloque pas. en l'éxécutant "pas à pas" j'ai vu que ça passe de "for i=1 to i=2500" à"end if" directement.
la valeur recherchée c'est bien 0,00

Toujours vrai :

Toujours faux :

Ta syntaxe pour la boucle For n'est pas bonne. Cf. l'aide en ligne !

La ligne i peut aussi s'écrire :C'est plus clair, quand même. (Bah alors Freeman ?)

Quant à la suppression de lignes dans un tableau, j'ai fait un petit topo sur le sujet : http://www.presence-pc.com/forum/ppc/Programmation/exce...

Bah Freeman il revient juste de vacances il est un peu froid  

[Hors sujet]
Vivent les vacances !
  Un peu froid ? Tu n'aurais pu aller au soleil plutôt  
[/Hors sujet]

c'est bon merci

pour le hs il ya blabla  

 
Oui Maître

rebonjour,
voilà j'ai un autre petit problème, je voudrais effacer la ligne si la cellule en Q est différente de #N/A.
Voici mon code, mais il saute toujours "rows(i).delete"

Sub NA()

 
 
For i = 2000 To 1 Step -1

 
If Cells(i, 17) = "<>#N/A" Then

Rows(i).Delete

End If

Next i

End Sub

merci

Pourquoi y-a-t'il des <> dans ton expression ?

On confond souvent la valeur (Value) et l'affichage (Text). (Faire le test pour une date par exemple)

Quand tu écris l'interpréteur comprend Or la valeur n'existe pas puisqu'il y a une erreur !

Donc puisque ce n'est pas la valeur mais ce qui est affiché que tu veux comparer, utilise la syntaxe complète :



PS: Fais un effort, indente ton code. Ceci dit autant pour que ce soit agréable à lire pour chacun, mais surtout pour que tu "vois" mieux ton code. Conseil de vieux baroudeur du code.

Pour savoir si une cellule est en erreur ou pas :

Corrige ta formule par exemple en testant EstErreur().

Ou encore en vba avec isError().

Et non, Freeman, IsError ne gère pas les erreurs Excel, mais les erreurs gérées par le code VB par l'intermédiaire de CVErr.

En revanche, l'utilisation de EstErreur dans la feuille de calcul est judicieux, mais relève plus de l'utilisation d'Excel que de la programmation VB. L'utilisation de WorksheetFunction.IsNA (Et de toute la famille WorksheetFunction.IsErr) est quand même possible.

Pour le IsError fais un test, je peut me tromper mais en faisant une division par zéro tu teste le Iserror du résultat et ca renvoie true. Je l'ai déjà utiliser et j'ai jamais eu de cas tordu... Mais bon EstErreur c'est quand meme plus "propre"

merci bcp, ça marche. je l'ai fait sur excel.

Super myelmehdi \ /



Freeman23   Un exemple si tu as.

un exemple :

en A1 tu met 10, en A2 tu mets 0 et en A3 tu fais "=A1/A2".
Cela provoque l'erreur #div/0 et tu met le curseur sur la cellule A3 et en mode debug tu testes :

?iserror(Activecell)

Après tu peux te mettre sur A2 ou A1 pour vérifier.

Tu peux tester aussi avec une rechercheV si la valeur renvoyée est #N/A (pas trouvé) cela fonctionne aussi.

Ah bah oui, ok.
Bêtement, je faisais le calcul A1/A2 en VB pour vérifier  

Freeman l'a dit, Zeb l'a fait  

lol, chacun son tour