Discussion :

[aacmweb]

Bonjour

Je suis en train de traiter une feuille XLSX ( issue d'une transformation par PDF2EXCEL2007 depuis de mon relevé bancaire PDF )
Mon code se plante avec comme message d'erreur :

'Erreur d'execution '13'
Incompatibilité de type'

sur la ligne en gras

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Cellule as Range
Dim RibBoolean as Boolean
Dim Nocompte as String
..
..
If Cellule.Offset(0, 0) Like "RIB :" And RibBoolean = False Then
     RibBoolean = True   
     Nocompte = Replace(Cellule.Offset(0, 0), " RIB :", "")
End If
Next
..
..

Exactement sur la ligne n°138 de la feuille Excel à traiter
#NOM? ( suivi d'une icône "La formule contient du texte non reconnu" )
mais sur la barre de formules : "=+GP20131020664564901"

Meme en remplacant le "=" par "" ( avec cellule.offset(0,0) = Replace(Cellule.offset(0,0),"=","")

Une piste ?

Merci et bonne soirée !

[Marc-L]

Bonjour, bonjour !

Aucun rapport avec l'erreur mais Offset(0, 0) ne sert strictement à rien ‼

C'est comme entrer dans un ascenseur et appuyer sur le bouton de l'étage actuel …

Comme le code est incomplet, commencer déjà par vérifier le contenu la variable Cellule …

______________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …

[joe.levrai]

Bonjour,

la valeur de ta cellule est en erreur car elle "ressemble" à une formule faisant référence à la valeur positive d'une zone nommée "GP20131020664564901"
si tu n'enlèves que le "=", il restera le + ... Excel va donc interpréter ça également comme une formule faisant référence à cette zone nommée qui n'existe pas.

pour corriger, il faut faire un replace sur "=+" via la propriété .formula :

Code :

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

Cells(1, 1).Formula = Replace(Cells(1, 1).Formula, "=+", "")

ensuite, il existe la propriété IsError qui te permet de vérifier si une cellule contient une formule en erreur

Code :

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

MsgBox IsError(Cells(1,1).Value)

[mathspountz]

A mon avis =+GP20131020664564901 fait que Excel cherche la valeur de la cellule GP20131020664564901, qui n'existe pas. D'où le #NOM?

Ensuite dans ton vba, #NOM? n'est pas considéré comme un string ce qui t'empêche de lui appliquer les méthode tel que replace ou like.

Tu devrais d'ailleurs bien préciser Cellule.value pour ne pas essayer d'appliquer les méthodes citées à un objet range, ce qui n'est pas non plus possible. Vba est "gentil" et comprends que tu veux bien la propriété value de l'objet range, mais je ne sais pas si c'est toujours le cas.

[Marc-L]

Non ce n'est pas toujours le cas ! Parfois VBA choisit la propriété Text au lieu de Value …

Certainsi ont séché plusieurs jours tellement persuadés qu'il s'agissait d'un bug et non d'une erreur de leur part !
C'est vrai le VBA étant tellement permissif et effectuant généralement bien le trans-typage de données …

[joe.levrai]

Ca fait plusieurs fois en peu de temps que le débat .Value Or Not .Value se présente sur le forum

Etant partisan du typage systématique, je me range du côté de Marc-L et AlainTech (les derniers contributeurs que j'ai vu défendre l'idée)


seulement, les détracteurs ont souvent exprimé le souhait d'avoir une exemple

le voici, pas compliqué quand on a bien compris la différence entre ces deux propriétés (sans parler de .Value2 !) :

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 toto()
Dim i As String
i = "06000"
 
With Cells(1, 1)
    .NumberFormat = "00000"
    .Value = i
End With
 
MsgBox Cells(1, 1) = i
MsgBox Cells(1, 1).Value = i
MsgBox Cells(1, 1).Text = i
MsgBox Cells(1, 1).Value = Cells(1, 1).Text
 
End Sub

[Marc-L]

Et là tu n'as même pas de plantage, c'est encore plus vicieux !

[aacmweb]

Bonjour !

Resolu avec la ligne :

Code :

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

1
2
 
Cellule.Formula = Replace(Cellule.Formula, "=+", "")

................Merci !

[Patrice740]

Ca fait plusieurs fois en peu de temps que le débat .Value Or Not .Value se présente sur le forum
Etant partisan du typage systématique, je me range du côté de Marc-L et AlainTech (les derniers contributeurs que j'ai vu défendre l'idée)
seulement, les détracteurs ont souvent exprimé le souhait d'avoir une exemple
le voici, pas compliqué quand on a bien compris la différence entre ces deux propriétés (sans parler de .Value2 !) :

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 toto()
Dim i As String
i = "06000"
 
With Cells(1, 1)
    .NumberFormat = "00000"
    .Value = i
End With
 
MsgBox Cells(1, 1) = i
MsgBox Cells(1, 1).Value = i
MsgBox Cells(1, 1).Text = i
MsgBox Cells(1, 1).Value = Cells(1, 1).Text
 
End Sub

Bonjour Joe

Quoique je sois aussi iun inconditionnel du typage systèmatique, je suis toujours à la recherche d'un cas où Range (seul) ne renvoie pas la propriété .Value.
Dans cet exemple, Cells(1, 1) et Cells(1, 1).Value renvoient la même chose.
Ça démontre simplement que .Value et .Text sont différents et surtout que
lorsqu'on veut affecter une String à une cellule, Edit : au lieu de [il faut impérativement employer .Text] lire : il faut être prudent, et formater la cellule au préalable
car .Value interprète certaines chaines comme des nombres :

Code :

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

1
2
3
4
5
6
7
8
9
Sub toto()
Dim i As String
  i = "06000"
  Cells(1, 1).Value = i
  Cells(2, 1).NumberFormat = "@"
  Cells(2, 1).Value = i
  MsgBox "A1 : " & TypeName(Cells(1, 1).Value) & vbCr & _
         "A2 : " & TypeName(Cells(2, 1).Value)
End Sub

.