Bonjour,
Je cherche une valeur dans une colonne(1) de 1 =E0 12. Si=20
je la trouve, j'efface la ligne compl=E8te Comment faire ?
Merci de me r=E9pondre
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Denis Michon
Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'----------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1) If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole) End With If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If Set Rg = Nothing
End Sub '-----------------------
Salutations!
"direct83" a écrit dans le message de news:07a301c3b8fc$49ad9d50$ Bonjour, Je cherche une valeur dans une colonne(1) de 1 à 12. Si je la trouve, j'efface la ligne complète Comment faire ? Merci de me répondre
Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'-----------------------
Sub Chercher()
Dim Valeur As Variant, Rg as range
Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5")
Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Rg Is Nothing Then
Rg.EntireRow.Delete (xlUp)
End If
Set Rg = Nothing
End Sub
'-----------------------
Salutations!
"direct83" <anonymous@discussions.microsoft.com> a écrit dans le message de news:07a301c3b8fc$49ad9d50$a001280a@phx.gbl...
Bonjour,
Je cherche une valeur dans une colonne(1) de 1 à 12. Si
je la trouve, j'efface la ligne complète Comment faire ?
Merci de me répondre
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'----------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1) If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole) End With If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If Set Rg = Nothing
End Sub '-----------------------
Salutations!
"direct83" a écrit dans le message de news:07a301c3b8fc$49ad9d50$ Bonjour, Je cherche une valeur dans une colonne(1) de 1 à 12. Si je la trouve, j'efface la ligne complète Comment faire ? Merci de me répondre
direct83
Merci pour la réponse, mais le problème est que je ne veux pas entrer une valeur, elle s'y trouve déjà donc je veux la chercher dans une macro : si cette valeur existe dans la colonne, j'efface la ligne correspondante et je copie à ce moment là la ligne du tableau correspondante à ce chiffre. Merci de la réponse
-----Message d'origine----- Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'----------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
End With If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If Set Rg = Nothing
End Sub '-----------------------
Salutations!
"direct83" a écrit dans le message de news:07a301c3b8fc$49ad9d50
$
Bonjour, Je cherche une valeur dans une colonne(1) de 1 à 12. Si je la trouve, j'efface la ligne complète Comment faire ? Merci de me répondre
.
Merci pour la réponse, mais le problème est que je ne
veux pas entrer une valeur, elle s'y trouve déjà donc je
veux la chercher dans une macro : si cette valeur existe
dans la colonne, j'efface la ligne correspondante et je
copie à ce moment là la ligne du tableau correspondante à
ce chiffre. Merci de la réponse
-----Message d'origine-----
Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au
besoin.
'-----------------------
Sub Chercher()
Dim Valeur As Variant, Rg as range
Valeur = Application.InputBox("Votre chiffre?", "Entrer
votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5")
Set Rg = .Range("A:A").Find(Valeur,
LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Rg Is Nothing Then
Rg.EntireRow.Delete (xlUp)
End If
Set Rg = Nothing
End Sub
'-----------------------
Salutations!
"direct83" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:07a301c3b8fc$49ad9d50
$a001280a@phx.gbl...
Bonjour,
Je cherche une valeur dans une colonne(1) de 1 à 12. Si
je la trouve, j'efface la ligne complète Comment faire ?
Merci de me répondre
Merci pour la réponse, mais le problème est que je ne veux pas entrer une valeur, elle s'y trouve déjà donc je veux la chercher dans une macro : si cette valeur existe dans la colonne, j'efface la ligne correspondante et je copie à ce moment là la ligne du tableau correspondante à ce chiffre. Merci de la réponse
-----Message d'origine----- Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'----------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
End With If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If Set Rg = Nothing
End Sub '-----------------------
Salutations!
"direct83" a écrit dans le message de news:07a301c3b8fc$49ad9d50
$
Bonjour, Je cherche une valeur dans une colonne(1) de 1 à 12. Si je la trouve, j'efface la ligne complète Comment faire ? Merci de me répondre
.
Denis Michon
Bonjour,
Tu adapte le nom de la feuille, et tu renseignes la variable "Valeur" avec le nombre à rechercher. la procédure t'affichera le numéro de la ligne où est située la valeur.
Après tu feras ce que tu veux avec... moi, pas savoir ce que tu veux faire !
'-------------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range
Valeur = "Nombre à trouver"
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole) End With If Not Rg Is Nothing Then MsgBox Rg.Row End If Set Rg = Nothing
End Sub '--------------------------
Salutations!
"direct83" a écrit dans le message de news:007501c3b905$14bf9220$ Merci pour la réponse, mais le problème est que je ne veux pas entrer une valeur, elle s'y trouve déjà donc je veux la chercher dans une macro : si cette valeur existe dans la colonne, j'efface la ligne correspondante et je copie à ce moment là la ligne du tableau correspondante à ce chiffre. Merci de la réponse
-----Message d'origine----- Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'----------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
End With If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If Set Rg = Nothing
End Sub '-----------------------
Salutations!
"direct83" a écrit dans le message de news:07a301c3b8fc$49ad9d50
$
Bonjour, Je cherche une valeur dans une colonne(1) de 1 à 12. Si je la trouve, j'efface la ligne complète Comment faire ? Merci de me répondre
.
Bonjour,
Tu adapte le nom de la feuille, et tu renseignes la variable "Valeur" avec le nombre à rechercher.
la procédure t'affichera le numéro de la ligne où est située la valeur.
Après tu feras ce que tu veux avec... moi, pas savoir ce que tu veux faire !
'--------------------------
Sub Chercher()
Dim Valeur As Variant, Rg as range
Valeur = "Nombre à trouver"
With Worksheets("Feuil5")
Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Rg Is Nothing Then
MsgBox Rg.Row
End If
Set Rg = Nothing
End Sub
'--------------------------
Salutations!
"direct83" <anonymous@discussions.microsoft.com> a écrit dans le message de news:007501c3b905$14bf9220$a501280a@phx.gbl...
Merci pour la réponse, mais le problème est que je ne
veux pas entrer une valeur, elle s'y trouve déjà donc je
veux la chercher dans une macro : si cette valeur existe
dans la colonne, j'efface la ligne correspondante et je
copie à ce moment là la ligne du tableau correspondante à
ce chiffre. Merci de la réponse
-----Message d'origine-----
Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au
besoin.
'-----------------------
Sub Chercher()
Dim Valeur As Variant, Rg as range
Valeur = Application.InputBox("Votre chiffre?", "Entrer
votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5")
Set Rg = .Range("A:A").Find(Valeur,
LookIn:=xlValues, lookat:=xlWhole)
End With
If Not Rg Is Nothing Then
Rg.EntireRow.Delete (xlUp)
End If
Set Rg = Nothing
End Sub
'-----------------------
Salutations!
"direct83" <anonymous@discussions.microsoft.com> a écrit
dans le message de news:07a301c3b8fc$49ad9d50
$a001280a@phx.gbl...
Bonjour,
Je cherche une valeur dans une colonne(1) de 1 à 12. Si
je la trouve, j'efface la ligne complète Comment faire ?
Merci de me répondre
Tu adapte le nom de la feuille, et tu renseignes la variable "Valeur" avec le nombre à rechercher. la procédure t'affichera le numéro de la ligne où est située la valeur.
Après tu feras ce que tu veux avec... moi, pas savoir ce que tu veux faire !
'-------------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range
Valeur = "Nombre à trouver"
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole) End With If Not Rg Is Nothing Then MsgBox Rg.Row End If Set Rg = Nothing
End Sub '--------------------------
Salutations!
"direct83" a écrit dans le message de news:007501c3b905$14bf9220$ Merci pour la réponse, mais le problème est que je ne veux pas entrer une valeur, elle s'y trouve déjà donc je veux la chercher dans une macro : si cette valeur existe dans la colonne, j'efface la ligne correspondante et je copie à ce moment là la ligne du tableau correspondante à ce chiffre. Merci de la réponse
-----Message d'origine----- Bonjour Direct86,
Adapte le nom de la feuille et l'étendue de la plage au besoin.
'----------------------- Sub Chercher()
Dim Valeur As Variant, Rg as range Valeur = Application.InputBox("Votre chiffre?", "Entrer votre nombre", , , , , , 1)
If Valeur = "Faux" Then Exit Sub
With Worksheets("Feuil5") Set Rg = .Range("A:A").Find(Valeur, LookIn:=xlValues, lookat:=xlWhole)
End With If Not Rg Is Nothing Then Rg.EntireRow.Delete (xlUp) End If Set Rg = Nothing
End Sub '-----------------------
Salutations!
"direct83" a écrit dans le message de news:07a301c3b8fc$49ad9d50
$
Bonjour, Je cherche une valeur dans une colonne(1) de 1 à 12. Si je la trouve, j'efface la ligne complète Comment faire ? Merci de me répondre
