Liaison entre deux cellules

Résolu/Fermé
nonostyle - 21 déc. 2013 à 21:40
 nonostyle - 22 déc. 2013 à 23:38
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

via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
Modifié par via55 le 21/12/2013 à 21:55
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
Je viens de regarder mais lorsque je double clic sur B5 rien ne se passe
0
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
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
22 déc. 2013 à 01:17
si tu veux te positionner en B6 tu rajoutes cette ligne dans la macro juste avant le End Sub :
Range("B6").Select
0
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
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
22 déc. 2013 à 14:36
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
J'ai noté dans le document http://cjoint.com/?0LwqTjoxDaZ
0
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
22 déc. 2013 à 16:58
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
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
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
22 déc. 2013 à 20:25
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
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
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
22 déc. 2013 à 22:29
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
Super merci pile poil ce qu'il me fallait

Tu connais tout par coeur,c'est ton métier?
0
via55 Messages postés 14501 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 28 novembre 2024 2 735
22 déc. 2013 à 22:48
c'est une passion surtout :)
0