Discussion :

[hmizou]

Bonjour,
Je suis entrain de modifiée un petit logiciel f en vBA excel, j'ai rejouter juste des donnée dans la base de donnée excel pour avoir plus de donnée
car ces donnée sont identifié par un nom qui apparaisse dans un menu deroulant
mais quon je test j'ai une erreur de debogage

l'erreur est :

Erreur d'exection '1004'
Erreur définie par l'application ou par objet

et aprés quen je clic sur debogage

il m'envoie dans une ligne de code

Code :

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

ValeurScore = Worksheets("BDD").Range((COL) & " " & (LIN)).Value

c tt

Je voudrais que quelqu'un m'aide

merci

Code :

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

ValeurScore = Worksheets("BDD").Range((COL) & " " & (LIN)).Value

elle n' apparait po bien c'est en jaune

[bibi5883]

Bonjour,

Code :

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

ValeurScore = Worksheets("BDD").Range((COL) & " " & (LIN)).Value

Est-ce qu'il y a des espaces avant et après les &?
Si oui, il faudrait peut être mettre le code en entier ca serait plus facile pour t'aider.

[alsimbad]

ValeurScore = Worksheets("BDD").Range((COL) & " " & (LIN)).Value

ça m'a pas l'air très logique cette phrase
ça pourrait etre
si col est une lettre et lin un chiffre

Code :

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

ValeurScore = Worksheets("BDD").Range(COL  & LIN).Value

[Commodore]

erreur définie par application ou objet
=> tu as dépassé les limites d'une variable ou d'un objet, voire de excel.

exemple Cells(0,0) => cette erreur.
N'aurais-tu pas une variable mal initialisée ou une boucle qui va trop loin (au poitn de sortir de la feuille par exemple) ?

edit: a verifier, COL doit etre de type String et contenir la lettre de la colonne.
verifie aussi que le bon workbooks est actif quand tu appelles la feuille "BDD"

et poste la fonction/procedure complète, ça sera sans doute + facile de trouver l'erreur

[hmizou]

c'est quand j'enleve la ligne que j'ai rajouter il marche bien le prog

je vais le mettre en piece jointe le prog

je voudrais ajouter par exemple dans polymer dans BDD plus de matériaux

mais kon je rajoute il y a l'erreur qui apparait

Merci

[Garuda]

Code :

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

1
2
ValeurScore = Worksheets("BDD").Range((COL) & ":" & (LIN)).Value

ou

Code :

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

1
2
ValeurScore = Worksheets("BDD").Cells(LIN,COL).Value

(ca dépend de ce qu'il y a dans col et lin (chaine ou nombre ?))

[hmizou]

Lorsque j'ajoute un matériau dans la base de donnée et que je lance
un calcul, l'utilitaire m'indique l'erreur de debogage suivante :

> Erreur d'execution '1004'
>
> Erreur définie par l'application ou par objet

Puis après avoir cliqué sur "débogage" :

Code :

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

1
2
3
4
Else
    ValeurScore = Worksheets("BDD").Range((COL) & " " & (LIN)).Value
End If
End Function

Pourriez vous me conseiller pour résoudre ce problème?

[LeForestier]

Bonjour,
le "Range" fonctionne avec des adresses tel que range("A1:B3")

dans ton cas vaudrait mieux employé

Code :

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

ValeurScore = Worksheets("BDD").Cells(COL,LIN).Value

A+

[hmizou]

Quand je remplace avec cette ligne il me fais erreur incompatible type

[freyliss]

Bonjour,

Range fonctionne aussi avec les adresses pour une cellule ("A2").
Si j'en crois ton code COL = colonne et LIN=ligne logiquement, non?

Essaie

Code :

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

1
2
 
ValeurScore = Worksheets("BDD").Range(COL &  LIN).Value

voilà

[hmizou]

aucune solution meme probleme. je vais mettre le truc en ligne tu peux regarder si tu pouvais faire quelquechose

le truc c'est qu'il faut rajouter des materiaux par exemple dans polymer

et quand tu fais le calcul elle doit marcher

merci

[bibi5883]

ca serait pas plus simple de nous copier ton programme là pour que l'on essaie de t'aider?