Dernière valeur saisie

RaMA

16/10/2004 à 11:40

Bonjour
colle ceci dans un module de feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then 'ici 4 pour colonne D à adapter
[A1] = Target 'ici A1 pour ccellule de stockage à
adapter
End If
Application.EnableEvents = True
End Sub
'**************
Salutations
RaMa

"nicolas65" a écrit dans le message de
news:

Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans
une colonne?
Est ce possible?
Comment faut-il faire?
Merci

Jacky

16/10/2004 à 11:40

Bonjour Nicolas

En supposant la recherche en colonne A
Résultat en B1
'-----------
derniere = [a65536].End(xlUp).Value
[b1] = derniere
'-----------

Salutations
JJ
"nicolas65" a écrit dans le message de
news:

Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans

une colonne?
Est ce possible?
Comment faut-il faire?
Merci

nicolas65

16/10/2004 à 12:51

Bonjour RaMA,
Merci pour ta réponse mais je n'arrive pas à la faire fonctionner. Peut être
est ce que je l'ai mise au mauvais endroit mais j'ai essayé de déplacer et
j'ai toujours le même problème
Lorsque je valide pas entree je passe à la ligne du dessous et pour faire
apparaitre la valeur je suis obligé de revenir dessus avec la touche curseur
vers le haut.
Ou est le "bug"?
Merci

Bonjour
colle ceci dans un module de feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then 'ici 4 pour colonne D à adapter
[A1] = Target 'ici A1 pour ccellule de stockage à
adapter
End If
Application.EnableEvents = True
End Sub
'**************
Salutations
RaMa

"nicolas65" a écrit dans le message de
news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans
une colonne?
Est ce possible?
Comment faut-il faire?
Merci

nicolas65

16/10/2004 à 12:53

Bonjour Jacky,
Ta formule ne vas pas fonctionner pour mon problème. EN effet si j'ai bien
compris elle va rechercher la dernière valeur de la colonne. Hors la dernière
valeur de la colonne n'est pas la dernière saisie. En effet je ne saisis pas
les lignes dans "l'ordre". Il peut donc y avoir des lignes vides entre les
valeurs.
Merci

Bonjour Nicolas

En supposant la recherche en colonne A
Résultat en B1
'-----------
derniere = [a65536].End(xlUp).Value
[b1] = derniere
'-----------

Salutations
JJ
"nicolas65" a écrit dans le message de
news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans

une colonne?
Est ce possible?
Comment faut-il faire?
Merci

Jacky

16/10/2004 à 13:02

Re..
Oui j'ai remarqué par la suite , ma mauvaise interprétation de la question.
Le code de Rama est ce qu'il te faut
Pour le mettre en oeuvre:
Clique droit sur l'onglet de la feuille, sélectionne 'Visualiser le code' et
copie son code

Salutations
JJ

"nicolas65" a écrit dans le message de
news:

Bonjour Jacky,
Ta formule ne vas pas fonctionner pour mon problème. EN effet si j'ai bien
compris elle va rechercher la dernière valeur de la colonne. Hors la
dernière

valeur de la colonne n'est pas la dernière saisie. En effet je ne saisis
pas

les lignes dans "l'ordre". Il peut donc y avoir des lignes vides entre les
valeurs.
Merci

Bonjour Nicolas

En supposant la recherche en colonne A
Résultat en B1
'-----------
derniere = [a65536].End(xlUp).Value
[b1] = derniere
'-----------

Salutations
JJ
"nicolas65" a écrit dans le
message de

news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans

une colonne?
Est ce possible?
Comment faut-il faire?
Merci

Jacky

16/10/2004 à 13:09

Re....
Il faut lire 'colle son code' et non 'copie son code', mais tu l'auras
certainement rectifié.

JJ

"Jacky" a écrit dans le message
de news:ekumq%

Re..
Oui j'ai remarqué par la suite , ma mauvaise interprétation de la
question.

Le code de Rama est ce qu'il te faut
Pour le mettre en oeuvre:
Clique droit sur l'onglet de la feuille, sélectionne 'Visualiser le code'
et

copie son code

Salutations
JJ

"nicolas65" a écrit dans le message
de

news:
Bonjour Jacky,
Ta formule ne vas pas fonctionner pour mon problème. EN effet si j'ai
bien

compris elle va rechercher la dernière valeur de la colonne. Hors la
dernière

valeur de la colonne n'est pas la dernière saisie. En effet je ne saisis
pas

les lignes dans "l'ordre". Il peut donc y avoir des lignes vides entre
les

valeurs.
Merci

Bonjour Nicolas

En supposant la recherche en colonne A
Résultat en B1
'-----------
derniere = [a65536].End(xlUp).Value
[b1] = derniere
'-----------

Salutations
JJ
"nicolas65" a écrit dans le
message de

news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur
saisie

dans
une colonne?
Est ce possible?
Comment faut-il faire?
Merci

RaMA

16/10/2004 à 13:16

Pour le module de feuille
Alt F11
tu es dans le VBAproject de ton classeur
tu double-cliques sur la feuille correspondant à celle qui concerne la
saisie de ta colonne
tu colles la macro
retourne dans Excel

Pour ce qui concerne ton curseur
dans Excel tu fais
Outils
Options
Modification
tu enlèves la coche de Déplacer la selection après validation

Salutations
RaMa
--
.
"nicolas65" a écrit dans le message de
news:

