Discussion :

[Erkidoux]

Bonjour,
J'ai une erreur 424 à la ligne 9 et je n'arrive pas à identifier l'objet ou l'erreur d'écriture.
Je voudrais effacer la cellule sélectionnée dans le tableau mais aussi la cellule de la colonne précédente.
J'avais pensé carrément effacer la ligne avec selection.Rows(i).Delete mais cela ne marche pas non plus.
Quelqu'un peut me donner un coup de pouce ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub pourcentage_faible()
Dim Cloture As Variant, i As Long, Pourcentage As Double, Dcel As Range
 
Set Dcel = Range("N" & Rows.Count).End(xlUp)(1, 2)
Cloture = Range("N5", Dcel)
For i = 2 To UBound(Cloture)
Pourcentage = (Cloture(i, 1) / Cloture(i - 1, 1))
If 0.9975 < Pourcentage And Pourcentage < 1.0025 Then
Cloture(i, 1).ClearContents
'selection.Rows(i).Delete
End If
Next i
End Sub

[Marc-L]

Bonjour,

juste en vérifiant le type de donnée ou le contenu de la variable dans la fenêtre des Variables locales
puis corriger son type de donnée dans sa déclaration.

Voir aussi l'aide VBA interne de l'instruction Set …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[joe.levrai]

Bonjour,


au passage, on réserve le Type Variant pour deux cas bien précis :

- on ne sait pas ce que va récupérer la variable, par exemple si elle va recevoir une valeur ou une erreur
- on sait d'entrée de jeu que la variable va changer de type durant la procédure, tant par un choix du développeur, que par le contexte des données (ou objets) qu'on lui affecte (ou instancie)


or là c'est pas ton cas, ainsi il faut directement déclarer le bon type, donc il est inutile de procéder ainsi pour plusieurs raisons :

- le type Variant est très gourmand en termes d'utilisation de mémoire, puisque VBA va réserver l'espace le plus gros pour une variable
- le type Variant oblige VBA a "choisir" le type, donc ça ralenti l'exécution
- étant donné que tu as la (mauvaise) habitude de ne pas spécifier une propriété quand tu t'y réfères (voir ta ligne 7), tu laisses l'ambiguïté se gérer d'elle-même, ce qui provoque souvent des résultats ou erreurs inattendues ou difficile à diagnostiquer sans inspecter tes variables.

[casefayere]

Perso, je verrai comme ça

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
Sub pourcentage_faible()
Dim Cloture, i As Long, Pourcentage As Double, Dcel As Range
 
Set Dcel = Range("N" & Rows.Count).End(xlUp)(1, 2)
Cloture = Range("N5", Dcel)
For i = 2 To UBound(Cloture)
  Pourcentage = (Cloture(i, 1) / Cloture(i - 1, 1))
  If Pourcentage > 0.9975 And Pourcentage < 1.0025 Then
    'Cloture(i, 1).ClearContents 'non c'est un tableau
    Cloture(i, 1) = ""
  End If
Next i
Range("N" & Rows.Count).End(xlUp)(1, 2).ClearContents
Range("N5").Resize(UBound(Cloture, 1), UBound(Cloture, 2)) = Cloture
End Sub

[Erkidoux]

J'attendais de recevoir dans ma boite mail, un message du forum m'annonçant une réponse à la discussion.
Et je ne recevais rien. Et je pataugeais... jusqu'à ce que je me dise : et si je me connectais aujourd'hui ?
Merci pour vos réponses rapides qui vont me faire progresser.

[casefayere]

Bonjour,

J'attendais de recevoir dans ma boite mail, un message du forum m'annonçant une réponse à la discussion.

A toi de prévoir l'option, si tu ne sais pas, cliques sur "Tableau de bord"


et dans les options générales

[Erkidoux]

Je suis allé voir comme tu me l'indiques mais c'était bien paramétré.
Mystère !
Eric

[Erkidoux]

Perso, je verrai comme ça

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
Sub pourcentage_faible()
Dim Cloture, i As Long, Pourcentage As Double, Dcel As Range
 
Set Dcel = Range("N" & Rows.Count).End(xlUp)(1, 2)
Cloture = Range("N5", Dcel)
For i = 2 To UBound(Cloture)
  Pourcentage = (Cloture(i, 1) / Cloture(i - 1, 1))
  If Pourcentage > 0.9975 And Pourcentage < 1.0025 Then
    'Cloture(i, 1).ClearContents 'non c'est un tableau
    Cloture(i, 1) = ""
  End If
Next i
Range("N" & Rows.Count).End(xlUp)(1, 2).ClearContents
Range("N5").Resize(UBound(Cloture, 1), UBound(Cloture, 2)) = Cloture
End Sub

J'ai testé et cela bloque après la première condition réalisé.
La ligne 10 ayant donné Cloture(i , 1) = "", à la boucle suivante, c'est Cloture(i - 1, 1) qui prend la valeur de "" et une erreur 13 se produit puisque la division se fait par "".
Peut-être en stockant dans une variable temporaire qu'on effacerait ensuite ?

[Erkidoux]

J'ai réussi à utiliser ta proposition et à l'améliorer, tout seul, comme un grand (programmeur).
J'explique comment j'y suis arrivé :

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
Sub pourcentage()
Dim Cloture, i As Long, pourcentage As Double, Dcel As Range, x As Long
 
Set Dcel = Range("N" & Rows.Count).End(xlUp)(1, 2)
Cloture = Range("N5", Dcel)
For i = 2 To UBound(Cloture)
    For x = 1 To UBound(Cloture)
        If Not Cloture(i - x, 1) = "" Then
        pourcentage = (Cloture(i, 1) / Cloture(i - x, 1))
            If pourcentage > 0.99 And pourcentage < 1.01 Then
            Cloture(i, 1) = ""
            Exit For
            End If
        Exit For
        End If
    Next x
Next i
Range("N" & Rows.Count).End(xlUp)(1, 2).ClearContents
Range("N5").Resize(UBound(Cloture, 1), UBound(Cloture, 2)) = Cloture
End Sub

Avec la solution de Casefayere, je me trouvais avec une division par zéro lors du second passage de la boucle. A cause de la ligne 10 : Cloture(i,1) = "".
A chaque passage de la boucle, Cloture(i,1) devient Cloture(i-1,1) avec une valeur "" et donc une division impossible.
J'ai donc créé une seconde boucle, avec le compteur x, pour tester que la valeur précédente ne soit pas zéro.
Et le tour était joué !