lucaspelus
XLDnaute Nouveau
Bonjour.
Je travails ur un projet de selection de données.
Je viens d'apprendre à réaliser des boutons et macros sur excel.
Je me sers de 2 boutons :
un pour supprimer des lignes vides
et un pour ajuster les lignes en focntion de la taille des cellules.
Savais vous comment faire pour annuler ces macros ?
code pour supprimer :
merci d'avance
Je travails ur un projet de selection de données.
Je viens d'apprendre à réaliser des boutons et macros sur excel.
Je me sers de 2 boutons :
un pour supprimer des lignes vides
et un pour ajuster les lignes en focntion de la taille des cellules.
Savais vous comment faire pour annuler ces macros ?
code pour supprimer :
Sub supprimer_les_lignes_contenant_des_cases_VALEUR()
i = "d"
j = "d"
Do While Not IsNumeric(i)
i = InputBox("No de ligne où doit commencer la vérification ?" & vbCr & vbCr & "Ex : Commencer à la ligne 2 alors tapez 2")
If i = "" Then GoTo Line1
Loop
i = CSng(i)
Do While Not IsNumeric(j)
j = InputBox("No de la colone dans laquelle il y a des cellules contenant #VALEUR!" & vbCr & vbCr & "Ex : cellule D25 alors taper 4")
If j = "" Then GoTo Line1
Loop
j = CSng(j)
a = InputBox("Quel est le critère de suppression (ex. : ligne vide : , erreur 215...)")
z = InputBox("Critère d'arrêt ?")
b = 0
Cells(65536, j).Select
Selection.End(xlUp).Select
Cells(ActiveCell.Row + 1, j).Value = z
Do While Cells(i, j).Value <> z
If CStr(Cells(i, j).Value) = a Then
Rows(i).Delete Shift:=xlUp
b = b + 1
Else: i = i + 1
End If
Loop
MsgBox (b & " lignes ont été supprimées")
Line1:
End Sub
merci d'avance
Dernière édition: