Bonjour,  
 
Je voudrais isoler les données de la dernière cellule d’une colonne afin de les réutiliser par la suite pour une autre fonction. Bien sur, la dernière cellule de la colonne comportant des données change et évolue vers le bas au fil du temps. Une autre difficulté (enfin pour moi) est que toutes les cellules de la colonne, qu’elles indiquent ou non une donnée, comportent une fonction.  
 
Par avance, merci

Salut,
 
Pour trouver la dernière cellule non vide d'une colonne, voici le code VBA à utiliser :
 

 
(Dans cet exemple, on obtient la ligne de la dernière cellule non vide de la colonne C, que cette cellule contienne une donnée ou une formule)
 
J'ignore s'il existe une formule Excel pour y parvenir.
 
A+
Horatio

Merci mais ce programme me donne le numéro de cellule et non la donnée se trouvant dans cette cellule or il faut que je puisse réutiliser cette donnée. Donc il me faut une astuce pour que cette donnée soit réécrite dans une autre cellule excel. D'autre part le programme doit être activé en permanence de façon à ce que la donnée apparaisse toujours dans la cellule quelque soit la cellule d'origine.
Un autre détail, toute mes cellules de la colonne comportent une fonction "SI" qui permet d'afficher une donnée ou non en fonction d'autres cellules, or le programme doit être capable de détecter les cellules qui affichent des données et les cellules qui n'en affichent pas. Je ne sais pas si tout ça est bien clair, si tu as besoin d'autres infos n'hesites pas et merci d'avance.

Salut,
 
Procédons par ordre :
 

 
Nous donne l'adresse de la dernière cellule de la colonne C.
Allons voir ce qu'elle contient :
 

 
et pour affecter ce contenu à une autre cellule, C1 par exemple :
 

 
J'espère que cela te mettra sur la bonne voie.
A+
Horatio
 

Salut,
 
Maintenant que j'ai affecté le contenu de la dernière cellule remplie d'une colonne, je voudrais affecter le contenu de l'avant dernière cellule remplie de la colonne à une autre cellule
 
Merci d'avance

'test sur la colonne C
Dim DER As Long
DER = Range("C65536" ).End(xlUp).Row
For i = (DER - 1) To 1 Step -1
  If Cells(i, 3) <> "" Then MsgBox (Cells(i, 3)): Exit For
Next i
 'tu peux bien entendu ajouter des tests dans le cas où tout est vide