Help me ^^

K

Kobal

Guest

• 18 Janvier 2008

• #2

Re : Help me ^^

Bonjour,
Dans ta ligne, est ce que "f" est une variable?
Sinon il faut mettre un chiffre, 6 pour la colonne F par exemple.

 

Vote positif 0 Vote négatif

P

Pachi

Guest

• 18 Janvier 2008

• #3

Re : Help me ^^

Je declare f = 13
et avec une boucle je fais un f=f+1 pour trouver la bonne ligne dans mon tableau.
Faut t'il que je declare f avec un dim ?
et si je le declare il me met overflow
Rhhaa je suis perdu la!

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Janvier 2008

• #4

Re : Help me ^^

Bonjour Kobal Pachi,

Le mieux serait que tu envoies la/les macros ou le fichier en zippé < 48.8ko pour que l'on évite de tourner en rond....

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 18 Janvier 2008

• #5

Re : Help me ^^

Bonjour à tous

Quand on parle de declarer, ce n'est pas initialiser

Dim f as long ' est une declaration de variable
f = 13 est une initialisation de variable

quand on utilise une variable pour simuler un n° de ligne, il faut faire attention au differentes limites

F = 13 ' declare implicitement une variable entier court (en esperant que ce ne soit pas un byte)

Le nombre de lignes pour les vervions excel avant 2007, c'est 65536, oe une declaration en entier simple ne permet que la moitié, et une declaration en Byte une valeur maxi de 255

je ne sais pas combien de lignes tu cherches à traiter, mais personnellement, quand je travaille sur des ligne, je declare toujours en Long soit Dim f as long

 

Vote positif 0 Vote négatif

P

Pachi

Guest

• 18 Janvier 2008

• #6

Re : Help me ^^

Ok voici ma macro je ne peux pas envoyer le fichier ziper il est trop gros desoler
J'espere que ca va pouvoir vous aidé car je bloque vraiment la sur :

Sub Macro5()

f = 13
Do
f = f + 1

If Cells(f, 1) = Range("A9") Then
Exit Do
End If
Loop
If Range("B9") = "" Then
Cells(f, 2) = Cells(f, 2)
Else
Cells(f, 2) = Range("B9")
End If
If Range("C9") = "" Then
Cells(f, 3) = Cells(f, 3)
Else
Cells(f, 3) = Range("C9")
End If
If Range("D9") = "" Then
Cells(f, 4) = Cells(f, 4)
Else
Cells(f, 4) = Range("D9")
End If
End sub

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 18 Janvier 2008

• #7

Re : Help me ^^

Re,

Do
f = f + 1

If Cells(f, 1) = Range("A9") Then
Exit Do
End If
Loop

Cliquez pour agrandir...

Si la condition n'est jamais remplie, la macro va boucler jusqu'à la dernière ligne (65536 avec excel 2003) et ensuite va forcément "planter".
C'est à mon avis ce qui se produit.

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 18 Janvier 2008

• #8

Re : Help me ^^

Bonjour,

Dites, personne n'a penser que cells et range demandaient une propriété derrière ?

Je ne sais pas, par exemple .value, non ?

ce qui donne

Code:

cells(f,1).value = range("A9").value

Cordialement,
Thomas

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Janvier 2008

• #9

Re : Help me ^^

Bonjour le fil, bonjour le forum,

La propriété Value est la propriété par défaut un objet Range. Il n'est donc pas obligatoire de l'écrire même si je pense qu'il est préférable de le faire. Sinon désolé mais je n'ai pas de solution pour ce problème.

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 18 Janvier 2008

• #10

Re : Help me ^^

Re le fil, bonjour Robert

Ah ? je pensais qu'il n'aimait pas ça.
Autant pour moi.

Dans ce cas, je rejoins Skoobi sur ce qu'il (ou elle) disait sur la condition de sortie

Donc ce serait plutôt

Code:

do until cells(f,1).value = range("A9").value or f = 65536
...
f = f +1
loop

ou bien

do while cells(f,1).value <> range("A9").value or f < 65536
...
f = f +1
loop

de plus, je définirais f en tant que long AVANT la boucle, mais ça, c'est optionnel.

Mais si le problème n'est pas là, je sèche

Thomas

 

Vote positif 0 Vote négatif

P

Pachi

Guest

• 21 Janvier 2008

• #11

Re : Help me ^^

C'est extra ca marche bien maintenant merci a tous pour votre aide

 

Vote positif 0 Vote négatif