Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Valeur de la dernière cellule en A1 +1

Valeur de la dernière cellule en A1 +1

6 réponses
Avatar
crolegoogle
Bonjour le groupe,

J'ai un bouton qui par son action

Range("A1").End(xlDown).Offset(1, 0).Select
Me donne la derni=E8re cellule de la colonne A qui ont des valeurs
1,2,3........

Pourriez-vous m'indiquer ce que je dois rajouter au code pour que la
1er cellule vide de la colonne A aie la valeur de la pr=E9c=E9dante + 1

En fait je cherche =E0 faire un indexage automatique

Merci pour vos r=E9ponses
Cordialement
Crole
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Youky
voici une solution Crole,
[A1].End(xlDown).Offset(1, 0) = [A1].End(xlDown).Value + 1
Youky

a écrit dans le message de news:

Bonjour le groupe,

J'ai un bouton qui par son action

Range("A1").End(xlDown).Offset(1, 0).Select
Me donne la dernière cellule de la colonne A qui ont des valeurs
1,2,3........

Pourriez-vous m'indiquer ce que je dois rajouter au code pour que la
1er cellule vide de la colonne A aie la valeur de la précédante + 1

En fait je cherche à faire un indexage automatique

Merci pour vos réponses
Cordialement
Crole
Avatar
Philippe.R
Bonjour,
cells(Range("A6543").End(xlup).row+1,1).valueÎlls(Range("A6543").End(xlup).row,1).value+1
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
a écrit dans le message de
news:
Bonjour le groupe,

J'ai un bouton qui par son action

Range("A1").End(xlDown).Offset(1, 0).Select
Me donne la dernière cellule de la colonne A qui ont des valeurs
1,2,3........

Pourriez-vous m'indiquer ce que je dois rajouter au code pour que la
1er cellule vide de la colonne A aie la valeur de la précédante + 1

En fait je cherche à faire un indexage automatique

Merci pour vos réponses
Cordialement
Crole
Avatar
crolegoogle
Merci le Groupe

C'est génial

Bonne soirée
Cordialement
Crole
Avatar
Tatanka
Et pourquoi pas :

Sub Aussi()
Set dc = [A1].End(xlDown)
dc(2) = dc + 1
End Sub

Serge

a écrit dans le message de news:
Bonjour le groupe,

J'ai un bouton qui par son action

Range("A1").End(xlDown).Offset(1, 0).Select
Me donne la dernière cellule de la colonne A qui ont des valeurs
1,2,3........

Pourriez-vous m'indiquer ce que je dois rajouter au code pour que la
1er cellule vide de la colonne A aie la valeur de la précédante + 1

En fait je cherche à faire un indexage automatique

Merci pour vos réponses
Cordialement
Crole
Avatar
Tatanka
Après vérification, je constate que les trois suggestions
ne mènent pas toujours au même résultat quand il y a
des cellules vides entre A1 et Ax.
Les trois suggestions conduisent au même résultat
s'il n'y a aucune cellule vide entre A1 et Ax.

Serge


"Tatanka" a écrit dans le message de news:
Et pourquoi pas :

Sub Aussi()
Set dc = [A1].End(xlDown)
dc(2) = dc + 1
End Sub

Serge

a écrit dans le message de news:
Bonjour le groupe,

J'ai un bouton qui par son action

Range("A1").End(xlDown).Offset(1, 0).Select
Me donne la dernière cellule de la colonne A qui ont des valeurs
1,2,3........

Pourriez-vous m'indiquer ce que je dois rajouter au code pour que la
1er cellule vide de la colonne A aie la valeur de la précédante + 1

En fait je cherche à faire un indexage automatique

Merci pour vos réponses
Cordialement
Crole



Avatar
Philippe.R
Bon{j,s}o{u,i}r Serge,
Il faut dire que l'exposé laisse planer une légère ambigüité sur l'attente
exacte
"la dernière cellule de la colonne A qui ont des valeurs"
d'une part
"la 1er cellule vide de la colonne A"
d'autre part
d'où 2 méthodes possibles : xlDown ou xlUp
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Tatanka" a écrit dans le message de
news:
Après vérification, je constate que les trois suggestions
ne mènent pas toujours au même résultat quand il y a
des cellules vides entre A1 et Ax.
Les trois suggestions conduisent au même résultat
s'il n'y a aucune cellule vide entre A1 et Ax.

Serge


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

Et pourquoi pas :

Sub Aussi()
Set dc = [A1].End(xlDown)
dc(2) = dc + 1
End Sub

Serge

a écrit dans le message de news:

Bonjour le groupe,

J'ai un bouton qui par son action

Range("A1").End(xlDown).Offset(1, 0).Select
Me donne la dernière cellule de la colonne A qui ont des valeurs
1,2,3........

Pourriez-vous m'indiquer ce que je dois rajouter au code pour que la
1er cellule vide de la colonne A aie la valeur de la précédante + 1

En fait je cherche à faire un indexage automatique

Merci pour vos réponses
Cordialement
Crole