dernière cellule non-vide dans excel 2007Résolu/Fermé

Question

Bonjour, 
Je désire trouver la dernière cellule NON VIDE et numérique d'une colonne :
- Si dans la cellule E350, la valeur de type texte est: "Chèque" alors chercher dans la colonne I la dernière cellule non vide en remontant vers le haut de la feuille, lire la cellule de type numérique, ajouter 1, inscrire le résultat en cellule I350.

Est-ce réalisable ?
Merci de vos réponses




Configuration: Windows 7 / Firefox 33.0

Mike-31 · Accepted Answer

Bonjour,

il est possible d'obtenir l'index ligne par formule

=RECHERCHE(9^9;A:A) 

ou
=EQUIV(9^9;A:A;1)

pour avoir l'adresse de la cellule il suffit de précéder la formule par l'index colonne
="A"&RECHERCHE(9^9;A:A) 
="A"&EQUIV(9^9;A:A;1)

ou encore directement
=ADRESSE(EQUIV(RECHERCHE(9^9;A:A);A1:A24;0);1;1)

cs_Le Pivert · Answer

Bonjour,

Voici une macro qui recherche la dernière cellule non vide de la colonne A. ensuite elle vérifie si c'est du texte ou du numérique.
 A adapter:

Private Sub derniereligne()
Dim Derniere
Derniere = Range("A65536").End(xlUp)
 If IsNumeric(Derniere) Then
 MsgBox "numeric"
 Else
 MsgBox "texte"
 End If
End Sub

js09130 · Answer

A l'attention de Mike-31
Merci,
- la formule =SI(D350="Chèque";RECHERCHE(9^9;H:H);"") donne un bon résultat si je place cette fonction dans la cellule D350.
- En modifiant un peu cette formule dans la cellule E350:
  =SI(D350="Chèque";H350=RECHERCHE(9^9;H:H)+1;"") j'ai un retour "FAUX"
- si je place la formule : =SI(D350="Chèque";RECHERCHE(9^9;H:H)+1;"")
dans une cellule de la colonne H (H350) j'ai une erreur "Référence circulaire".
Merci de me faire savoir ou se trouve mon erreur ....

Maurice · Answer

Bonjour

cs_Le Pivert  pour avoir le numero de ligne

Private Sub derniereligne()
NumLigne = Range("A" & Rows.Count).End(xlUp).Row
   If IsNumeric(Range("A" & NumLigne)) Then
         MsgBox "numeric"
      Else
         MsgBox "texte"
   End If
End Sub

A+
Maurice

Dernière cellule non-vide dans excel 2007

4 réponses

Discussions similaires

Newsletters