dernière cellule disponible

[sonskriverez]

Bonjour le forum,

dans ma feuille j'ai 2 tableaus de A5 à A29 et de A36 à A60

Comment en vba insérer la date du jour à la fin des 2 tableaux et ce tous les jours.

pour aujourd'hui en A30 et A61


Merci de votre aide

 

[Jacques87]

Bonjour

Voici le code à utiliser pour obtenir le numéro de la dernière ligne dans laquelle la cellule de la colonne A est utlisée

derlign = Range('A65536').End(XlUp).Row

dans ton cas il y aura un petit problème car avec cette ligne de code tu obtiendras 60, c'est à dire la dernière ligne du deuxième tableau

Selon la construction de tes tableaux il est possible de retrouver également la dernière ligne du premier tableau (en recherchant la première cellule vide par exemple), mais cela conviendra-t-il à ton projet? Ce n'est qu'en le voyant que l'on pourra t'aider efficacement

Bon courage

 

[sonskriverez]

Merci de ta réponse Jacques, j'ai essayé cette ligne de code, mais c'est pas bon.

J'avais attaché un fichier mais j'avais encore mis un espace dans le nom (incorrigible)

merci de ton aide [file name=inseredate.zip size=1841]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/inseredate.zip[/file]

 

[Jacques87]

voila la réponse à ta question
Il te suffit d'appuyer sur le bouton [file name=insere.zip size=9382]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/insere.zip[/file]

 

[michel_m]

Bonjour sonskri, Jacques

Pourta première série (A5:A29)tu inscris:

lig=range('A36').End(XlUp).Row+1

Pour la 2° série la formule de Jacques est bonne (Row+1 pour la 1° ligne vide)

A+
Michel_M

 

[sonskriverez]

Ca marche pas il faut toujours garder 4 lignes de vides entre les 2 tableaux

 

[Jacques87]

bonsoir,

Excuse moi, je t'ai laissé tomber car j'ai eu une visite à la maison au moment où nous communiquions

pour garder toujours 4 lignes vides entre les 2 tableaux, comme tu en utilises une pour inscrire la date il te suffit donc d'en insérer une après la première date

Rows(L+1).Insert Shift:=xlDown

tu peux ajouter cette ligne de code à la fin de la macro

Bonne soirée

 

[sonskriverez]

c'est tout good

Merci de votre aide