Comment sélectionner la dernière cellule de mon tableau pour y récupérer sa valeur?
4 réponses
fred
Bonjour,
A l'aide d'une macro...j'ai un tableau en CurrentRegion correspondant à la
plage A2:F20 .
En fait j'aimerais récupérer la valeur qui se situe en cellule A20 pour la
copier en cellule A21.
D'une façon plus générale (j'ai différents tableaux à traiter) comment
sélectionner la dernière cellule en ColA de mon tableau pour y récupérer sa
valeur.
Merci
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
Elliac
Bonjour,
der=range("A65000").end(Xlup)
Camille
"fred" wrote:
Bonjour, A l'aide d'une macro...j'ai un tableau en CurrentRegion correspondant à la plage A2:F20 . En fait j'aimerais récupérer la valeur qui se situe en cellule A20 pour la copier en cellule A21. D'une façon plus générale (j'ai différents tableaux à traiter) comment sélectionner la dernière cellule en ColA de mon tableau pour y récupérer sa valeur. Merci
Bonjour,
der=range("A65000").end(Xlup)
Camille
"fred" wrote:
Bonjour,
A l'aide d'une macro...j'ai un tableau en CurrentRegion correspondant à la
plage A2:F20 .
En fait j'aimerais récupérer la valeur qui se situe en cellule A20 pour la
copier en cellule A21.
D'une façon plus générale (j'ai différents tableaux à traiter) comment
sélectionner la dernière cellule en ColA de mon tableau pour y récupérer sa
valeur.
Merci
Bonjour, A l'aide d'une macro...j'ai un tableau en CurrentRegion correspondant à la plage A2:F20 . En fait j'aimerais récupérer la valeur qui se situe en cellule A20 pour la copier en cellule A21. D'une façon plus générale (j'ai différents tableaux à traiter) comment sélectionner la dernière cellule en ColA de mon tableau pour y récupérer sa valeur. Merci
jb
Bonjour,
Sub essai() x = Range("A65536").End(xlUp) ' dernière celle de la colonne A Range("A65536").End(xlUp).Offset(1, 0) = x 'on recopie en dessous End Sub
JB
Bonjour,
Sub essai()
x = Range("A65536").End(xlUp) ' dernière celle de la
colonne A
Range("A65536").End(xlUp).Offset(1, 0) = x 'on recopie en dessous
End Sub