Discussion :

[PeaceMaker]

Bonjour à tous,

Pour faire simple, j'ai une base de données avec du texte en colonne B et une quantité en I/J (cellule fusionnée) + des lignes vierges de tps en tps

Je cherche à créer une macro qui supprime certaines lignes dans mon fichier, sous les 2 conditions suivantes :
- la ligne contient du texte en B
- la ligne contient la valeur 0 en I/J

C'est une macro simple, mais je ne connais plus mes codes VBA . Ca fait bien trop lgtps que je n'ai plus pratiqué.

Merci bcp pour votre aide!

[rvtoulon]

bonjour,
un exemple. On parcours de la derniere ligne jusqu' à la ligne 2.
Si il y a quelque chose en B et 0 en I alors on suuprime la ligne entière:

Code :

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

1
2
3
4
derniereligne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = derniereligne To 2 Step -1
If Range("B" & i).Value <> "" And Range("I" & i).Value = "0" Then Rows(i).EntireRow.Delete
Next i

[PeaceMaker]

Merci de ta réponse rvtoulon!

Pour que ta macro marche, il faut que je définisse les variables avant
notamment i et derniereligne

Si tu pouvais m'indiquer le code à utiliser pour cela, ca serait super!

Merci d'avance

[Theze]

Bonsoir,
Puisque tu travaille entre autres sur la colonnes B tu peu faire cela (en partant du code d'Hervé) :

Code :

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

1
2
3
4
5
6
 
 
For i = [B65536].End(xlUp).Row To 2 Step -1
If Range("B" & i).Value <> "" And _
   Range("I" & i).Value = "0" Then Rows(i).EntireRow.Delete
Next i

Hervé

[PeaceMaker]

Merci de ta réponse Hervé.
Mais j'ai toujours le problème de la définition de variable.
Si tu pouvais m'indiquer la première ligne du code à saisir pour définir la variable

Thank in advance!

[rvtoulon]

Bonjour,
en début de code:

Code :

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

1
2
3
4
 
sub Tamacro ()
Dim derniereligne as Integer
Dim i as integer