[VBA] Selectionner les lignes qui contiennent la valeur d'une input box

Question

Lu all, je voudrais selectionner les lignes d'un fichier excel qui contiennent la valeur de la variable d'une inputbox puis les supprimer: La valeur à chercher est dans la colonne 4

Dim datex As Long
Dim l As Long
datex = Application.InputBox(prompt:="Saisir la valeur", Title:="Saisie", Type:=1)
l = 2
While Cells(l, 4) > datex
Rows("l:l").Select
Selection.Delete Shift:=xlUp
Wend

une idée ? Merci

Julien237 · Answer

Je dois avouer que je comprends pas bien ton code. datex, c'est ce que
tu veux supprimer non ? Alors pourquoi mettre while cells(I,4)>datex
? je vois pas vraiment le rapport...



Je fais pas de VBA mais approximativement tu &#231;a devrait plutot ressembler &#224; ceci :



dim ToDelete as long 'Pourquoi pas string en fait ? mais bon....



ToDelete = application.inputbox(...) 'ok



for i=Rang&#233;eMinimum to Rang&#233;eMaximum

    if Cells(i,4) = ToDelete then  'Ici c'est sans doute faux pour la syntaxe de cellule mais tu 

               
              
                
' sauras r&#233;soudre j'imagine...

        rows(i).select

        selection.delete

    end if

next



Bon voila je sais pas pour la syntaxe, mais pour le code, &#231;a devrait plutot ressembler &#224; ceci...



Julien

titibobo2 · Answer

car je veux des les valeur supp&#233;rieur &#224; datex :

le bon code : 

Sub SupprimerLignes()


'D&#233;claration des variables
Dim datex As String
Dim l As Long


'Boucle de test pour evit&#233; les plantage en cas de saisie de lettre
Do
datex = InputBox(prompt:="Saisir la valeur", Title:="Saisie")
Loop Until IsNumeric(datex)


'Boucle de suppression des lettres en partant du bas du tableau
'pour eviter les sauts si l'on part du d&#233;but
'Ne n&#233;cessite pas un tableau tri&#233;
'et conversion de datex en long au lieu de string
For l = Cells(65536, 1).End(xlUp).Row To 2 Step -1
    ' Test de la valeur en colone 4 pour suppression
    If Cells(l, 4).Value > CLng(datex) Then
        Rows(l).Select
        Selection.Delete (xlUp)
    End If
Next l
End Sub

kalobit · Answer

salut,

Ta m&#233;thode de passage par le bas du tableau est super.

J'y avais jamais pens&#233; et du coup je contournais toujours le probl&#232;me de saut comme &#231;a :

FirsSel = true
d&#233;but boucle
   Si ligne &#224; supprimer
      si firstcell
            set selection = ligne ' on selection la ligne
            firstcell = false
      sinon
         set selection = union (selection, ligne) ' on ajoute la ligne &#224; la s&#233;l&#233;ction
      fin si
   fin si
fin de boucle

supprimer la selection ' on supprime en bloc toutes les lignes

Je pense que &#231;a doit &#234;tre un peu plus rapide avec ma m&#233;thode car tu ne fais qu'une fois l'op&#233;ration de suppresion. Il faudrait tester.

Voil&#224;, si &#231;a peut te donner des id&#233;es.

[mailto:K@lobit K@lobit]

mortalino · Answer

Salut Titi !

Je te file aussi une combine :

Dim Datex as Date, ValeurSaisieDansColonne as Date

PremLiVide = Columns(4).Find ("", [D1], , , xlByRows, xlNext).Row
      'ca c'est pour chercher la premier ligne vide de la colonne D
   
Datex = InputBox(prompt:="Saisir la valeur", Title:="Saisie")

   For i = PremLiVide To 1 Step -1
      ColD = ("D" & i)
      ValeurSaisieDansColonne = Range(ColD).Value

      If Datex < ValeurSaisieDansColonne Then
         Range(ColD).Select
         Selection.Delete Shift:=xlUp
      End If
   Next i

A+

  Mortalino

[VBA] Selectionner les lignes qui contiennent la valeur d'une input box

4 réponses

Discussions similaires