Effacer dernière ligne remplie Vba

Dan

XLDnaute Barbatruc

• 6 Mars 2006

• #2

Bonjour,

Je suppose que ta colonne A comporte toujours les cellules qui sont remplies même si d'autres ne le sont pas.

Utilise cette instruction :

Code:

ActiveSheet.Range('A65536').End(xlUp).Delete

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 6 Mars 2006

• #3

Bonjour Dan,
Oui en effet, ma première colonne contient toujours des données. J'ai essayé ce que tu me propose, mais je reçois un message d'erreur, la méthode Range a echouée...
Je te remercie de te pencher sur le problème.

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 6 Mars 2006

• #4

J'y suis parvenu avec ce code que je donne pour information à d'autre(s) utilisateur(s)

Sub SuprimLigne()
Dim derligne As Integer
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

Je te remercie Dan car tu m'as mis sur la voie.
Bonne journée à tous.

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 6 Mars 2006

• #5

Re,

Je n'ai aucun pb chez moi.

Est-ce que la feuille sur laquelle tu dois supprimer la ligne est bien celle activée ?
Si non, quel est le nom de ta feuille dans laquelle tu dois supprimer la ligne ?

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 6 Mars 2006

• #6

Oui Dan, ma feuille est bien activée, de lus, je la sélectionne : Sheets('Vhs').Select
et je supprime la dernière ligne grâce au code
Sub SuprimLigne()
Dim derligne As Integer
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

Pour te remercier ainsi que ce Forum, et à l'attention de tous ceux qui liront ce fil, je joint un doc Word qui, je pense, sera utile à beaucoup.
En te souhaitant un bon après midi Dan, et en te remerciant de nouveau. [file name=SelectionCellulesLigneColonne.zip size=13942]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/SelectionCellulesLigneColonne.zip[/file]

 

Pièces jointes

• SelectionCellulesLigneColonne.zip

  13.6 KB · Affichages: 294

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 6 Mars 2006

• #7

Re,

Je viens de regarder ton code que tu as recopié, je pense,dans une autre proposition.
Ce code fait la même chose que celui que je t'ai proposé.
D'autre part la déclaration de variable 'DIM as Derligne' est inutile ici.

Ton code peut être modifié comme suit :

Code:

Sub SuprimLigne()
ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).EntireRow.Delete Shift:=xlUp
End Sub

 

Vote positif 0 Vote négatif

M

Marc_du_78

XLDnaute Accro

• 6 Mars 2006

• #8

Je te remercie pour ta remarque dont je prends bonne note. Effectivement, ce code n'est pas de moi, j'en suis bien incapable mais ca viendra.
Pourrais-tu m'indiquer s'il y a un code qui permettait de vérifier et d'activer les références Library de Microsoft.
J'ai copier ce code
Sub AjoutRefMsOff()
If Verssion = '10.0' Or '11.0' Then ' si 10.0 alors excel 2002 si 11.0 alors excel 2003
pathVBAExtensibility = _
'CROGRAM FILESFICHIERS COMMUNSMICROSOFT SHAREDVBAVBA6Vbe6ext.olb'
Else 'Ok pour Excel 97 SR-2
pathVBAExtensibility = _
'CROGRAM FILESFICHIERS COMMUNSMICROSOFT SHAREDVBAVBEEXT1.OLB'
End If
'ajouter la référence
ThisWorkbook.VBProject.References.AddFromFile pathVBAExtensibility
End Sub
mais il y a des bugs.
En te remerciant encore et toujours.

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 8 Mars 2006

• #9

Bonsoir Marc et bonsoir Dan

Je viens ici remercier tout particulièrement Marc de la dépose de son fichier. Je viens de le parcourir (le fichier) et pour un débutant que je suis, les lignes que j'ai lues me seront d'une grande utilité.

Merci à toi aussi Dan qui dans tous les fils que j'ai parcourus tu es toujours le recours de ceux comme nous qui sommes souvent dans la panade

Cordialement

 

Vote positif 0 Vote négatif

F

fredgoral

XLDnaute Nouveau

• 31 Mai 2011

• #10

Re : Re:Effacer dernière ligne remplie Vba

Dan à dit:

Bonjour,

Code:

ActiveSheet.Range('A65536').End(xlUp).Delete

Cliquez pour agrandir...

Bonjour, au cas ou, ca ne marche pas pour ca : il faut mettre ("A65536") au lieu de ('A65536')

Même message d'erreur pour moi.

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mai 2011

• #11

Re : Re:Effacer dernière ligne remplie Vba

Bonjour,

tu remontes un vieux fil, là...

bon après midi
@+

 

Vote positif 0 Vote négatif