J'ai dans le fichier ci-joint une colonne présentant des cellules vides, des cellules alphanumériques et des cellules nombres ou numériques (voir "feuil2"),
J'aimerais en VBA effacer (sans supprimer les lignes) de ma colonne A "feuil2", toutes les cellules contenant des nombres uniquement à l'aide d'un bouton de ma "feuil1"
Re : Effacer les cellules au format nombre dans une colonne en VBA
Salut Amilo, le Forum
A tester
Code:
Sub Supprimer_Nombres()
Dim i As Long, DerLig As Long
DerLig = Feuil2.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = DerLig To 4 Step -1
If IsNumeric(Feuil2.Cells(i, 1)) And Feuil2.Cells(i, 1) <> "" Then Feuil2.Cells(i, 1).ClearContents
Next i
Application.ScreenUpdating = True
End Sub
Re : Effacer les cellules au format nombre dans une colonne en VBA
Bonjour
essayez ceci
Code:
Sub efface_nombre()
Dim c As Range
Sheets(2).Select
Range("a4:a20").Select
For Each c In Selection
If IsNumeric(c.Value) Then
c.ClearContents
End If
Next c
[a1].Select
End Sub
Ce titre me donnait à penser que vous vouliez effacer les cellules équipées d'un format de nombre, quel que soient leurs contenus. Or c'est bien au contraire les cellule au contenus numérique, quels que soient leurs formats, que vous vouliez effacer.
Re : Effacer les cellules au format nombre dans une colonne en VBA
Re bonjour,
J'ai juste un ptit souci avec le code à Dranreb,
lorsqu'il n'ya plus de cellules "numériques" à supprimer le code me renvoie un message d'erreur comme quoi il n'y a pas de "cellules correspondantes"....!!!
oups nos messages se sont croisés Dranreb et merci pour cette explication
Re : Effacer les cellules au format nombre dans une colonne en VBA
Oui, ajoutez simplement devant: On Error Resume Next
et derrière: On Error Goto 0
Inutile de faire plus: aucune autre conséquence n'étant requise si l'instruction n'en a pas d'autre que de provoquer une erreur.
Cordialement
Re : Effacer les cellules Numériqes dans une colonne en VBA
J'aime bien aussi, et l'utilise volontiers bien que me considérant puriste à bien des égards.
Ça à l'avantage de quasiment désigner, visuellement, l'instruction menaçant de provoquer l'erreur.
Cordialement.
Re : Effacer les cellules Numériqes dans une colonne en VBA
Salut Dull, Dranreb
Puisque j'ai évoqué "la droiture et la pureté du code" et comme tromper l'ennui (et surtout éviter d'aller voir Kirikou au milieu de garnements s'empiffrant de popcorn tout plein d'ogm pas vraiment déclaré en option explicit ) reste d'actualité pour ma pomme. EDIT: à la relecture, la phrase ci-dessus me parait pas très nette... si en plus de m'ennuyer, je tombe dans l’abscons... vivement le 21/12... que tout s'arrête [/edit]
Question: Est-ce que remplir des cellules numériques avec du vide équivaut à effacer le contenu des cellules numériques en terme d'efficacité/rapidité ?
Et comment le savoir? avec un timer ?
PS: C'est une question pour ceux qui comme moi doivent utiliser leur temps libre d'une façon non productive