Macro suppression lignes + doublon

B

Benjy

XLDnaute Occasionnel

• 24 Juin 2010

• #2

Re : Macro suppression lignes + doublon

Bonjour,

Une piste pour la macro 1 :

Code:

For i = Sheets("feuil1").Range("A65536").End(xlUp).Row To 2 Step -1
If Range("I" & i) = "" Then
Rows(i).delete
End If
Next i

 

Vote positif 0 Vote négatif

B

Benjy

XLDnaute Occasionnel

• 24 Juin 2010

• #3

Re : Macro suppression lignes + doublon

re, une piste pour la macro 2 :

Code:

For i = Sheets("feuil1").Range("A65536").End(xlUp).Row To 2 Step -1
Range("N" & i).select
ActiveCell.Formula ="=NB.SI($F$2:$F$25;[COLOR="Red"]F&i[/COLOR])"
next i

Pas sur de la syntaxe pour la partie en rouge, étant sur ooo je ne peux tester.

Edit : de plus si tu as beaucoup de lignes cette méthode risque d'être très lent.
Peut être vaut il mieux selectionner la plage entière et appliquer la formule d'un coup. Mais le je cède ma place au pro de la programmation VBA

 

Dernière édition: 24 Juin 2010

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 24 Juin 2010

• #4

Re : Macro suppression lignes + doublon

bonjour,tous pour la premiere question

Code:

[i2:i65000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

pour la question2 pas bien compris??

 

Vote positif 0 Vote négatif

C

CAMPEN

Guest

• 24 Juin 2010

• #5

Re : Macro suppression lignes + doublon

Merci à tous les deux !
Pour la macro 1 c'est ok, ça fonctionne parfaitement. En revanche pour la macro 2 c'est moins évident. Ce que je souhaite c'est dérouler la formule du doublon en N2 sur toutes les lignes de mon fichier. Sachant que c'est un fichier que j'actualise régulièrement et que je ne sais donc pas de combien de lignes il sera fait. Je peux bien évidemment mettre la formule sur 65000 lignes, mais cela va alourdir le fichier... Merci d'avance

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 24 Juin 2010

• #6

Re : Macro suppression lignes + doublon

Bonjour a tous

Vois si cela te convient

 

Pièces jointes

• Suppression ligne.zip

  13.1 KB · Affichages: 109

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 24 Juin 2010

• #7

Re : Macro suppression lignes + doublon

re bonjour une variante supprime & étire formule!!

Code:

Sub es()
 Application.ScreenUpdating = False
  [i2:i65000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  [n2].FormulaLocal = "=NB.SI($F$2:$F$25;F2)"
  Range("n2:n" & Columns(14).Find("*", , , , , xlPrevious).Row).FillDown
End Sub

 

Vote positif 0 Vote négatif

C

CAMPEN

Guest

• 24 Juin 2010

• #8

Re : Macro suppression lignes + doublon

Parfait merci à tous, ça fonctionne parfaitement et répond à mes
attentes.
campen

 

Vote positif 0 Vote négatif