Discussion :

[S.Mag]

Bonjour,

j'ai un petit problème avec mon code. j'ai un message d'erreur: incompatibilité de type:

voici le code qui fonctionnais avec une table plus petite (200 lignes) maintenant avec la table de 5000 ligne le code bug!

pouvez vous m'expliquer c'est quoi cette erreur? l'erreur est dans cette ligne de code

Code :

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

If Cells(i, 6) = "" Then

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 EntireRow2()
'supprimer les lignes dont le nb de cdt est vide
 Dim wb As Workbook
Dim i
 
Set wb = Workbooks.Open("Z:\VBA\base-macro.xlsx")
 
     For i = wb.Sheets(2).Range("A" & Rows.count).End(xlUp).Row To 1 Step -1
             If Cells(i, 6) = "" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
       wb.Close saveChanges:=True
       MsgBox ("task complete!!!")
    End Sub

sachant que si j'écris

Code :

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

If Cells(i, 7) = "" Then

donc colonne 7 au lieu de la 6, le code fonctionne, pas de message d'erreur. Trop bizarre!! je peux pas utiliser la 7 car la 6 est ma condition! donc je veux bien que ça fonctionne pour la colonne 6!

Savez vous pourquoi ce problème?

Merci d'avance pour les réponses.

[halaster08]

Bonjour,

Quel est le contenu de ta cellule(i,6) au moment de l'erreur? (ce serait pas un #NULL par hasard?)
Qu'est censé contenir ta colonne 6 ? des nombres? du texte?

[S.Mag]

Bonjour,

Quel est le contenu de ta cellule(i,6) au moment de l'erreur? (ce serait pas un #NULL par hasard?)
Qu'est censé contenir ta colonne 6 ? des nombres? du texte?

c'est censé contenir des nombres et des cellules vides.
je peux pas savoir où le code bug comme j'ai 5000 lignes! je peux ?

[joe.levrai]

Bonjour,

sans penser que ça soit lié, il est toujours important d'indiquer la propriété souhaitée

ici, je pense pour la propriété .Value de ton Cells() (voir .Text)

les objets Range n'ont pas de propriété par défaut, contrairement à l'idée courante. C'est VBA qui choisis la plus appropriée, quitte à se tromper une fois sur 1000.

Plusieurs discussions à ce sujet ont déjà été abordées, notamment les cas où .Text viendra à la place de .Value

[halaster08]

Au moment de l'erreur tu clic sur debug, la ligne qui pose problème est normalement en jaune, si tu met ton curseur sur le i, il devrait t'afficher sa valeur.
Tu peux aussi le voir dans la fenetre des variables locale (menu view -> local windows)

[S.Mag]

Bonjour,

Quel est le contenu de ta cellule(i,6) au moment de l'erreur? (ce serait pas un #NULL par hasard?)
Qu'est censé contenir ta colonne 6 ? des nombres? du texte?

J'ai trouvé que dans la ligne 6321 il y a "#VALEUR!" est ce que c'est ça le problème?

oui le problème est sur ce i = 6321! je fais comment alors? j'efface cette ligne oubien il y a une autre solution pour que le code le bug pas avec tel valeur?

[halaster08]

J'ai trouvé que dans la ligne 6321 il y a "#VALEUR!" est ce que c'est ça le problème?

C'est fort possible.

Voir la réponse de joe:

les objets Range n'ont pas de propriété par défaut, contrairement à l'idée courante. C'est VBA qui choisis la plus appropriée, quitte à se tromper une fois sur 1000.

Plusieurs discussions à ce sujet ont déjà été abordées, notamment les cas où .Text viendra à la place de .Value

J'ai eu un souci similaire récemment (a cause d'un #NULL) et remplacer .value par .text m'as permis de le résoudre

[joe.levrai]

C'est bien #VALEUR! le problème, utilises .text qui interroge le contenu "visuel" de la cellule et pas la valeur stockée ... car #VALEUR! n'est pas une "valeur" mais une erreur

[S.Mag]

C'est fort possible.

Voir la réponse de joe:

J'ai eu un souci similaire récemment (a cause d'un #NULL) et remplacer .value par .text m'as permis de le résoudre

wow!! ça marche parfaitement! merci infiniment!

[Invité]

bonjour,

Code :

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

If trim("" & Cells(i, 6)) = ""Then

[Invité]

Code :

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

1
2
3
4
5
For i = wb.Sheets(2).Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Not IsError(Cells(i, 6)) Then
         If Cells(i, 6) = "" Then Cells(i, 1).EntireRow.Delete
    End If
Next

[Invité]

tu veux tester tous le type d'erreur?

[S.Mag]

tu veux tester tous le type d'erreur?

J'ai pas compris! c'est à dire?

[Invité]

[S.Mag]

Ah wow! je savais pas ça et surtout je ne savais pas que se sont des erreurs ces trucs mdr!
merci bcp!
donc la partout j'ajoute

Code :

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

.text

au lieu de

Code :

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

.value

? mdr je suis débutante avec VBA!

[Invité]

non IsError!

Code :

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

1
2
3
4
5
For i = wb.Sheets(2).Range("A" & Rows.Count).End(xlUp).Row To1Step-1
    If Not IsError(Cells(i, 6)) Then
         If Cells(i, 6) = "" Then Cells(i, 1).EntireRow.Delete
    End If 
Next

[joe.levrai]

Je serai tenté de dire que le test IsError est superflu.

il cherche des cellules vides, or en cas d'erreur le .Text va rapatrier le String d'affichage du type d'erreur ... qui ne sera pas vide

[Invité]

Exact mais considère t-elle une erreur comme un string valide (ce qui s'emble évident dans le code que j'ai proposé) ou un vide? La c'était à elle de le dire!

[joe.levrai]

Deux précautions valent effectivement mieux qu'une seule, t'as raison d'aller au bout de la chose


Ps : désolé, je pensais que l'auteure de la discussion était un garçon