Re Farida, Hervé
:S Arghhh Farida... tu me fais peur, j'espère q'Hervé n'as pas lu ton code, il est cardiaque
Je n'avais pas percuté au premier passage :whistle:
Ne prend pas ça mal, mais comme des conseils qui restent relatifs et n'impliquent que leur auteur (là je devrai mettre surement au pluriel
)
Ton code possède des bombes a retardement, dont le rôle, comme leurs noms l'indique, est de te pèter au nez à un moment ou à un autre....
Ne jamais donner à des variables des mots clefs de VBA !
Je ne comprend pas d'ailleurs comment le débogueur laisse passer ça :ermm: il devrait dire 'truc ambigue'
Tu vas voir l'embrouille tout de suite,
Row est une propriété d'un objet Range en VBA et dans ton code c'est aussi le nom d'une variable.Donc dans la piste que je t'ai fournie, Row est bien sur la propriété, quand tu as essayé de l'insérer dans ton code tu l'as considéré sans doute comme variable avec les conséquences ad-hoc.... :silly:
Bon pour essayer de te faire percuter la chose, j'ai corrigé ton code selon ton approche, mais c'est très très mauvais, même si ça fonctionne. donc vois ce que ça donne, je te mets le fichier aussi, mais dépêche toi de changer ton (ou tes s'il y en a d'autres) nom de variable et ne dis pas que j'ai écris une chose pareille...
Un des avantages du Vba en anglais, c'est que tu peux donner à ta variable le nom Ligne par exemple sans risques de confusion et avec autant de clareté...
Sub Rechercher()
' Sheets('Saisie').Activate
' Range('A1').Select ''** Ton code désactivé**
' Row = 3
' While ActiveSheet.Cells(Row, 1).Value <> ''
' ActiveSheet.Cells(Row, 1).Select
' Row = Row + 1
' Wend
'ActiveSheet.Cells(Row, 1).Select
'******************
Cells(Range('A65536').End(xlUp).Row + 1, 1).Select
Row = ActiveCell.Row 'l'horreur les 2 row n'ont rien à voir !
End Sub
Bon courage,
Bfr
PS : Tu gagnerais surement aussi à appeller tes procédures avec Call xxxxx explicite plutot que xxxxx tout court. [file name=DonneesfaridaV2.zip size=38960]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DonneesfaridaV2.zip[/file]