Contenu récent par Nikolaï

Bonjour et voilà j'ai trouvé ! SavePicture UserForm1.Picture, UserForm1.Picture Range('A1').Comment.Shape.Fill.UserPicture UserForm1.Picture et cela devrait marcher... Christophe

A mon avis tu ne peux pas parce qu'il ne saura pas ou prendre l'image. Par contre si tu utilise userform1.picture loadpicture(H:\\toto.bmp'), ce que je ferais c'est qu'il y est une constant que tu gardes avec le path (H:\\toto.bmp') de l'image. Et dans ce cas tu peux appeler le variable pour...

Bonjour Zeltron Oui bien sur c'est possible mais à mon avis il faut que tu utilises VBA. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Target.Comment.Delete If Target = 1 Then Target.AddComment 'Premier Numéro' Target.Comment.Visible = True ElseIf Target =...

Bonjour Casper Je pense que tu as plusieurs solutions: 1) Tu peux créer un filter dans la colone A, séléctionner tes dates dans le filter et imprimer puis enlever le filter. 2) Meme principe mais faire un loop et cacher les lignes qui ne sont pas égales à tes dates, imprimer puis...

Qu'est-ce qui ne marche pas? Créer une image dans un commentaire ou créer une image à partir de l'image d'un userform. Christophe

Bonjour c'est quoi écart type. Je n'ai travaillé qu'avec des versions anglaises. Christophe

Bonjour Canard Essaye ça. Range('A1').Comment.Shape.Fill.UserPicture 'H:\\Picture 003.jpg' A plus Christophe

Bonjour Antoine Ton code ne marches pas car il faut tu mettre un variable sinon tu ne connaitra pas la réponse des personnes qui utiliseront cette fonction. Filename = Application.Dialogs(xlDialogOpen).Show('baby') Cela devrait marcher !!! Christophe

Bonjour Zon Merci beaucoup. Au moins je sais que ce n'est pas possible. Christophe

Le problème c'est que je ne peux pas t'aider car mes formules sont en anglais et pas en français. ActiveCell = '=IF(RC[-6]=56,''oui'',IF(RC[-6]=65,''non'',''peut etre''))' ActiveCell(1, 2) = '=IF(A3=56,''oui'',IF(A3=65,''non'',''peut etre''))' Je crois qu'à la place de IF tu dois mettre...

Bonjour Jordan Enregistrer ta formule. (je ne sais pas quelle est la traduction en français) Et tu verras pourquoi ta formule ne marches pas. La formule dans VBA est une String donc il faut que tu rajoutes des parenthèses d'abord. ActiveCell = '=SUM(R[2]C:R[2]C[2])' Voilà bonne chance...

Salut Zon Merci d'avoir répondu à ma question. Malheureusement cela ne m'aide pas beaucoup car tout ça je le sais déjà. Ce que je cherche, les références Microsoft ne l'ont pas et c'est très énérvant. Merci encore pour ton aide. Christophe

Bonjour Steph71 A mon avis, avant de transferer tes informations dans ta feuilles il faut d'abord faire une recherche dans ton fichier (For ... Next) and tu dois rechercher tous ce qui pourrait etre égal à tes informations dans ta Userform. Exemple: Dim CELL as range, TROUVE as boolean...

Bonjour Laurent Voilà ta réponse. Workbooks.Open 'H:\\AMEX.xls', , False, , , 'Toto_Password' A plus tard Christophe

Bonjour Tu peux faire cela si tu veux. Sub toto() Dim CELL As Range For Each CELL In Range('A1:A10') If CELL = 'accepté' Then Range(CELL.Row & ':' & CELL.Row).Font.ColorIndex = 43 ElseIf CELL = 'refusé' Then Range(CELL.Row & ':' & CELL.Row).Font.ColorIndex = 5 ElseIf CELL = 'en...