Valeur de la dernière cellule en A1 +1

Le
crolegoogle
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #5459581
voici une solution Crole,
[A1].End(xlDown).Offset(1, 0) = [A1].End(xlDown).Value + 1
Youky


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
Philippe.R
Le #5459571
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
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
crolegoogle
Le #5459521
Merci le Groupe

C'est génial

Bonne soirée
Cordialement
Crole
Tatanka
Le #5459341
Et pourquoi pas :

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

Serge

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
Tatanka
Le #5459311
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"
Et pourquoi pas :

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

Serge

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



Philippe.R
Le #5506801
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" 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"
Et pourquoi pas :

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

Serge


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







Publicité
Poster une réponse
Anonyme