Probleme avec xcel vbA

Version imprimable

09/08/2007, 15h16
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 :

Citation:

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:

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

c tt

Je voudrais que quelqu'un m'aide

merci

Code:

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

elle n' apparait po bien c'est en jaune
09/08/2007, 15h19
bibi5883

Bonjour,

Code:

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.
09/08/2007, 16h44
alsimbad

Citation:

Envoyé par bibi5883

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:

ValeurScore = Worksheets("BDD").Range(COL & LIN).Value
09/08/2007, 16h47
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 ;)
10/08/2007, 11h30
hmizou

probleme avec un code VBA
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:

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?
10/08/2007, 11h34
LeForestier

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

dans ton cas vaudrait mieux employé

Code:

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

A+
10/08/2007, 11h38
hmizou

le probleme

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
10/08/2007, 11h41
hmizou

meme prob

Quand je remplace avec cette ligne il me fais erreur incompatible type
10/08/2007, 11h45
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:

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

Code:

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

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 ?)):)

10/08/2007, 11h47
hmizou

j'ai mis tt le fichier excel en ligne

SA marche po ce que tu m'a dis de faire c le meme probleme
10/08/2007, 11h57
hmizou

re

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
10/08/2007, 12h41
bibi5883

ca serait pas plus simple de nous copier ton programme là pour que l'on essaie de t'aider?
10/08/2007, 13h17
Guidhy

Ou au minimum faire un lien.... :roll:

Edit : Heu.... sinon.... c'est quoi le sondage ? "Que penser vous" ? De quoi ?
10/08/2007, 13h29
hmizou

Re

c'est quand j'enleve la ligne que j'ai rajouté il marche bien le programme

je vais le mettre en piece jointe le programme

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

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

Merci
10/08/2007, 13h30
hmizou

Re

Quend je rajoute le materiaux dans polymer il apparait dans le menu deroulant mais quand je termine mon calcula il ya l'erreur

SVP aider moi
10/08/2007, 14h58
hmizou

Re

SA marche po ce que tu m'a dis de faire c le meme probleme