Supprime si texte
bonjour
dans cette macro
Sub importer()
Dim Myrange As Range
Dim start As Boolean 'On écrit que si on a trouvé Référence
Dim compteur As Integer
compteur = 0
Set Myrange = Sheets("Temp").UsedRange 'On affect la Référence des cellules contenant une valeur.
For ligne = 1 To Myrange.Rows.Count 'On scan toutes les lignes de MyRange.
If start = True And Not IsEmpty(Myrange(ligne + 1, 1)) Then 'Si on a déjà trouvé Référence et que la cellule n'est pas vide
compteur = compteur + 1
Sheets("Tarif").Cells(compteur, 1) = Myrange(ligne + 1, 1)
'If Not (Cells(ligne, 1) Like ("l") Or Cells(ligne, 1) Like ("k")) Then Rows().Delete
If compteur = 500 Then Exit For
End If
If Left(Myrange(ligne, 1), 9) = "Référence" Then start = True 'si la cellule contient
Next
End Sub
je souhaiterais supprimer tout les texte voir photo, j'ai essayer avec sa
If Not (Cells(ligne, 1) Like ("l") Or Cells(ligne, 1) Like ("k")) Then Rows().Delete mais en vient
quelqu'un a une solution merci
Bonsoir,
je te propose une macro distincte qui supprime le texte. Comme je n'ai pas compris ce qui se passe avec "référence" je te laisse le soin de déterminer où et comment l'utiliser.
Sub supprime_texte()
dl = Range("A" & Rows.Count).End(xlUp).Row
For i = dl To 1 Step -1
If Val(Cells(i, 1)) = 0 And Cells(i, 1) <> "0" Then Rows(i).Delete shift:=xlUp
Next i
End Sub