[VBA] Selection les lignes qui contienne la valeur d'une input box

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Selection les lignes qui contienne la valeur d'une input box

tibot

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 caleur à cherhcer est dans la colonne 4

Code :

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

Merci

Publicité

watashi

La démotivation : JAMAIS !

Salut tibot,

Le type:=1 ne marche pas chez moi pour une inputbox...

Voilà ton code corrigé, même s'il y surement mieux

Code :

Sub SupprimerLignes()
'Déclaration des variables
Dim datex As String
Dim l As Long
'Boucle de test pour evité 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ébut
'Ne nécessite pas un tableau trié
'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

J'ai préféré passer par une boucle for au lieu de while pour pas avoir à trier le tableau
@+

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

tibot

LA classe !! Merci ça focntinne parfaitement.

Effectivemetn j'avais un macro trier juste avant le while.

Je ne comprend pas le step -1 et CLng

watashi

La démotivation : JAMAIS !

Salut tibot

Le CLng sert à convertir ta variable en long car en sortie d'input box tu obtien un string, tout comme datex est déclaré en string, et si tu veux que le valeur soit bien reconnue il faut qu'elle soit en long

le step -1 vint du fait que je pars du bas du tableau. Ca évite d'avoir à prévoir si oui ou non il faut passer à la ligne suivante ou recommencer la même ligne car tu as supprimer la ligne.

En relisant le code j'ai oublié de verifier si la personne n'annulait pas au moment de l'inputbox, annule donnant -1, il fautte méfier de ce que cela pourrait donner

@+

---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Selection les lignes qui contienne la valeur d'une input box

Sujets relatifs
modifier le contenu d'une requête sélection stockée sous Acess	recuperer la valeur d'une variable javascript ??
ADOX ACCESS VBA Procédure Stockée	VBA Excel - Comment fusionner plusieurs cellules
VBA EXCEL >>> récupération de données dans colones	[Résolu]Récupérer la valeur d'un radiobutton
VBA On error (Peut-on afficher l'erreur)	Recuperer valeur d'une liste deroulante en javascript
VBA word entete	vbs changer valeur dword
Plus de sujets relatifs à : [VBA] Selection les lignes qui contienne la valeur d'une input box

Page générée en 0.025 secondes