Liaison entre deux cellules

Résolu
nonostyle -  
 nonostyle -
Bonjour,

Voila je vous expose mon problème:

Quand je clique sur une cellule,je veux que dans une autre cellule la date du jour s'affiche.

Je ne vois pas comment faire,j'ai essayé avec les formules mais rien ni fais.

alors je suis venu voir sur le forum pour avoir de l'aide

Merci d'avance

4 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonsoir

    2 possibilités :

    Entrer une valeur précise dans une cellule précise déclenche par formule dans une autre cellule l' affichage de la date du jour

    ou un double clic dans une cellule précise déclenche une macro en VBA qui fait afficher la date dans une autre cellule

    exemple : https://www.cjoint.com/?0Lvv01Tx3A9

    Cdlmnt
    "L'imagination est plus importante que le savoir." A. Einstein
    0
    1. nonostyle
       
      Je viens de regarder mais lorsque je double clic sur B5 rien ne se passe
      0
  2. nonostyle
     
    C'est bon j'ai reussi merci bien via55.

    Encore besoin d'aide par contre:

    Comment faire pour passer a la case du dessous dès que je double clique sur ma cellule?
    0
    1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      si tu veux te positionner en B6 tu rajoutes cette ligne dans la macro juste avant le End Sub :
      Range("B6").Select
      0
  3. nonostyle
     
    Salut via55

    En faite je voudrais que quand j'appui sur mon bouton que j'ai créé j'ajoute la date en B6 puis dès que j'appui de nouveau j'ajoute la date en B7 et ainsi de suite.

    Parce que la ça me fait: Range("B6").Value = Date
    Range("B7").Value = Date

    Alors si il faut que je mettent toutes les cases de la colonne j'ai pas fini^^

    Ya pas un code pour ça?

    Merci
    0
    1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      Bonjour nono

      D'abord tu parles de cliquer dans une cellule maintenant de bouton, ce n'est pas pareil !
      Que veux tu faire exactement ? Que chaque fois que tu clic sur le bouton la date du jour s'inscrive en colonne B en dessous de la dernière entrée ? Où doit s'inscrire la 1ere date ?
      Sois clair et précis dans ta demande ou mieux post un exemple de ton fichier sur cjoint.com
      0
    2. nonostyle
       
      J'ai noté dans le document http://cjoint.com/?0LwqTjoxDaZ
      0
    3. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      OK, dans ce cas remplace la macro du bouton par celle-ci :

      Private Sub Intervention_Click()
      dernligne = Range("B" & Rows.Count).End(xlUp).Row
      Range("B" & dernligne + 1).Value = Date
      End Sub

      qui recherche la dernière ligne non vide de la colonne B et inscris la date du jour dans la cellule en-dessous

      Cdlmnt
      0
  4. nonostyle
     
    Merci tu m'es d'une grande aide via55.

    Autre chose je t'ai fait une petite explication avec le lien :http://cjoint.com/?3LwtQIpA7ci
    0
    1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      Il suffit de rechercher la derniere ligne non vide dans la colonne C

      soit dans la macro changer le "B" en "C" dans la ligne :
      dernligne = Range("C" & Rows.Count).End(xlUp).Row

      Cdlmnt
      0
    2. nonostyle
       
      J'avais commencé a regarder cette solution

      Et comment faire pour dire quand je clique sur mon bouton je vais a la cellule qui m'affiche la date si celle ci n'est pas dans le cadre de l'écran?

      Je suis vraiment désolé de t'embêter avec ça ^^

      Cordialement
      0
    3. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      Pas de souci tu ne m'embêtes pas !
      une fois que la date est mise dans la cellule, si tu veux être automatiquement positionnée dessus il suffit de rajouter une ligne à la macro :
      Range("B" & dernligne + 1).Select
      ou si tu veux être positionné directement dans la colonne suivante pour choix :
      Range("C" & dernligne + 1).Select

      Cdlmnt
      0
    4. nonostyle
       
      Super merci pile poil ce qu'il me fallait

      Tu connais tout par coeur,c'est ton métier?
      0
    5. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
       
      c'est une passion surtout :)
      0