Discussion :

[facteur]

Bonjour,

Comment récupérer la dernière cellule vide d'une ligne dans un tableau Excel.
Attention je ne souhaite pas recupérer la dernière cellule vide d'une colonne mais bien celle d'une ligne.
Exemple: je suis en A4 et la dernière ligne vide se trouve en D4 :
comment recuperer cette ligne en vba ?
Merci de votre aide

[joe.levrai]

Bonjour,

si la plage de données est continue/contigüe avec A1 non vide, un simple CurrentRegion basé sur cette cellule suffit.

dans le cas contraire, UsedRange est pas mal dans son genre

Au pis aller, un Find qui cherche "*" avec les paramètres astucieusement renseignés te donnera l'ultime cellule

Mais évite au possible, sauf souhait délibéré en connaissance de cause, d'utiliser la méthode SpecialCells, muni de son paramètre 11
Car tu pourrais bien, si tu est amené à réaliser des opérations de suppression de valeurs et/ou de cellules, ne plus obtenir la dernière ligne "contractuelle", mais plutôt une ligne "qui l'a été et l'es peut-être encore ?" (enregistrer le fichier ramène Excel à la raison, je te rassure !)

[facteur]

Bonjour Joe,
Merci pour ces pistes,
J'ai encore une question à te poser
je n'arrive pas à créer et copier une formule contenant des variables.

je m'explique encore une fois
sur mon tableau , sur B1 : je souhaiterais insérer la Formule ci-dessous

Code :

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

Formule = .Cells(lastligne, 2) - .Cells((lastligne - 1), 2)

où lastligne correspond à la derniere ligne non vide de la colonne B
et j'aimerais copier cette formule de la cellule B1 à la dernier colonne non vide soit la colonne F1


Voici le code VBA

C'est au niveau de la ligne 32 que se pose le problème.
La formule me donne bien la soustraction de la dernier cellule non vide la colonne B sur l' avant dernier cellule non vide de la colonne B
Mais le soucis c'est que lorsque je copie cette formule dans les cellules allant de C1 à F1, la copie se fait en valeur et non pas avec le formule. Donc le résultat est faux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub Calcul()
 
'Déclaration de variable
Dim Dercol As Integer
Dim lastligne As String
 
Dim MyPlageCalcul As Range
Dim MyPlageCopy As Range
 
Dim Wb As Workbook
Dim Formule As String
 
 
Set Wb = Workbooks("classeurA.xlsm")
 
'recuperer le n° de colonne de la derniere colonne non vide de la feuille  à partir de la gauche
Dercol = Wb.Worksheets("feuil1.").Cells(3, Columns.Count).End(xlToLeft).Column
 
 
'recuperer le numero de la derniere ligne non vide de la feuille " à partir de la cellule B3
lastligne = Wb.Worksheets("feuil1.").Range("B3").End(xlDown).Row
 
 
'Selection de la derniere ligne non vide de la colonne
'jusqu'a la dernier ligne non vide de la dernier colonne
Set MyPlageCopy = Wb.Worksheets("feuil1.").Range(Cells(1, 2), Cells(1, Dercol))
 
 
With Wb.Worksheets("feuil1.")
 
Formule = .Cells(lastligne, 2) - .Cells((lastligne - 1), 2)
 
 
Range("B1").FormulaR1C1 = Formule
 
Set MyPlageCalcul = Range("B1")
 
 Range("B1").Copy Destination:=MyPlageCopy
 
End With
 
End Sub

[joe.levrai]

Marc-L

en voyant ta réponse, j'étais sceptique et suis donc allé relire beaucoup plus attentivement l'énoncé du problème.
j'ai mal interprété la demande, puisque je ne me suis pas focalisé sur le fait qu'on était déjà sur une unique ligne bien définie !

Ta solution est probablement celle que j'utiliserait personnellement pour cet exposé précis



EDIT : arf ! t'as supprimé ton message

permet moi néanmoins de te citer

A partir de la dernière colonne de la ligne - Cells(4, Columns.Count) - via la propriété End et son paramètre xlToLeft
comme indiqué dans l'aide VBA interne …

faire un .End(xlToLeft) en partant de la droite de la feuille était pourtant opportun ... peut-être qu'en se plaçant sur le UsedRange va faire gagner quelques millisecondes, c'est du chippotage

[Marc-L]

Oui je l'ai supprimé car en relisant la présentation initiale mal fagotée
(car confusion entre ligne et colonne sans compter l'écart entre l'explication et le titre de la discussion !)
je pense alors répondre certainement à côté !     Qui plus est il faudrait peut-être prévoir un Offset :
dans l'attente d'une explication digne de ce nom, c'est à dire claire & exhaustive …