probleme avec mon vb

[dj.run]

bonjour à tous,

j'ai un code qui commence par :

der_ligne =

et sur le pc ou je voulais travailler, lorsque la macro se declanche, elle me renvoit une erreur type :

erreur de compilation:

projet ou bibliothèque introuvable .

y a t il une solution pour que ça marche ?

ce probleme ne vient il pas du fait que la machine sur laquelle je voulais travailler est avec office 97 small busines ?

merci de bien vouloir me renseigner .

dj.run

 

[@+Thierry]

Salut DJ-Run et le Forum

Tu ne dis pas de quel type est cette variable ? Vu son nom je pense à une variable integer...

Est-ce qu'un code comme celui-ci tournerait sur ton PC ?

Option Explicit

Sub TestPC()
Dim L As Integer
L = Sheets(1).Range("A65536").End(xlUp).Row
MsgBox L
End Sub

(A coller dans un module standard)...

@suivre...
@+Thierry

 

[dj.run]

re à tous,

thierry en declarant avec dim , ça fonctionne mais le probleme suit :
voici la macro :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim L As Integer
L = Sheets(credit).Range("d175").End(xlUp).Row
For Each cellule In Range("f4:f" & der_ligne)
If cellule.Value = "" Then
If Range("d4") > 0 Then
Usf1.Show
End If
End If
Next cellule
End Sub

maintenant c'est cellule qu'il ne comprend pas .

vivement qu'on achete des versions plus recentes d'office .

dj.run

 

[jean]

Salut, dj.run
tant que tu y es, déclare *toutes* les variables avec Dim.
ici tu utilises 'cellule' sans l'avoir déclaré, donc:
Dim cellule as Range
A plus.

 

[@+Thierry]

Re Bonjour DJ-Run, bonjour Jean et le Forum

Oui, exact comme te dit Jean...

En fait tu dois avoir dans VBE : Menu / Option / Onglet => Editeur => "Reclamez les Declarations de variables" coché

Ce n'est pas un mal au contraire... Ca évite bien des problèmes en t'obligeant à TOUT déclarer...

Donc comme dit Jean
Dim Cellule As Range...

Et puis si tu veux que çà marche... remplace aussi :

L = Sheets(credit).Range("d175").End(xlUp).Row
For Each cellule In Range("f4:f" & der_ligne)

Par
L = Sheets("credit").Range("d175").End(xlUp).Row
For Each cellule In Range("f4:f" & L)


Bon je m'en vais casser la croute !! Bon appétit à tout le monde !!

@+Thierry

PS DJ-Run il est quelle heure à Saint Denis ?

 

[Zon]

Bonjour à tous,

Même en déclarant toutes les variables je crois que tu auras un autre PB:


il faut remplacer der_ligne par L dans ton test If..


A+++

 

[dj.run]

re à vous tous en declarant tout en effet cela marche mais ou je ne comprends pas tout c'est que sur un autre poste de travail sans declarer der_ligne et cellule, cela marchait aussi .

merci à vous trois et je continu à apprendre .

dj.run