Recherche valeur dans colonne variable
Résolu
Oukapaka
Messages postés
120
Statut
Membre
-
Oukapaka Messages postés 120 Statut Membre -
Oukapaka Messages postés 120 Statut Membre -
Bonjour,
Je viens vers vous après trois jours de recherche Je suis apprenti développeur informaticien et je seche sur une question de merde. Vous allez peut etre me dire que c'est honteux maiis je compte me réorienter ;), enfin bref là n'est pas la question.
Alors je vais vous expliquer mon problème : je cherche "Contribution Environnementale (CE)(TTC)", valeur récurrente dans mon tableau. Je voudrais la chercher pour supprimer toute la ligne correspondante. Et j'en ai un peu marre de ce truc j'arrive plus à réfléchir dessus correctement et je ne trouve pas de solutions qui tournent. Quelqu'un pourrait m'aider? Voilà mes deux solutions les plus proches mais pas fonctionnel
Je n'ai pas encore bouclé sur celui ci car je n'arrive pas à selectionner ma ligne voulue
Je viens vers vous après trois jours de recherche Je suis apprenti développeur informaticien et je seche sur une question de merde. Vous allez peut etre me dire que c'est honteux maiis je compte me réorienter ;), enfin bref là n'est pas la question.
Alors je vais vous expliquer mon problème : je cherche "Contribution Environnementale (CE)(TTC)", valeur récurrente dans mon tableau. Je voudrais la chercher pour supprimer toute la ligne correspondante. Et j'en ai un peu marre de ce truc j'arrive plus à réfléchir dessus correctement et je ne trouve pas de solutions qui tournent. Quelqu'un pourrait m'aider? Voilà mes deux solutions les plus proches mais pas fonctionnel
Je n'ai pas encore bouclé sur celui ci car je n'arrive pas à selectionner ma ligne voulue
Sub test()
Dim l As Long
l = Application.ActiveWorksheet.Match("Contribution Environnementale (CE)(TTC)", Range("F:F"), 0)
'MsgBox "Found 'TEST' at row : " & l
Rows(Selection.Rows).Delete shift:=xlUp
End Sub
Sub test()
ScreenUpdating = True
Dim numéro As String
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col As Integer
Worksheets("Feuil1").Select
numéro = "Contribution Environnementale (CE)(TTC)"
Set celluletrouvee = Range("F:F").Find(numéro, lookat:=xlWhole)
If celluletrouvee Is Nothing Then
Else
ligne = celluletrouvee.Row
Rows(Seletion.Rows).Delete shift:=xlUp
End If
End Sub
A voir également:
- Recherche valeur dans colonne variable
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
Il aurait peut-être fallu le dire clairement au 1er post au lieu de : Je voudrais la chercher
Ca plus ton code en exemple laisse penser qu'il ne faut pas trop accorder d'importance au mot récurrente...
Essaie ça:
Sub test() Dim c As Range Set c = [F:F].Find("Contribution Environnementale (CE)(TTC)", LookIn:=xlValues) While Not c Is Nothing Set c = c.Offset(1, 0) Rows(c.Offset(-1, 0).Row).Delete Set c = [F:F].FindNext(c.Offset(-1, 0)) Wend End Suberic
ps : attention, génère une erreur si item présent en ligne 1.
Est-ce que ça peut-être le cas ?
et que doit-on comprendre dans ton dernier post ???