Discussion :

[Edge38]

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 :

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

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

[Patrice740]

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 :

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

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

[Edge38]

Merci Patrice !

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

En te remerciant

[Patrice740]

Bonjour,

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

Code :

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

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

[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.

[Patrice740]

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 !!!!

[Edge38]

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...

[Patrice740]

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 :

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

1
2
3
    Set cel = .Columns("A").Find("*", , , , , xlPrevious)
' ou encore
    Set cel = .Cells(Rows.Count, "A").End(xlUp)

[Edge38]

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