Discussion :

[jp014]

Bonjour

La ligne suivante permet de trouver la dernière cellule de la feuille de calcul

Code :

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

1
2
 
data1 = Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Address

Le problème est que cette adresse à une valeur qui ne correspond pas à la réalité, elle tient compte des données qui ont été supprimées.
Existe-t-il un moyen pour mettre à jour cette valeur pour qu'elle corresponde à la réalité.


Merci d'avance pour vos réponses.

JP

[MarcelG]

Bonsoir jp et le forum,

Regarde ce lien

tutoriel l'ami ousskelnor

et cherche ce tuto sur Google :

Manipuler un range ou plage de données, en VBA

(classeur mentionné à télécharger)

[jp014]

Bonsoir MarcelG, et le forum



Merci pour les indications.
Concernant "xlCellTypeLastCell" il est indiqué

Si des lignes sont supprimées dans la plage, enregistrer le fichier pour avoir le réel N° de la dernière ligne (idem pour les colonnes supprimées)

J'ai sauvegardé mon fichier, j'ai supprimé les lignes, les colonnes je trouve toujours la même valeur.

Il suffit de faire "CTRL" "Fin" pour voir l'adresse qui est indiqué avec cette constante.

JP

[rvtoulon]

Bonjour,
tu as la réponse dans la citation:

Si des lignes sont supprimées dans la plage, enregistrer le fichier

.
Ce qui veux dire que tu supprimes D'ABORD ta ligne ou ta colonne et que tu enregistres APRES.
et non pas :

J'ai sauvegardé mon fichier, j'ai supprimé les lignes, les colonnes je trouve toujours la même valeur

[jp014]

Bonjour

Merci pour vos réponse, effectivement cela fonctionne quand on fait les manipulations dans les feuilles d'excel, mais par macro c'est un autre problème.

JP

[patricktoulon]

bonjour
tu supprime ce que tu veux et tu lance cette macro
normalement elle te donne la derniere ligne utilisée dans la colonne A en partant de la derniere celule de la sheet meme si tu a des blancs

Code :

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

1
2
3
4
5
6
Sub trouver_la_derniere_ligne()
'trouver la la derniere ligne en partant d'en bas
ligne = Range("A" & Rows.Count).End(xlUp).Row
MsgBox ligne
 
End Sub

au plaisir

[rvtoulon]

Bonjour,
le code de patricktoulon, que je salue , permet en effet de trouver le numéro de la dernière ligne utilisée, oui mais uniquement de la colonne A.

Voici un code qui permet de trouver la dernière cellule utilisée de la feuille 1, par exemple:

Code :

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

1
2
Dim derlign As Long
derlign = Sheets("Feuil1").Cells.Find("*", , , , , xlPrevious).Row

donc pour ton cas ou tu cherches l'adresse de la dernière cellule utilisée :

Code :

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

Data1 = Sheets("Feuil2").Cells.Find("*", , , , , xlPrevious).Address

Pas besoin d'enregistrer après chaque suppression.

[jp014]

Bonsoir

Merci pour vos réponses, à priori il n'y a pas de solution pour mettre à jour par macro cette variable d'excel pour trouver la première ligne libre lorsque le remplissage des colonnes n'est pas uniforme, il faut donc prendre des chemins détournés pour résoudre ce problème.

JP

[rvtoulon]

à priori il n'y a pas de solution pour mettre à jour par macro cette variable d'excel pour trouver la première ligne libre lorsque le remplissage des colonnes n'est pas uniforme

Je t'ai donné une réponse il me semble

Voici un code qui permet de trouver la dernière cellule utilisée de la feuille 1, par exemple:

Code :
Dim derlign As Long
derlign = Sheets("Feuil1").Cells.Find("*", , , , , xlPrevious).Row

en fait avec cette ligne de code tu donnes à la variable derlign le numéro de la dernière ligne utilisée de ta feuille quelque soit la colonne.

pour avoir le numéro de la première ligne vide de ta feuille quelque soit la colonne il suffit de rajouter 1 à derlign comme ceci :

Code :

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

1
2
Dim derlign As Long
derlign = Sheets("Feuil1").Cells.Find("*", , , , , xlPrevious).Row + 1

Peux-être pourrais-tu mettre ton code et expliquer ce qu'il est censé faire afin que l'on puisse t'aider au mieux, puisque apparemment tu veux mettre ta variable data1 à jour, ok, mais comment t'aider avec juste une ligne de code?
On te réponds avec une ligne de code

[jp014]

Bonjour rvtoulon, le forum

J'ai bien noté ta solution que j'utilise et je t'en remercie, ma réflexion concernait la variable "xlCellTypeLastCell" qui n'est pas mise à jour et de ce fait inexploitable en vba

JP

[pijaku]

Bonjour,
Bien sur que tu peux utiliser la variable "xlCellTypeLastCell" en VBA. Mais comme l'a dit rvtoulon : Ce qui veux dire que tu supprimes D'ABORD ta ligne ou ta colonne et que tu enregistres APRES
Essaye ceci :

Code :

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

1
2
3
4
5
6
 
MsgBox Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Address
Rows(numéro_de_ligne).Delete
MsgBox Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Address
ActiveWorkbook.Save
MsgBox Sheets("Feuil2").Cells.SpecialCells(xlCellTypeLastCell).Address

Sinon, une autre solution trouvée ici :http://www.developpez.net/forums/d45...gnees-feuille/

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
Dim derLig As Integer, DerCol As Integer
Dim col As String
 
derLig = Split(Worksheets("Feuil2").UsedRange.Address, "$")(4)
col = Split(Worksheets("Feuil2").UsedRange.Address, "$")(3)
DerCol = Range(Split(Worksheets("Feuil2").UsedRange.Address, "$")(3) & 1).Column
 
MsgBox derLig
MsgBox DerCol
MsgBox col
 
Rows(num_de_ligne).Delete
Columns(num_de_col).Delete
 
derLig = Split(Worksheets("Feuil2").UsedRange.Address, "$")(4)
col = Split(Worksheets("Feuil2").UsedRange.Address, "$")(3)
DerCol = Range(Split(Worksheets("Feuil2").UsedRange.Address, "$")(3) & 1).Column
 
MsgBox derLig
MsgBox DerCol
MsgBox col