Tokh
Messages postés3Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention16 mai 2008
-
15 mai 2008 à 14:36
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
16 mai 2008 à 23:20
Bonjour à tous,
Déjà désolé si la question 'est pas au bon endroit, j'ai choisi de la mettre dans la section débutante vb.net et VB 2005 plutôt que dans la partie Visual Basic 6 / Langages dérivés / VBA étant donné que je débute totalement en VBA.
Je vous expose mon problème. J'aimerais, dans une feuille excel, parcourir toutes les cellules de certaines colonnes et pour chaque cellule, si celle-ci n'est pas vide, qu'il me supprime la ligne correspondante.
Voici l'extrait du code correspondant :
Dim i, j As Integer
Sheets("DROITS N0 N1 N2").Activate
For i = 4 To nbColonnes
For j = 2 To nbLignes
If Not Cells(j, i).Value = Empty Then
Rows(j).Delete Shift:=xlUp
End If
Next
Next
Commme vous pouvez le voir j'ai décidé de commencer à la ligne 2 et la colonne 4. Autrement dit, je souhaite que cette boucle parcourt chaque cellule de la feuille à partir de la ligne 2 et la colonne 4 jusqu'à la dernière cellule de la colonne et de la ligne de la feuille.
nbColonnes et nbLignes correspondant à la dernière colonne et dernière ligne de ma feuille.
nbColonnes = Cells.Find("*", Range("A1"), , , xlByColumns, xlPrevious).Column
nbLignes = Cells.Find("*", Range("A1"), , , xlByRows, xlPrevious).Row
Cette petite boucle semble marcher. Cependant certaines lignes ne sont pas supprimées alors qu'elles devraient l'être puisque il y a une valeur dans une cellule de la colonne 4.
Pourriez vous m'aider à résoudre mon pb en m'indiquant mes erreurs svp?
Merci d'avance
A voir également:
[VBA]Suppression de lignes en fonction de la valeur d'une cellule pour différent
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 15 mai 2008 à 20:50
salut,
lol f0xi
Pour ton souci, c'est simple. Pourquoi certaines lignes n'étaient pas supprimées ?
Tout simplement car il faut partir de la dernière ligne vers la première (il faut donc inverser ta boucle).
Exemple :
Ta boucle s'effectue, et PAF, ligne 4, elle n'est pas vide (donc là, j vaut 4).
Ton instruction delete supprime la ligne donc, jusque là logique. Mais que se passe-t-il à ce moment, la ligne qui était placé en 5eme position remonte d'une place, donc devient la 4eme.
Mais ta boucle, elle, continue. Donc j passe à 5, mais si la ligne de tout à l'heure faisait partie de la conition pour être effacée, elle passe à l'as.
Conclusion :
Sheets("DROITS N0 N1 N2").Activate
For i = 4 To nbColonnes
<strike>For j = 2 To nbLignes</strike>
For j = nbLignes To 2 Step -1
If Not Cells(j, i).Value = Empty Then
Rows(j).Delete Shift:=xlUp
End If
Next
Next
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 15 mai 2008 à 14:58
Bonjour,
Petite question, as tu fais un pas à pas en mettant des espions en essayant de voir pourquoi ces cellules ne sont pas effacées?
Remarque :
'-- C'est un mieux pour ta déclaration de variable
Dim i as integer
Dim j As Integer
SLB
---------------------------------------------------------------
Il faut beaucoup donner pour recevoir un tout petit peu...
---------------------------------------------------------------
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 15 mai 2008 à 15:36
"Déjà désolé si la question 'est pas au bon endroit, j'ai choisi de la
mettre dans la section débutante vb.net et VB 2005 plutôt que dans la
partie Visual Basic 6 / Langages dérivés / VBA étant donné que je
débute totalement en VBA."
parfaitement logique! moi quand je debutais en Delphi, je postais en C#\Debutant parce que bon, la loose quoi si on poste en Delphi alors qu'on est debutant.
C'est comme pour mon premier boulot, comme j'avais jamais fait de chantier d'electricité, j'ai bossé 4 mois dans un centre de recherche nucleaire pour me faire une premiere experience, mais finalement ça m'as pas trop servis sur les chantiers de savoir faire fonctionner un accelerateur de particules...
Tokh
Messages postés3Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention16 mai 2008 15 mai 2008 à 15:38
Bonjour Lillith,
Merci pour ta réponse.
En cherchant, j'ai remplacé la ligne Rows(j).Delete Shift:=xlUp par
Rows(j).ClearContents
Il semblerait qu'avec cette ligne de code, toutes mes lignes ayant une valeur après la colonne 4 jusqu'à la colonne désirée soient effacées.
Il y a un donc un pb avec la ligne de code qui supprime la ligne plutôt que l'effacer.
Peut être une piste à travailler.
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 15 mai 2008 à 23:48
Il faudrait aussi savoir si tu effaces la ligne si une seule cellule de la ligne est vide ou si toutes les cellules doivent être vides...
De la façon dont la boucle est faite, tu commences par te placer en colonne 4 et tu vérifies toutes les lignes de cette colonne en effaçant au fur et à mesure. Ensuite, tu passes à la colonne 5 et tu refais toutes les lignes. Puis la colonne 6...
Essaie comme ceci si une seule cellule vide suffit pour effacer la ligne
Dim I As Long, nbLignes As Long, nbColonnes As Long
Tokh
Messages postés3Date d'inscriptionjeudi 15 mai 2008StatutMembreDernière intervention16 mai 2008 16 mai 2008 à 15:17
Bonjour à tous,
Alors déjà merci à Mortalino pour son aide. Effectivement cela fonctionne correctement. J'ai même eu droit aux explication en prime, c'est parfait.
Merci aussi aux autres intervenants.
Enfin pour MPi. Effectivement je parcours chaque cellule de chaque colonne à partir de la quatrième et si une cellule de n'importe quelle colonne n'est pas vide alors la ligne est supprimée.