Bonjour RaMA,
Merci pour ta réponse mais je n'arrive pas à la faire fonctionner. Peut
être
est ce que je l'ai mise au mauvais endroit mais j'ai essayé de déplacer et
j'ai toujours le même problème
Lorsque je valide pas entree je passe à la ligne du dessous et pour faire
apparaitre la valeur je suis obligé de revenir dessus avec la touche
curseur
vers le haut.
Ou est le "bug"?
Merci

Bonjour
colle ceci dans un module de feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then 'ici 4 pour colonne D à adapter
[A1] = Target 'ici A1 pour ccellule de stockage à
adapter
End If
Application.EnableEvents = True
End Sub
'**************
Salutations
RaMa

"nicolas65" a écrit dans le message
de
news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans
une colonne?
Est ce possible?
Comment faut-il faire?
Merci

nicolas65

16/10/2004 à 13:17

C'est ce que j'avais fait et le code ne fonctionne pas. Je n'y comprends rien

Re..
Oui j'ai remarqué par la suite , ma mauvaise interprétation de la question.
Le code de Rama est ce qu'il te faut
Pour le mettre en oeuvre:
Clique droit sur l'onglet de la feuille, sélectionne 'Visualiser le code' et
copie son code

Salutations
JJ

"nicolas65" a écrit dans le message de
news:
Bonjour Jacky,
Ta formule ne vas pas fonctionner pour mon problème. EN effet si j'ai bien
compris elle va rechercher la dernière valeur de la colonne. Hors la
dernière

valeur de la colonne n'est pas la dernière saisie. En effet je ne saisis
pas

les lignes dans "l'ordre". Il peut donc y avoir des lignes vides entre les
valeurs.
Merci

Bonjour Nicolas

En supposant la recherche en colonne A
Résultat en B1
'-----------
derniere = [a65536].End(xlUp).Value
[b1] = derniere
'-----------

Salutations
JJ
"nicolas65" a écrit dans le
message de

news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans

une colonne?
Est ce possible?
Comment faut-il faire?
Merci

nicolas65

16/10/2004 à 14:25

bonjour,
Je ne comprends pas. C'est bien ce que j'avais fait dès le départ et celà ne
fonctionne pas.Puis-je t'envoyer le fichier par mail?
merci

Pour le module de feuille
Alt F11
tu es dans le VBAproject de ton classeur
tu double-cliques sur la feuille correspondant à celle qui concerne la
saisie de ta colonne
tu colles la macro
retourne dans Excel

Pour ce qui concerne ton curseur
dans Excel tu fais
Outils
Options
Modification
tu enlèves la coche de Déplacer la selection après validation

Salutations
RaMa
--
.
"nicolas65" a écrit dans le message de
news:
Bonjour RaMA,
Merci pour ta réponse mais je n'arrive pas à la faire fonctionner. Peut
être
est ce que je l'ai mise au mauvais endroit mais j'ai essayé de déplacer et
j'ai toujours le même problème
Lorsque je valide pas entree je passe à la ligne du dessous et pour faire
apparaitre la valeur je suis obligé de revenir dessus avec la touche
curseur
vers le haut.
Ou est le "bug"?
Merci

Bonjour
colle ceci dans un module de feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then 'ici 4 pour colonne D à adapter
[A1] = Target 'ici A1 pour ccellule de stockage à
adapter
End If
Application.EnableEvents = True
End Sub
'**************
Salutations
RaMa

"nicolas65" a écrit dans le message
de
news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur saisie
dans
une colonne?
Est ce possible?
Comment faut-il faire?
Merci

RaMA

16/10/2004 à 15:50

OK
Envoie

--
.
"nicolas65" a écrit dans le message de
news:

bonjour,
Je ne comprends pas. C'est bien ce que j'avais fait dès le départ et celà
ne
fonctionne pas.Puis-je t'envoyer le fichier par mail?
merci

Pour le module de feuille
Alt F11
tu es dans le VBAproject de ton classeur
tu double-cliques sur la feuille correspondant à celle qui concerne la
saisie de ta colonne
tu colles la macro
retourne dans Excel

Pour ce qui concerne ton curseur
dans Excel tu fais
Outils
Options
Modification
tu enlèves la coche de Déplacer la selection après validation

Salutations
RaMa
--
.
"nicolas65" a écrit dans le message
de
news:
Bonjour RaMA,
Merci pour ta réponse mais je n'arrive pas à la faire fonctionner. Peut
être
est ce que je l'ai mise au mauvais endroit mais j'ai essayé de déplacer
et
j'ai toujours le même problème
Lorsque je valide pas entree je passe à la ligne du dessous et pour
faire
apparaitre la valeur je suis obligé de revenir dessus avec la touche
curseur
vers le haut.
Ou est le "bug"?
Merci

Bonjour
colle ceci dans un module de feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then 'ici 4 pour colonne D à adapter
[A1] = Target 'ici A1 pour ccellule de stockage à
adapter
End If
Application.EnableEvents = True
End Sub
'**************
Salutations
RaMa

"nicolas65" a écrit dans le
message
de
news:
Bonjour,
J'aimerais faire apparaitre dans une cellule la dernière valeur
saisie
dans
une colonne?
Est ce possible?
Comment faut-il faire?
Merci

Dernière valeur saisie

10 réponses

Veuillez sélectionner un problème