Suppression de ligne macro vba
lolo35000
-
lolo35000 -
lolo35000 -
Bonjour,
J ai un tableau qui est une extraction de donnees d un Si.
Le nombre de ligne vari a chaque extraction.
Je souhaiterai realiser une macro qui supprime les lignes en trop.
Par exemple ma colonne A s arrete a A1600.
Ma colonne M a M4000
J ai 2400 donned qui apparaissent en plus ds la colonne M que je souhaite supprimer. Ces donnees en trop apparaissent toujours a la fin de la colonne M.
Comment puis-je les supprimer avec une macro?
A votre dispo pr tte question.
Merci d avance
J ai un tableau qui est une extraction de donnees d un Si.
Le nombre de ligne vari a chaque extraction.
Je souhaiterai realiser une macro qui supprime les lignes en trop.
Par exemple ma colonne A s arrete a A1600.
Ma colonne M a M4000
J ai 2400 donned qui apparaissent en plus ds la colonne M que je souhaite supprimer. Ces donnees en trop apparaissent toujours a la fin de la colonne M.
Comment puis-je les supprimer avec une macro?
A votre dispo pr tte question.
Merci d avance
A voir également:
- Suppression de ligne macro vba
- Forcer suppression fichier - Guide
- Partage de photos en ligne - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formulaire en ligne de meta - Guide
- Mètre en ligne - Guide
7 réponses
Bonjour,
A mettre dans ThisWorkbook
Sub Suppression_Ligne()
Dim Prem_Cel_Vide_A As Integer
Dim Prem_Cel_Vide_M As Integer
With Sheets("nom de votre feuille")
Prem_Cel_Vide_A = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
Prem_Cel_Vide_M = .Columns("M").Find("*", , , , , xlPrevious).Row + 1
.Range("M" & Prem_Cel_Vide_A & ":M" & Prem_Cel_Vide_M).ClearContents
End With
End Sub
Bonne suite
A mettre dans ThisWorkbook
Sub Suppression_Ligne()
Dim Prem_Cel_Vide_A As Integer
Dim Prem_Cel_Vide_M As Integer
With Sheets("nom de votre feuille")
Prem_Cel_Vide_A = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
Prem_Cel_Vide_M = .Columns("M").Find("*", , , , , xlPrevious).Row + 1
.Range("M" & Prem_Cel_Vide_A & ":M" & Prem_Cel_Vide_M).ClearContents
End With
End Sub
Bonne suite
lolo35000
La macro bloque a :" with sheets(nom du fichier)
bonjour
pas sur d'avoir bien compris
tu veux supprimer toutes les données situées en dessous de la dernière cellule non vide de la colonne A, et ceci dans toutes les colonnes du classeur?
bonne suite
pas sur d'avoir bien compris
tu veux supprimer toutes les données situées en dessous de la dernière cellule non vide de la colonne A, et ceci dans toutes les colonnes du classeur?
bonne suite
Disobs que je veuille supprimer les lignes qui se trouve en dessous de ma derniere info dans la colonne a.
J ai oublié de preciser. 2 lignes apres ds la colonne a j ai une cellule qui m indique le nombre de ligne ds mon tb. Je souhaite pas garder ca.
Ci cela gene, supprimer toutes lignes en dessous de la colonne d reviendrai au meme
J ai oublié de preciser. 2 lignes apres ds la colonne a j ai une cellule qui m indique le nombre de ligne ds mon tb. Je souhaite pas garder ca.
Ci cela gene, supprimer toutes lignes en dessous de la colonne d reviendrai au meme
Re,
Sub Suppression_Ligne()
Dim Prem_Cel_Vide_A As Integer
Dim Prem_Cel_Vide_M As Integer
With Sheets("Feuil1")
Prem_Cel_Vide_A = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
Prem_Cel_Vide_M = .Columns("M").Find("*", , , , , xlPrevious).Row + 1
.Rows(Prem_Cel_Vide_A & ":" & Prem_Cel_Vide_M).ClearContents
End With
End Sub
Bonne suite
Sub Suppression_Ligne()
Dim Prem_Cel_Vide_A As Integer
Dim Prem_Cel_Vide_M As Integer
With Sheets("Feuil1")
Prem_Cel_Vide_A = .Columns("A").Find("*", , , , , xlPrevious).Row + 1
Prem_Cel_Vide_M = .Columns("M").Find("*", , , , , xlPrevious).Row + 1
.Rows(Prem_Cel_Vide_A & ":" & Prem_Cel_Vide_M).ClearContents
End With
End Sub
Bonne suite
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re
une proposition
bonne suite
une proposition
Public Sub suppfin()
Dim derlico1 As Long, li As Long, derli As Long
With ActiveSheet
derlico1 = .Cells(Rows.Count, 1).End(xlUp).Row
derli = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
If derli > derlico1 Then
.Range(.Cells(derlico1 + 1, 1), .Cells(derli, 1)).EntireRow.Delete
End If
End With
End Sub
bonne suite
