Select

[SKOBLAR]

Bonsoir,

comment cette ligne peut generer un message d'erreur :

Sheets("Input_Notepad").Range("A1").Select

je selectionne simplement une cellule de mon tableur, et la macro s'interrompt exactement la, c'est pourtant pas complique.

celle la fonctionne tres bien :

lastline = Sheets("Input_Notepad").Range("A65536").End(xlUp).Row

c'est donc pas une erreur de nom de feuille

Quelqu'un aurait-il la solution ?

bye

 

[ninbihan]

Re : Select

Bonsoir,

Sans doute parce que la feuille active n'est pas "Input_Notepad".
Il faut:
Sheets("Input_Notepad").Select
Sheets("Input_Notepad").Range("A1").Select

Bonne soirée,

Ninbihan

Edit: Ceci dit et comme dirait MDF dans un post précédent, l'on peut se passer du select dans 99% des cas, reste à savoir ce que tu souhaites faire du select...

 

[SKOBLAR]

Re : Select

je recois quand meme le message "application defined or object-defined error"

cette ligne fonctionne a d'autres endroits dans la macro mais pas la.

No problem, ca attendra lundi

bon week end a tous

 

[SKOBLAR]

Re : Select

en fait c'etait pour faire ce simple text to column :


Sheets("Input_Notepad").Range("A" & Sheets("Input_Notepad").Range("A65536").End(xlUp).Row).Select

' Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
'FieldInfo:=Array(Array(0, 1), Array(19, 1), Array(46, 1), Array(55, 1), Array(59, 1)) _
' , TrailingMinusNumbers:=True

la premiere ligne generait une erreur, j'ai donc voulu essaye avec un 'select' tout simple et ca genere une erreur egalement

Allez c'est l'heure d'eteindre les PC tout le monde

bye

 

[ninbihan]

Re : Select

Re,

Désolé pour ce "coup dans l'eau", peut être peux tu joindre un fichier exemple ?

Bonne soirée,

Ninbihan

 

[Cousinhub]

Re : Select

Bonsoir,

comment cette ligne peut generer un message d'erreur :

Sheets("Input_Notepad").Range("A1").Select

Tout simplement, parce que ce code est écrit dans un évènement de feuille, peut-être?

Ou que l'orthographe du nom de feuille n'est pas exacte....