dans une colonne j'entre régulièrement des chiffres les uns à la suite
des autres, par exemple colonne A,
comment faire pour que en B1 s'affiche automatiquement le dernier
chiffre entré dans la colonne A ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Zoltan,
Dans le module feuille où l'action se déroule, copie la procédure suivante :
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then For Each C In Rg If Not IsError(C) Then C.Offset(, 1) = Right(C.Text, 1) End If Next End If Set C = Nothing: Set Rg = Nothing End Sub '----------------------
Salutations!
"Zoltan" a écrit dans le message de news:%23gSlFb$ Salut à tous,
dans une colonne j'entre régulièrement des chiffres les uns à la suite des autres, par exemple colonne A, comment faire pour que en B1 s'affiche automatiquement le dernier chiffre entré dans la colonne A ?
Dans le module feuille où l'action se déroule, copie la procédure suivante :
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Columns(1))
If Not Rg Is Nothing Then
For Each C In Rg
If Not IsError(C) Then
C.Offset(, 1) = Right(C.Text, 1)
End If
Next
End If
Set C = Nothing: Set Rg = Nothing
End Sub
'----------------------
Salutations!
"Zoltan" <zoltan@wanadoo.fr> a écrit dans le message de news:%23gSlFb$YDHA.1620@TK2MSFTNGP12.phx.gbl...
Salut à tous,
dans une colonne j'entre régulièrement des chiffres les uns à la suite
des autres, par exemple colonne A,
comment faire pour que en B1 s'affiche automatiquement le dernier
chiffre entré dans la colonne A ?
Dans le module feuille où l'action se déroule, copie la procédure suivante :
'---------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range Set Rg = Intersect(Target, Columns(1)) If Not Rg Is Nothing Then For Each C In Rg If Not IsError(C) Then C.Offset(, 1) = Right(C.Text, 1) End If Next End If Set C = Nothing: Set Rg = Nothing End Sub '----------------------
Salutations!
"Zoltan" a écrit dans le message de news:%23gSlFb$ Salut à tous,
dans une colonne j'entre régulièrement des chiffres les uns à la suite des autres, par exemple colonne A, comment faire pour que en B1 s'affiche automatiquement le dernier chiffre entré dans la colonne A ?
S'il n'y a jamais de cellule vides dans tes ajouts : ÞCALER($A$1;NBVAL(A:A)-1;)
AV
"Zoltan" a écrit dans le message news: #gSlFb$
Salut à tous,
dans une colonne j'entre régulièrement des chiffres les uns à la suite des autres, par exemple colonne A, comment faire pour que en B1 s'affiche automatiquement le dernier chiffre entré dans la colonne A ?
S'il n'y a jamais de cellule vides dans tes ajouts :
ÞCALER($A$1;NBVAL(A:A)-1;)
AV
"Zoltan" <zoltan@wanadoo.fr> a écrit dans le message news:
#gSlFb$YDHA.1620@TK2MSFTNGP12.phx.gbl...
Salut à tous,
dans une colonne j'entre régulièrement des chiffres les uns à la suite
des autres, par exemple colonne A,
comment faire pour que en B1 s'affiche automatiquement le dernier
chiffre entré dans la colonne A ?
S'il n'y a jamais de cellule vides dans tes ajouts : ÞCALER($A$1;NBVAL(A:A)-1;)
AV
"Zoltan" a écrit dans le message news: #gSlFb$
Salut à tous,
dans une colonne j'entre régulièrement des chiffres les uns à la suite des autres, par exemple colonne A, comment faire pour que en B1 s'affiche automatiquement le dernier chiffre entré dans la colonne A ?