Discussion :

[Mike888]

Salut !

J'ai besoin d'un petit coup de main pour traduire en VBA une formule Excel...

La voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MAX(SI(ESTVIDE($B:$B);0;LIGNE($B:$B))

Dans mon code VBA, j'aimerais associer cette formule à un entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim nbligne As Integer
nbligne = ???

Voyez-vous comment faire ?

Merci !

[kiki29]

Salut, à lire et pratiquer :

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

[unparia]

Bonjour
Etrange formule qui, en plus de souffrir d'une parenthèse manquante, à une curieuse finalité que l'on voit mal. Quelle est-elle donc ?
(car telle qu'écrite elle ne ferait qu'écrire 1 ou 0 selon que la cellule en regard en colonne B est remplie ou non.

[Mike888]

Oui, j'ai omis la parenthèse finale (oups ).

En fait, elle sert à me renvoyer le n° de la dernière ligne qui contient des données (pour une colonne donnée). Pour dire vrai, j'ai repiqué cela sur le Net.

[LeBo74]

Pour trouver la dernière ligne non vide voici une recette que tu peux trouver dans plusieurs discussions
Le principe est de partir de la dernière ligne du fichier "rows.count" et de remonter jusqu'à la première ligne non vide "end(xlup)"
Il te reste à adapter selon le numéro de colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Derniere_Ligne()
 
Dim Derlig As Single
Dim MaColonne As Single
 
MaColonne = 2
Derlig = Cells(Rows.Count, MaColonne).End(xlUp).Row
 
MsgBox Derlig
 
End Sub

Bonne suite

[Menhir]

Oui, j'ai omis la parenthèse finale (oups ).

N'aurais-tu pas aussi omis de préciser qu'il s'agit d'une formule matricielle ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Derlig As Single
Dim MaColonne As Single

Juste une petite remarque : perso, j'aurais plutôt déclaré ces variable de type "Long".

[LeBo74]

Merci Menhir pour le commentaire

Erreur de débutant dans la déclaration des variables