Je vous prie

Hop j'enchaine la 13ieme page alors

Bonjour Dhany,

Je ne sais pas si tu te rappel de moi tu m'avais aider pour un fichier complexe pour moi

j'aimerais y apporter une petite amélioration

savoir si cela est possible ou pas par avance merci merci

pour faire simple :

sur ma premiere feuille en B3,B4 et A5 j'ai des informations que je voudrais reporté sur la feuille resume dans le cadre comme j'ai fait manuellement lors de l'appuie sur le bouton.

et un logo/image qui vient se mettre dans le cadre

par avance merci a bientot

j'ai du reduire le fichier de tout ce qui n'est pas a traiter sinon il est trop gros pour l'envoyer

Bonjour Guillaume,

Pour ta demande de report des infos, voici la fin de la sub Cadre2() :

Private Sub Cadre2(lg0&)
  .
  .
  .
  With Cells(lg0 + 1, 1)
    .Value = Worksheets(1).[A5]
    .Offset(3, 3) = Worksheets(1).[B3]
    .Offset(, 4) = Worksheets(1).[B4]
  End With
End Sub

(ne modifie rien de ce qui était avant)

Pour ta demande du logo, je ne sais pas le faire.

Peut-être qu'un autre intervenant pourra t'aider ?

dhany

Bonjour Dhany,

Ravi de te revoir j'étais désespéré lol comment vas tu ?

Je vais essayer ton code

Bonjour Guillaume,

je vais bien, merci. comme je suis d'retour, t'as plus besoin d'être désespéré !

et puis, j'suis pas l'seul intervenant du forum, y'en a d'autres (très bons aussi) !

pour mon code VBA, y'a rien qui presse, alors tu peux prendre tout ton temps

pour l'essayer...

dhany

Re bonjour,

C'est presque ok dans ma case B3 il s'agit d'une date, et quand je clique sur resumé il me sort un nombre "43786"

oh, ben ça c'est vraiment tout simple à réparer !

43786 est le n° de série de la date, et tu le vois ainsi car B3 est en format Standard.

mets en B3 un format date de ton choix, et ce sera arrangé !

par exemple : jj/mm/aa

dhany

pour moi il est bien sur date

ci dessous

alors j'pige pas ! moi, le n° de série d'une date, j'le vois uniquement quand le format appliqué est le format Standard !

t'es bien sûr d'avoir sélectionné B3 avant d'afficher le format de la cellule ? vérifie cela.

si t'avais fait la bonne manip, joins ton fichier pour que je trouve ce qui ne va pas.

dhany

j'ai trouvé une piste :

* dans ton post de 13:22, tu indiques ce nombre : 43786

* je viens de vérifier que ce n° de série correspond au 17/11/2019

* sur l'image de ton post de 13:32, la date de l'Exemple est : 10/11/2018 (et pas 17/11/2019)

* le n° de série qui correspond au 10/11/2018 est : 43414

* donc tu n'as pas sélectionné la cellule B3 mais une autre !

(à moins que tu aies modifié en B3 le nombre 43786 par 43414)

dhany

oooppps ! j'ai zappé le contexte qui fait que la position de la cellule de destination est variable,

car c'est selon le nombre de lignes au-dessus du « cartouche » (le rectangle bas avec les bordures).

du coup, le format de la cellule de destination doit obligatoirement être mis par la macro :

Private Sub Cadre2(lg0&)
  .
  .
  .
  With Cells(lg0 + 1, 1)
    .Value = Worksheets(1).[A5]
    With .Offset(3, 3)
      .NumberFormat = "dd/mm/yy"
      .Value = Worksheets(1).[B3]
    End With
    .Offset(, 4) = Worksheets(1).[B4]
  End With
End Sub

cette fois, je pense que ça devrait être ok ; sinon, c'est la cellule source qui pose problème.

comme il te restera encore le problème du logo non résolu, tu devrais retirer la coche de résolution de l'exo !

sinon, les intervenants penseront que tout est fait dans ce sujet.

dhany

Oui j'avais mis a jour la date entre temps