VBA replace et range

Bonsoir Hervé

essaie ceci

Private Sub CommandButton1_Click()
Dim plage As Range
Dim c As Range

Set plage = Range('a1').CurrentRegion

For Each c In plage
If Len(c) > 0 Then
If WorksheetFunction.CountIf(plage, c) > 1 Then
c.Value = Replace(c, c.Value, '') 'MARCHE PAS
End If
End If
Next c

Sheets('feuil2').Range('a1').Resize(plage.Rows.Count, plage.Columns.Count) = plage.Value

End Sub

Tiens moi au courant

Bonsoir Hervé, le Forum,

Normalement, tu devrais t'en sortir en utilisant non pas la fonction Replace() mais la méthode de même nom :

Sub Bouton1_QuandClic()
Dim plage As Range
Dim c As Range

      Set plage = Range('a1').CurrentRegion

      For Each c In plage
            If Len(c) > 0 Then
                  If WorksheetFunction.CountIf(plage, c) > 1 Then
                        plage.Replace c.Value, ''
                  End If
            End If
      Next c

      Sheets('feuil2').Range('a1').Resize(plage.Rows.Count, plage.Columns.Count) = plage.Value
End Sub

Cliquez pour agrandir...

Par contre, en utilisant ce code, d'une part tu supprimeras 'toutes' les occurences de valeurs doublons et d'autre part, la suppression sera effective aussi bien dans la feuille d'origine que dans la feuille de destination (feuil2) !

Cordialement,

PS : :sick: :unsure: ?


EDITION :
Oups.... pardon Jacques, je n'avais pas réactualisé la page avant de poster... Félicitations pour ton 500ième déjà loin visiblement...

Message édité par: myDearFriend!, à: 09/02/2006 21:33

Bonsoir messieurs

Merci pour votre aide

didier, c'est bien toutes les occurences que je veux supprimer.

Je connais mal ce système des méthodes, bon exemple.

encore merci

salut