Editition d'un rangé (code 'erreur)

[Amrane]

Cher Forum,


A fin de supprimer les repetition dans un rangé:

a- la premiére façon de faire est limitée, parcque on ne peut pas gérer l'entête de la colonne,

b- pour la deusiéme façon ( inspérer depuis l'eregistrement des macros), j'ai un code d'erreur 😕

merci pour votre support.

amrane

 

[stefan373]

Re : Editition d'un rangé (code 'erreur)

Bonjour amrane et le forum,

Petite faute d'écriture dans votre dernière ligne. 🙂

input à inscrire.

A +

 

[Amrane]

Re : Editition d'un rangé (code 'erreur)

le quel des modules vous voulez commenter?

 

[stefan373]

Re : Editition d'un rangé (code 'erreur)

Re,

Dans le deuxième code. 🙂

iutput_item.RemoveDuplicates Columns:=1, Header:=xlNo

input au lieu de iutput.

A +

 

[Amrane]

Re : Editition d'un rangé (code 'erreur)

cher stefan373

J'ai toujours un code d'rreur, ci-joint le ficher (de dans le module"Sans_repetitions") ansi que le imprimer ecran relatif au tentative de executio de ce macro😕

merci pour votre support,
amrane

 

[stefan373]

Re : Editition d'un rangé (code 'erreur)

Bonjour amrane et le forum,

C'est normal, si vous ne corrigez pas l'erreur signalée dans le code en question. 😎

Ainsi, j'espère que vous comprendrez mieux

Sub Sans_rep_Click()
Dim input_item, Output_item As Range
'inbox pour seltectionner le champes des cellules  en entree de traitement
'     par example selectionner "B$3$:B$16$
Set input_item = Application.InputBox(prompt:= _
                "Enter the site list to be filtred (i.e $A$2:$B400$):", Title:="Source location", Type:=8)
' de enrigistrement des macros:


                                 iutput_item.RemoveDuplicates Columns:=1, Header:=xlNo
            ' ICI corriger le iutput en input

End Sub

A +