Col = Sheets("Listes").Rows(1).Find(Nom).Colum

PascalXLD

XLDnaute Barbatruc

Modérateur

• 13 Octobre 2005

• #2

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Bonjour

QU'entends-tu par 'Sur le bureau, j'ai mis une image (page web) avec un lien pour mon fichier' ??

Juste un raccourci ??

Bonne journée

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 13 Octobre 2005

• #3

bonjour mamounette,le Forum
plus suivi évolution cause disque dur crashé
essayer récupération,mais bloque pc
essaye comme suit
Col = Sheets('Listes').Rows(1).Find(Nom,lookin:=xlvalues).Column

à bientôt

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 13 Octobre 2005

• #4

bonjour à Pascal aussi

 

Vote positif 0 Vote négatif

M

mamounette

XLDnaute Junior

• 13 Octobre 2005

• #5

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re,
J'ai fais une page web avec une image contenant le lien vers mon fichier et je l'ai mis dans :
Propriété du bureau, Personnalisation du bureau, Web.

Et c'est là que le bas blesse.

Merci, Pascal de ton aide si précieuse.

Amitiés

Sylvie

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 13 Octobre 2005

• #6

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re

Bon j'ai jamais fait ce que tu dis donc essaies peut-être ceci

Col = ThisWorkbook.Sheets('Listes').Rows(1).Find(Nom).Column

 

Vote positif 0 Vote négatif

M

mamounette

XLDnaute Junior

• 13 Octobre 2005

• #7

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re,

Heureuse de ton retour Bebere.

Je vais essayer les deux solutions.

En attendant, merci Pascal et Bebere.

Amitiés, Sylvie

 

Vote positif 0 Vote négatif

M

mamounette

XLDnaute Junior

• 13 Octobre 2005

• #8

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re,

La solution de Pascal :

Col = ThisWorkbook.Sheets('Listes').Rows(1).Find(Nom).Column

me met erreur de la ligne :

With Sheets('Listes') '.Activate

et celle de Bebere :

Col = Sheets('Listes').Rows(1).Find(Nom,lookin:=xlvalues).Column

me remet la même ligne en erreur

Amitiés

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 13 Octobre 2005

• #9

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

ok

donc mets

With ThisWorkbook.Sheets('Listes') '.Activate

 

Vote positif 0 Vote négatif

M

mamounette

XLDnaute Junior

• 13 Octobre 2005

• #10

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re,

Je vais essayé entre midi et deux car l'ordi est occupé pour saisie inventaire (ce n'est pas le meme) :angry:

:whistle:

En attendant je me promène dans le salon fil :test !

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 13 Octobre 2005

• #11

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

EUh oui que veux-tu par moment on délire un petit peu mais bon ça reste soft

Bonne journée et bon app

 

Vote positif 0 Vote négatif

M

mamounette

XLDnaute Junior

• 13 Octobre 2005

• #12

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re et bon app aussi,

Bon voila c'est fait, maintenant l'erreur quand je valide

With Sheets('Liste des articles')


dans

Private Sub CommandButton1_Click()
'Valider
Dim L As Integer

With Sheets('Liste des articles')


Tu vas y arriver, je le sais, courage.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 13 Octobre 2005

• #13

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re

Bon bah c'est pas bien dur avec ta manip que tu as fait il faut rajouter ThisWorkbook. devant tous les nom de tes feuilles ou autre qui concernent ton classeur

BON COURAGE

 

Vote positif 0 Vote négatif

M

mamounette

XLDnaute Junior

• 13 Octobre 2005

• #14

Re: Col = Sheets("Listes").Rows(1).Find(Nom).Co

Re,

Je me posais la question justement.

Je l'ai fais, ça marche.

Merci,

Amitiés
@+

 

Vote positif 0 Vote négatif