Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

supprimer une ligne dans excel en vba


Messages recommandés

Posté(e)

Bonsoir à tous,

 

J'ai un fichier dont la 1er colonne présente des références et la colonne 3 présente des quantités. Je voudrai supprimer les lignes dont les quantités sont à zéro.

 

Pour ce faire j'ai écrit ce code mais il ne fonctionne pas. Je pense que celà vient de la condition de la boucle car par moment dans la colonne 1 la cellule est vide. Comment puis je remédier à celà ?

 

Voici le code :

 

Sub SupprimerLigne()

Worksheets("Stockretraite").Activate

 

Dim y As Integer

y = 11

 

 

Do While Sheets("Stockretraite").Cells(y, 1).Value <> 0

 

If Sheets("Stockretraite").Cells(y, 3).Value = 0 Then

Cells(y, 1).Select

Selection.Delete Shift:=xlUp

End If

 

y = y + 1

 

Loop

 

End Sub

 

Merci à tous pour votre aide

Rejoindre la conversation

Vous pouvez publier maintenant et vous inscrire plus tard. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...