Pourquoi lorsque la condition est repsectée la ligne n'est pas supprimée par la macro

[fb62840]

Bonjour à toutes et à tous,

J'essaie d'obtenir la suppression des lignes dans lesquelles on retrouve un identifiant donné.

Le code ci-dessous ne fonctionne pas, et je ne comprends pas pourquoi. Pourriez-vous me mettre sur la piste ?

Private Sub CommandButton1_Click()
Dim derlign As Integer
Dim i As Integer

With Sheets("Donnees_regions")
    derlign = .Cells(Application.Rows.Count, 1).End(xlUp).row
    For i = derlign To 2 Step -1
        If .Cells(i, 1).Value = Me.ComboBox1.Value Then .Rows(i).Delete
        MsgBox (i)
    Next i
End With
End Sub

Merci beaucoup pour votre aide.

 

[GeoTrouvePas]

Re : Pourquoi lorsque la condition est repsectée la ligne n'est pas supprimée par la

Bonjour,

A priori ton code a l'air correct.
A mon avis il doit y avoir un problème de format de données entre le contenu de ta cellule Cells(i,1) et le contenu de ton ComboBox.

Pourrais tu nous dire le type de données stockées dans ce ComboBox ?

 

[Pierrot93]

Re : Pourquoi lorsque la condition est repsectée la ligne n'est pas supprimée par la

Bonjour,

sans voir le modèle de donnée, difficile à dire... A noter tout de même que les valeurs contenues dans ta "combo" sont stockées en format texte.... peut être y a t il lieu d'en effectuer une conversion, via la fonction "CDbl" ou autre...

bon après midi
@+

Edition : bonjour Géo

 

[GeoTrouvePas]

Re : Pourquoi lorsque la condition est repsectée la ligne n'est pas supprimée par la

Incroyable !!!!! J'ai été plus rapide que Pierrot !!!! 😛
Je pensais pas que ça m'arriverait un jour 😎 😎 😎
Bonjour à toi au passage

 

[fb62840]

Re : Pourquoi lorsque la condition est repsectée la ligne n'est pas supprimée par la

Merci pour vos réponses, elles m'ont permis de trouver une solution.

En fait, effectivement la combo contient du "Text" et j'utilisais la propriété Value qui n'était pas appropriée.
En corrigeant dans le code la ligne de vérification du critère, maintenant tout se passe bien.

If .Cells(i, 1).Value = Me.ComboBox1.Text Then .Rows(i).Delete

Merci encore, je suis toujours impressionné par la vitesse de réaction des membres de la liste, tout simplement EXCELLENT.

 

[GeoTrouvePas]

Re : Pourquoi lorsque la condition est repsectée la ligne n'est pas supprimée par la

Attention, je ne suis pas certains que l'utilisation de la méthode .Text va entièrement résoudre ton problème.
Comme le souligne Pierrot, le contenu d'un ComboBox est considéré comme du texte (même s'il ne contient que des nombres).
Ainsi, si tu choisis "99" dans un ComboBox, il ne pourra être comparé à un "99" saisi dans une cellule (qui sera lui considéré comme un nombre à part entière). Il en va de même si le ComboBox contient des dates, des montants etc....

La meilleure façon de faire est bien d'utiliser une conversion de type Cdbl, Cdate etc......