inserer des lignes en vb

[benfr35]

bonjour

je souhaite insérer des lignes complétes et vide toutes les fois où je rencontre un nom précis ex : "Prudent"
ce nom fait partie d'une liste dans la colonne B de ma feuille et il se répète totes les 18 lignes environ.
je voudrais faire une macro mais les essais sont tous sans résultats.

il faut qu'il traite toute la colonne jusqu'à la dernière ligne.

merci de votre aide

 

[skoobi]

Re : inserer des lignes en vb

Bonjour,
l'insertion de la ligne doit ce faire juste au-dessous ou au-dessus de "Prudent"?

 

[wilfried_42]

Re : inserer des lignes en vb

Bonjour Benfr,skoobi

dim i as long, j as integer
for i = range("B65535").end(xlup).row to 1 step -1
  if range("B" & i).value = "Prudent" then 
     for j = 1 to 2 ' la j'insere 2 ligne
         rows(i+1).insert xldown ' inserttion en dessous sinon rows(i).insert xldown
     next j
  end if
next i