Valeur d'une cellule

Version imprimable

15/02/2021, 16h26
Edge38

Valeur d'une cellule
Bonjour,
Après 4 ans d'arrêt de programmation ma direction me demande la création d'un nouveau fichier... Les souvenirs reviennent vite mais pas tous..

ci joint un programme qui devrait renvoyer la VALEUR de la dernière cellule non vide de la colonne A.
Code:

1 2 3 4 5 6 7 With Worksheets("Suivi Admin") Dim DLig As Integer DLig = ActiveSheet.Columns("A").SpecialCells(xlCellTypeLastCell).Value MsgBox DLig End With
Ce code me renvoit 1 systématiquement, peu importe le remplissage des cellules A1 A2 etc etc...

Vous savez pourquoi ?

En vous remerciant par avnance,

Gaétan

Bonjour,

Parce que la valeur de la dernière cellule de la colonne A de la feuille active est égale à 1

Pour tester la valeur de la dernière cellule de la colonne A de la feuille Suivi Admin :
Code:

1 2 3 4 5 6 7 8 9 10 11 Option Explicit Sub Test() Dim VLig As Variant Dim DLig As Long With Worksheets("Suivi Admin") VLig = .Columns("A").SpecialCells(xlCellTypeLastCell).Value DLig = .Columns("A").SpecialCells(xlCellTypeLastCell).Row End With MsgBox "Valeur : " & VLig & vbCr & _ "Ligne n° : " & DLig End Sub

16/02/2021, 15h05
Edge38

1 pièce(s) jointe(s)

Pièce jointe 591140

Merci Patrice !

As tu une idée de la raison pour laquelle la cellule A46 a une valeur "nul" ?

En te remerciant

Bonjour,

Il peut y avoir plusieurs réponses,
le plus simple est de lui demander ce qu'il y a dans la cellule :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub Test()
Dim cel As Range
  With Worksheets("Suivi Admin")
    Set cel = .Columns("A").SpecialCells(xlCellTypeLastCell)
  End With
  MsgBox "Adresse" & Chr(9) & ": " & cel.Address & vbCr & _
         "Valeur" & Chr(9) & ": " & cel.Value & vbCr & _
         "Type" & Chr(9) & ": " & TypeName(cel.Value) & vbCr & _
         "N° ligne" & Chr(9) & ": " & cel.Row & vbCr & _
         ""
End Sub

16/02/2021, 16h50
Zekraoui_Jakani

Les lignes 33 à 46 contiennent quelque chose comme des espaces ou équivalents; la preuve en est que MsgBox donne le n° de ligne 46.
16/02/2021, 19h10
Patrice740

Citation:

Envoyé par Zekraoui_Jakani

Les lignes 33 à 46 contiennent quelque chose comme des espaces ou équivalents; la preuve en est que MsgBox donne le n° de ligne 46.

On peut seulement affirmer que la dernière cellule, c'est-à-dire la cellule A46 contient quelque chose, les autres sont peut-être vides !!!!
16/02/2021, 19h17
Edge38

Citation:

Envoyé par Patrice740

Bonjour,

Il peut y avoir plusieurs réponses,
le plus simple est de lui demander ce qu'il y a dans la cellule :

Ci dessous les reponses...

Je ne comprends vraiment pas...

Adresse :$D$46
Valeur:
Type Empty
N° de Ligne : 46
16/02/2021, 19h18
Edge38

Citation:

Envoyé par Patrice740

On peut seulement affirmer que la dernière cellule, c'est-à-dire la cellule A46 contient quelque chose, les autres sont peut-être vides !!!!

La A46 me semble vraiment vraiment vide...
16/02/2021, 20h41
Patrice740
Citation:

Envoyé par Edge38

La A46 me semble vraiment vraiment vide...

Elle est vraiment vide !!!
C'est un défaut de fonctionnement de xlCellTypeLastCell

Il y a d'autres méthodes pour trouver la dernière cellule utilisée
Par exemple :
Code:

1 2 3 Set cel = .Columns("A").Find("*", , , , , xlPrevious) ' ou encore Set cel = .Cells(Rows.Count, "A").End(xlUp)
17/02/2021, 08h41
Edge38

Merci beaucoup !!!!