Discussion :

[bigounet]

Bonjour,
J'ai cherché dans ce forum une solution à mon problème et je n'ai, malheureusement rien trouvé.
Voici mon problème.
Dans une feuille, j'importe des valeur d'une page web.
Mais les valeurs dont j'ai besoin sont assez loin dans une colonne (colonne A).
Je sais que les valeurs que j'ai besoin se trouve après la cellule qui a la valeur " Valeur du tirage à la date du"
Ce que je souhaiterais, c'est supprimer les cellules comprises entre A1 et la cellule qui précède "valeur du tirage ......." et ensuite, tout décaler vers le haut.
Pour résumer, avoir la cellule "valeur du tirage ......." en A1.
Je vous remercie pour votre aide

[Invité]

Bonjour,

Le code ci-dessous utilise la fonction LigneDeTitreTrouvee fonction-vba-trouver-ligne-titre-onglet permettant de trouver la 1ère ligne possédant les N libellés sur les X lignes suivant la première ligne non vide du tableau.
Exemple de syntaxe : Msgbox LigneDeTitreTrouvee(ActiveSheet, Array("Info1", "info2", "info10"), 100)

Avec cette fonction, ce que vous demandez pourrait être cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Sub EssaiLigneDeTitreTrouvee()
 
Dim LigneValeur As Long
Dim ColonneValeur As Long
 
 
    With ActiveSheet
         LigneValeur = LigneDeTitreTrouvee(ActiveSheet, Array("Valeur du tirage à la date du"), 100)
 
         If LigneValeur > 0 Then
            For ColonneValeur = 1 To .Columns.Count
                If .Cells(LigneValeur, ColonneValeur) = "Valeur du tirage à la date du" And ColonneValeur > 1 Then .Range(Columns(1), Columns(ColonneValeur - 1)).Delete Shift:=xlToLeft
            Next ColonneValeur
            If LigneValeur > 1 Then .Range(Rows(1), Rows(LigneValeur - 1)).Delete Shift:=xlUp
         Else
            MsgBox "Colonne non trouvée !", vbCritical
         End If
 
    End With
 
 
End Sub

Cordialement.

[Philippe Tulliez]

Bonjour,
Une autre solution sans boucle avec la méthode AdvancedFilter de l'objet Range voir la réponse Supprimer des lignes suivant critères avec la méthode AdvancedFilter

[bigounet]

un grand merci, c'est exactement ce que je cherchais.
Je vous souhaite une très bonne journée