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

[mamounette]

Bonjour,

Sur le bureau, j'ai mis une image (page web) avec un lien pour mon fichier. Le problème :
Lorsque que je veux remplir mon UserForm il me met erreur sur la ligne en rouge :
Private Sub ComboBox1_Change()
Nom = ComboBox1.Value
Col = Sheets('Listes').Rows(1).Find(Nom).Column
IniCombo2
End Sub

Mais lorsque je fais la même chose sans passer par l'image, il n'y a pas de problème.

Merci de votre aide

@+

 

[PascalXLD]

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

 

[Bebere]

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

 

[Bebere]

bonjour à Pascal aussi

 

[mamounette]

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

 

[PascalXLD]

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

 

[mamounette]

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

 

[mamounette]

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

 

[PascalXLD]

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

ok

donc mets

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

 

[mamounette]

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 !
🙂

 

[PascalXLD]

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

 

[mamounette]

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.

 

[PascalXLD]

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 😉

 

[mamounette]

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
@+