Editition d'un rangé (code 'erreur)

S

stefan373

XLDnaute Occasionnel

• 23 Janvier 2012

• #2

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

Bonjour amrane et le forum,

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

input à inscrire.

A +

 

Vote positif 0 Vote négatif

A

Amrane

XLDnaute Junior

• 23 Janvier 2012

• #3

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

le quel des modules vous voulez commenter?

 

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 23 Janvier 2012

• #4

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

Re,

Dans le deuxième code. 🙂

Code:

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

input au lieu de iutput.

A +

 

Vote positif 0 Vote négatif

A

Amrane

XLDnaute Junior

• 25 Janvier 2012

• #5

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

 

Pièces jointes

• Error code.zip

  99.5 KB · Affichages: 26

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 25 Janvier 2012

• #6

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

Code:

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 +

 

Vote positif 0 Vote négatif