Discussion :

[SimKmil]

Bonjour,
j'ai un fichier Excel dans lequel je voudrais supprimer les lignes de la fin,
en fait il s'agit d'une copie de facture d'achat à partir de laquelle je veux faire une liste de prix de vente.
En bas de cette facture, il y a des renseignements d'emballages et de codes de toute sorte dont je n'ai pas besoin, je voudrais les ôter.
j'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
range ("B3").select
for i= 1 to 200
if cells(i,2)=12 then
selection.entireRow.delete
i=i+1
end if
next

et cela m'enlève des lignes en haut de ma liste et seulement quelques unes.
je vous joins mon fichier.
J'ai remarqué que dans la colonne B, il y a le nombre 10 tant que c'est de la marchandise et ce nombre passe à 12 lorsque nous arrivons aux lignes que je dois ôter, j'ai donc pensé me baser là dessus pour trouver le début des lignes à enlever.
Merci de votre aide.

[keygen08]

Bonjour

Dommage, tu avais presque la reponse, le Range("B3").Select ne sers a rien, il sera par contre judicieux de preciser sur quelle feuille tu veux effectuer cette macro, par defaut, c'est la feuille active. (ce qui n'est pas toujours ce que l'on veut faire). le i = 1+1 n'est pas non plus necessaire puisque le for... next ce charge de passer ta valeur de ligne de 1 à 2 puis 3 puis....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
with sheets("feuil1")
 
For i = 1 To 200
If .Cells(i, 2) = 12 Then
.Rows(i).Delete
'ou .Range("a" & i).EntireRow.Delete
End If
Next
end with

Oui merci BBil : Errare Humanun est

[SfJ5Rpw8]

bonsoir,

@keygen08 : Entre Withet End With , tu dois obligatoirement avoir des noms de variables, objets... commençant par un point , sinon ces instructions n'ont pas lieu d'être ...

[SimKmil]

Merci !

vraiment une réponse rapide et fonctionnelle. Je vous remercie.
Je vais essayer de suite.
Autre chose, j'avais entretemps essayé d'aller plus loin et de faire calculer les prix de vente dans la colonne suivante, or lorsque je recopie vers le bas avec la croix de recopie d'Excel j'obtiens un calcul correct pour ma première ligne (Prix achat * coefficient = prix de vente) mais j'ai le même prix qui se recopie sur les lignes suivantes.

Si tu peux encore m'aider ??

Merci bcp

[keygen08]

Je n'avais pas ouvert ton classeur. Ceci fait. Une petite correction s'impose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(i, 2) = 12 Then

doit etre modifié en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(i, 2) > 11 Then

ainsi toutes les lignes d'en bas seront enlevées.

les options de calcul automatique sont desactivées sur ta feuille, le calcul se fait en manuel en appuyant sur F9.
il faut donc les reactivées. soit par macro,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Application.Calculation = xlManual 'calcul manuel
    Application.Calculation = xlAutomatic 'calcul automatique

soit par la barre de menu, Onglets formule, option de calcul et cocher automatique.

[SimKmil]

Merci beaucoup de ton aide.
Maintenant, grâce au forum, mon programme fonctionne à merveille.
Je vais encore un peu le peaufiner, mais je pense maintenant m'en sortir seul.
Merci encore