Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3207 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Probleme de boucle

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Probleme de boucle

n°1771909
Alseidis
Posté le 11-08-2008 à 12:27:13  profilanswer
 

Bonjour tout le monde,
 
J'ai un problème (comme beaucoup de monde), je souhaite construire un fichier permettant de suivre des performances de titres boursiers.
Dans ce but, je décide donc de passer par un programme sur Visual Basic. Actuellement mon souci principal, qui risque de ne pas être le dernier mais chaque chose en son temps, est de faire tourner ma boucle tant que la réponse est Oui.
Hors actuellement, si je choisi la réponse Oui ma boucle reste coincé sur ma MsgBox, jusqu'à ce que je choisisse la réponse Non pour quitter.
Le but final étant de faire un fichier de saisie de tableau qui remplirait une ligne après l'autre, ou plutôt qui écrirait sur la dernière ligne vide du tableau.
 
Voici donc mon code, en espérant que quelqu'un puisse m'aider
 
Option Explicit
 
Sub Equity()
'
' Equity Macro
' Macro recorded 08/08/2008 by alseidis
'
' Keyboard Shortcut: Ctrl+e
 
Dim Account As String
Dim BBG As String
Dim QTY As Integer
Dim Style As String
Dim EXEC As Single
Dim Day As Date
Dim I As String
 
' saisie du nom du compte client
Account = InputBox("Entrer le nom du compte", "Saisie de données", "Compte" )
    With Worksheets("sheet1" ).Range("a2" )
    .Value = Account
    End With
 
' saisie du ticker du titre
BBG = InputBox("Entrer le ticker", "Saisie de données", "Ticker" )
    With Worksheets("sheet1" ).Range("b2" )
    .Value = BBG
    End With
 
' saisie de la quantité de titres
QTY = InputBox("Entrer la quantité", "Saisie de données", "Quantité" )
    With Worksheets("sheet1" ).Range("c2" )
    .Value = QTY
    End With
 
' saisie de la nature du trade (Long ou Short)
Style = InputBox("Long ou Short", "Saisie de données", "L ou S" )
    With Worksheets("sheet1" ).Range("d2" )
    .Value = Style
    End With
   
' saisie du prix d'execution du mouvement
EXEC = InputBox("Entrer le prix d'execution", "Saisie de données", "0000,00" )
    With Worksheets("sheet1" ).Range("e2" )
    .Value = EXEC
    End With
     
' entrée de la date et de l'heure du jour de l'operation
Day = InputBox("Entrer le jour d'achat", "Saisie de données", Now)
    With Worksheets("sheet1" ).Range("f2" )
    .Value = Day
    End With
 
Do
I = MsgBox("Continuer la saisie", vbYesNo)
If I = vbNo Then
Exit Sub
Else
 
End If
Loop
End Sub
 
 
Merci d'avance

Message cité 1 fois
Message édité par Alseidis le 11-08-2008 à 12:35:05
mood
Publicité
Posté le 11-08-2008 à 12:27:13  profilanswer
 

n°1771915
86vomito33
Posté le 11-08-2008 à 13:01:48  profilanswer
 

Alseidis a écrit :

Bonjour tout le monde,
 
 
Option Explicit
 
Sub Equity()
'
' Equity Macro
' Macro recorded 08/08/2008 by alseidis
'
' Keyboard Shortcut: Ctrl+e
 
Dim Account As String
Dim BBG As String
Dim QTY As Integer
Dim Style As String
Dim EXEC As Single
Dim Day As Date
Dim I As String
dim testI as boolean
testI=true
do while testI=false
' saisie du nom du compte client
Account = InputBox("Entrer le nom du compte", "Saisie de données", "Compte" )
    With Worksheets("sheet1" ).Range("a2" )
    .Value = Account
    End With
 
' saisie du ticker du titre
BBG = InputBox("Entrer le ticker", "Saisie de données", "Ticker" )
    With Worksheets("sheet1" ).Range("b2" )
    .Value = BBG
    End With
 
' saisie de la quantité de titres
QTY = InputBox("Entrer la quantité", "Saisie de données", "Quantité" )
    With Worksheets("sheet1" ).Range("c2" )
    .Value = QTY
    End With
 
' saisie de la nature du trade (Long ou Short)
Style = InputBox("Long ou Short", "Saisie de données", "L ou S" )
    With Worksheets("sheet1" ).Range("d2" )
    .Value = Style
    End With
   
' saisie du prix d'execution du mouvement
EXEC = InputBox("Entrer le prix d'execution", "Saisie de données", "0000,00" )
    With Worksheets("sheet1" ).Range("e2" )
    .Value = EXEC
    End With
     
' entrée de la date et de l'heure du jour de l'operation
Day = InputBox("Entrer le jour d'achat", "Saisie de données", Now)
    With Worksheets("sheet1" ).Range("f2" )
    .Value = Day
    End With
 
Do a supprmer
I = MsgBox("Continuer la saisie", vbYesNo)
If I = vbNo Then
testI=false
Else
testI=true
End If
 
Loop
End Sub
 
 
Merci d'avance


 
par contre tu avais toujours un msgbox ms ce "n'etait pas la meme"


Message édité par 86vomito33 le 11-08-2008 à 13:03:47
n°1771924
Alseidis
Posté le 11-08-2008 à 13:15:09  profilanswer
 

Merci de ta réponse 86vomito33, mais en reprenant des modifications ma macro ne se lance plus. Il n'y a pas de message d'erreur, je cherche le problème mais j'avoue que je cale.

n°1771928
babasss
Posté le 11-08-2008 à 13:36:46  profilanswer
 

Code :
  1. Option Explicit
  2.  
  3. Sub Equity()
  4. '
  5. ' Equity Macro
  6. ' Macro recorded 08/08/2008 by alseidis
  7. '
  8. ' Keyboard Shortcut: Ctrl+e
  9.  
  10. Dim Account As String
  11. Dim BBG As String
  12. Dim QTY As String
  13. Dim Style As String
  14. Dim EXEC As Single
  15. Dim Day As Date
  16. Dim I As String
  17. Dim testi As Boolean
  18. Dim line As Integer
  19.  
  20. testi = True
  21. line = Worksheets("sheet1" ).Range("A1" ).End(xlDown).Row + 1
  22.  
  23. MsgBox line
  24.  
  25. Do While testi <> False
  26. ' saisie du nom du compte client
  27. Account = InputBox("Entrer le nom du compte", "Saisie de données", "Compte" )
  28. ' saisie du ticker du titre
  29. BBG = InputBox("Entrer le ticker", "Saisie de données", "Ticker" )
  30. ' saisie de la quantité de titres
  31. QTY = InputBox("Entrer la quantité", "Saisie de données", "Quantité" )
  32. ' saisie de la nature du trade (Long ou Short)
  33. Style = InputBox("Long ou Short", "Saisie de données", "L ou S" )
  34. ' saisie du prix d'execution du mouvement
  35. EXEC = InputBox("Entrer le prix d'execution", "Saisie de données", "0000,00" )
  36. ' entrée de la date et de l'heure du jour de l'operation
  37. Day = InputBox("Entrer le jour d'achat", "Saisie de données", Now)
  38.  
  39. Worksheets("sheet1" ).Cells(line, 1).Value = Account
  40. Worksheets("sheet1" ).Cells(line, 2).Value = BBG
  41. Worksheets("sheet1" ).Cells(line, 3).Value = QTY
  42. Worksheets("sheet1" ).Cells(line, 4).Value = Style
  43. Worksheets("sheet1" ).Cells(line, 5).Value = EXEC
  44. Worksheets("sheet1" ).Cells(line, 6).Value = Day
  45.  
  46. I = MsgBox("Continuer la saisie", vbYesNo)
  47. If I = vbNo Then
  48. testi = False
  49. Else
  50. testi = True
  51. End If
  52. line = line + 1
  53. Loop
  54. End Sub


Message édité par babasss le 11-08-2008 à 13:37:17

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
n°1771939
86vomito33
Posté le 11-08-2008 à 14:13:36  profilanswer
 

effectivement je me suis trompe oupss
noublie pas de gerer le cas si on appui sur cancel

n°1771942
86vomito33
Posté le 11-08-2008 à 14:18:43  profilanswer
 

Option Explicit
 
Sub Equity()
'
' Equity Macro
' Macro recorded 08/08/2008 by alseidis
'
' Keyboard Shortcut: Ctrl+e
 
Dim Account As String
Dim BBG As String
Dim QTY As integer
Dim Style As String
Dim EXEC As Single
Dim Day As Date
Dim I As String
Dim testi As Boolean
Dim line As Integer
 
testi = True
line = Worksheets("sheet1" ).Range("A1" ).End(xlDown).Row + 1
 
MsgBox line
 
Do While testi <> False
' saisie du nom du compte client
Account = InputBox("Entrer le nom du compte", "Saisie de données", "Compte" )
if Account =cancel then
goto fin
end if
 
' saisie du ticker du titre
BBG = InputBox("Entrer le ticker", "Saisie de données", "Ticker" )
if BBG =cancel then
goto fin
end if
 
' saisie de la quantité de titres
QTY = InputBox("Entrer la quantité", "Saisie de données", "Quantité" )
if QTY =cancel then
goto fin
end if
 
' saisie de la nature du trade (Long ou Short)
Style = InputBox("Long ou Short", "Saisie de données", "L ou S" )
if Style =cancel then
goto fin
end if
 
' saisie du prix d'execution du mouvement
EXEC = InputBox("Entrer le prix d'execution", "Saisie de données", "0000,00" )
if EXEC =cancel then
goto fin
end if
 
' entrée de la date et de l'heure du jour de l'operation
Day = InputBox("Entrer le jour d'achat", "Saisie de données", Now)
if Day =cancel then
goto fin
end if
 
Worksheets("sheet1" ).Cells(line, 1).Value = Account
Worksheets("sheet1" ).Cells(line, 2).Value = BBG
Worksheets("sheet1" ).Cells(line, 3).Value = QTY
Worksheets("sheet1" ).Cells(line, 4).Value = Style
Worksheets("sheet1" ).Cells(line, 5).Value = EXEC
Worksheets("sheet1" ).Cells(line, 6).Value = Day
 
I = MsgBox("Continuer la saisie", vbYesNo)
If I = vbNo Then
testi = False
Else
testi = True
End If
line = line + 1
Loop
fin:
End Sub


Message édité par 86vomito33 le 11-08-2008 à 15:01:22
n°1771978
Alseidis
Posté le 11-08-2008 à 15:09:19  profilanswer
 

Merci de votre aide rapide.
J'avoue qu'étant débutant en VB, j'en apprends un peu plus. Cependant il me reste un problème concernant ce qui a été posté.
 
La ligne suivante me retourne avec une Run-time error '6' Overflow.
line = Worksheets("sheet1" ).Range("A1" ).End(xlDown).Row + 1
 
Je ne vois pas quel variable pourrait dépasser la taille requise par son format... Si vous aviez une idée, je vous en remercie d'avance ><
 
Sinon, pour le dernier poste de 86vomito33, le fait de rajouter des Cancel m'oblige a déclarer une variable supplémentaire pour les utiliser. ne devrais-je pas utiliser vbCancel plutot ?

n°1771994
86vomito33
Posté le 11-08-2008 à 15:33:30  profilanswer
 

line = Worksheets("sheet1" ).Range("A55555" ).End(xlup).Row + 1  
ca devrait marche
 
pour le cancel tu peux enlever option explicit

n°1772048
Alseidis
Posté le 11-08-2008 à 16:41:50  profilanswer
 

Merci jusqu'ici tout va bien en tout cas, merci grandement pour votre aide.  
Je risque d'avoir besoin d'aide sur d'autres choses dans ma macro mais je vais chercher un peu avant de reposter.

n°1774426
Alseidis
Posté le 19-08-2008 à 12:51:08  profilanswer
 

Salut tout le monde, j'ai donc finalement réussi a faire un algo qui tourne grâce a vos conseils mais la alors que je touche au but, j'ai un leger probleme.
En lançant la macro de saisie pas de problème pour saisir les données, mais a la fin de la saisie rien, ou plutôt plus rien ne s'affiche, dans mon tableau.
 
J'ai beau chercher ma ligne je ne sais pas ou se trouve mon entrée, ce qui est légèrement agaçant, je vous l'avoue.
Quelqu'un aurait une idée sur la source du problème?

mood
Publicité
Posté le 19-08-2008 à 12:51:08  profilanswer
 

n°1774433
86vomito33
Posté le 19-08-2008 à 13:05:44  profilanswer
 

envoie ton code

n°1774434
Alseidis
Posté le 19-08-2008 à 13:07:54  profilanswer
 

Sub Equity()
 
' Equity Macro
' Macro recorded 08/08/2008 by alseidis
'
' Keyboard Shortcut: Ctrl+Alt+213
 
Dim Account As String
Dim BBG As String
Dim QTY As Integer
Dim Style As String
Dim EXEC As Single
Dim Day As Date
Dim OP As String
Dim I As String
Dim testi As Boolean
Dim line As Integer
 
testi = True
OP = True
line = Worksheets("blotter" ).Range("A55555" ).End(xlUp).Row + 1
 
I = MsgBox("Faire une saisie ?", vbYesNo)
If I = vbNo Then
testi = False
Else
testi = True
End If
 
Do While testi <> False
Account = InputBox("Entrer le nom du compte", "Saisie de données", "Compte" )
If Account = Cancel Then
GoTo fin
End If
 
BBG = InputBox("Entrer le ticker", "Saisie de données", "Ticker" )
If BBG = Cancel Then
GoTo fin
End If
 
QTY = InputBox("Entrer la quantité", "Saisie de données", "Quantité" )
If QTY = Cancel Then
GoTo fin
End If
 
Style = InputBox("Long ou Short", "Saisie de données", "L ou S" )
If Style = Cancel Then
GoTo fin
End If
 
EXEC = InputBox("Entrer le prix d'execution", "Saisie de données", "0000,00" )
If EXEC = Cancel Then
GoTo fin
End If
 
Day = InputBox("Entrer le jour d'achat", "Saisie de données", Now)
If Day = Cancel Then
GoTo fin
End If
 
OP = InputBox("Entrer la position", "Saisie de données", "OPEN / CLOSED" )
If OP = "closed" And Style = "L" Then
QTY = -QTY
Else
If OP = "closed" And Style = "S" Then
QTY = QTY
Else
If OP = "open" And Style = "L" Then
QTY = QTY
Else
If OP = "open" And Style = "S" Then
QTY = -QTY
Else
GoTo fin
End If
End If
End If
End If
 
Worksheets("blotter" ).Cells(line, 1).Value = UCase$(Account)
Worksheets("blotter" ).Cells(line, 3).Value = UCase$(BBG)
Worksheets("blotter" ).Cells(line, 5).Value = QTY
Worksheets("blotter" ).Cells(line, 6).Value = UCase$(Style)
Worksheets("blotter" ).Cells(line, 7).Value = EXEC
Worksheets("blotter" ).Cells(line, 8).Value = Day
Worksheets("blotter" ).Cells(line, 9).Value = UCase$(OP)
 
I = MsgBox("Continuer la saisie ?", vbYesNo)
If I = vbNo Then
testi = False
Else
testi = True
End If
line = line + 1
Loop
fin:
End Sub
 
Voila pour le code

n°1774447
86vomito33
Posté le 19-08-2008 à 13:45:11  profilanswer
 

il sert a quoi ton goto fin
je me rapelle plus :)
en tt cas enleve le ca devrait marche

n°1774453
86vomito33
Posté le 19-08-2008 à 13:52:51  profilanswer
 

il faut aussi que tes open et OPEN soit au meme "format" fo choisir les minuscules ou les majuscules

n°1774459
Alseidis
Posté le 19-08-2008 à 14:26:27  profilanswer
 

Merci beaucoup ça marche maintenant.

n°1774553
Alseidis
Posté le 19-08-2008 à 17:52:29  profilanswer
 

A toute fin utile, le GoTo fin servait a mettre fin a la macro si l'utilisateur appuie sur cancel.
 
Sinon pourriez vous me suggerez une fonction qui me permettrait de recopier les formules de ma feuille Excel sur la ligne ou se fait la nouvelle entrée, pour eviter de devoir "tirer" vers le bas mes formules après chaque entrée

n°1774638
86vomito33
Posté le 19-08-2008 à 22:21:58  profilanswer
 

Sub Equity()
 
' Keyboard Shortcut: Ctrl+Alt+213
 
Dim Account As String
Dim BBG As String
Dim QTY As Integer
Dim Style As String
Dim EXEC As Single
Dim Day As Date
Dim OP As String
Dim I As String
Dim testi As Boolean
Dim line As Integer
 
testi = True
OP = True
line = Worksheets("blotter" ).Range("A55555" ).End(xlUp).Row + 1
 
I = MsgBox("Faire une saisie ?", vbYesNo)
If I = vbNo Then
testi = False
Else
testi = True
End If
 
Do While testi <> False
Account = InputBox("Entrer le nom du compte", "Saisie de données", "Compte" )
If Account = cancel Then GoTo fin
 
 
BBG = InputBox("Entrer le ticker", "Saisie de données", "Ticker" )
If BBG = cancel Then GoTo fin
 
QTY = InputBox("Entrer la quantité", "Saisie de données", "Quantité" )
If QTY = cancel Then GoTo fin
 
Style = InputBox("Long ou Short", "Saisie de données", "L ou S" )
If Style = cancel Then GoTo fin
 
EXEC = InputBox("Entrer le prix d'execution", "Saisie de données", "0000,00" )
If EXEC = cancel Then GoTo fin
 
Day = InputBox("Entrer le jour d'achat", "Saisie de données", Now)
If Day = cancel Then GoTo fin
 
OP = InputBox("Entrer la position", "Saisie de données", "OPEN / CLOSED" )
If OP = "CLOSED" And Style = "L" Then QTY = -QTY
If OP = "CLOSED" And Style = "S" Then QTY = QTY
If OP = "OPEN" And Style = "L" Then QTY = QTY
If OP = "OPEN" And Style = "S" Then QTY = -QTY
If OP = cancel Then GoTo fin
 
Worksheets("blotter" ).Cells(line, 1).Value = UCase$(Account)
Worksheets("blotter" ).Cells(line, 3).Value = UCase$(BBG)
Worksheets("blotter" ).Cells(line, 5).Value = QTY
Worksheets("blotter" ).Cells(line, 6).Value = UCase$(Style)
Worksheets("blotter" ).Cells(line, 7).Value = EXEC
Worksheets("blotter" ).Cells(line, 8).Value = Day
Worksheets("blotter" ).Cells(line, 9).Value = UCase$(OP)
 
I = MsgBox("Continuer la saisie ?", vbYesNo)
If I = vbNo Then
testi = False
Else
testi = True
End If
line = line + 1
 
Loop
Range("B1" ).AutoFill Destination:=Range(Cells(1, 2), Cells(line, 2)), Type:=xlFillDefault
Range("D1" ).AutoFill Destination:=Range(Cells(1, 4), Cells(line, 4)), Type:=xlFillDefault
fin:
End Sub


Message édité par 86vomito33 le 19-08-2008 à 22:37:56
n°1774916
Alseidis
Posté le 20-08-2008 à 14:06:54  profilanswer
 

j'ai recopié le code que tu as mis dans ton post mais quand je finis ma saisie, les colonnes B et D se vide totalement, des données et du formatage des cellules :(

n°1774976
86vomito33
Posté le 20-08-2008 à 15:03:14  profilanswer
 

faut peux etre changer les deux dernieres lignes
tes entetes sont sur quelle ligne ?

n°1774989
Alseidis
Posté le 20-08-2008 à 15:21:09  profilanswer
 

Les entetes de mes colonnes sont sur la ligne 5

n°1775009
86vomito33
Posté le 20-08-2008 à 15:45:22  profilanswer
 

ca devrait donc etre
Loop  
Range("B6" ).AutoFill Destination:=Range(Cells(6, 2), Cells(line, 2)), Type:=xlFillDefault  
Range("D6" ).AutoFill Destination:=Range(Cells(6, 4), Cells(line, 4)), Type:=xlFillDefault  
fin:  
End Sub  

n°1775073
Alseidis
Posté le 20-08-2008 à 17:18:25  profilanswer
 

J'ai refait un essai mais avec le même résultat que précédemment.
En fait, il faudrait que la macro reprenne la formule de la dernière ligne remplie pour la recopier pour la nouvelle ligne saisie.
 
J'espere que mes precisions pourront t'aider. Le code etant en entier tu peux faire le test de ton coté. Merci de ton aide en tout cas

Message cité 1 fois
n°1775149
86vomito33
Posté le 20-08-2008 à 20:56:28  profilanswer
 

Alseidis a écrit :

J'ai refait un essai mais avec le même résultat que précédemment.
En fait, il faudrait que la macro reprenne la formule de la dernière ligne remplie pour la recopier pour la nouvelle ligne saisie.
 
J'espere que mes precisions pourront t'aider. Le code etant en entier tu peux faire le test de ton coté. Merci de ton aide en tout cas


nouvelle essai

Code :
  1. Loop
  2. cells(line-1,4).AutoFill Destination:=Range(Cells(line-1, 4), Cells(line, 4)), Type:=xlFillDefault
  3. fin:
  4. End Sub


 
si ca marche pas envoie un extrait de ton fichier

n°1775321
Alseidis
Posté le 21-08-2008 à 09:56:09  profilanswer
 

Je viens d'essaier et mes formules ne se recopie toujours pas.
Je te mets donc le lien vers un classeur ou il y a une extrait de mon tableau
http://www.cijoint.fr/cjlink.php?f [...] eDB7Nf.xls
Merci d'avance

n°1775396
86vomito33
Posté le 21-08-2008 à 11:09:23  profilanswer
 

ah c'est tout de suite plus facile
 
I = MsgBox("Continuer la saisie ?", vbYesNo)  
If I = vbNo Then  
testi = False  
Else  
testi = True  
line= line + 1  
End If
Loop  
Cells(line - 1, 4).AutoFill Destination:=Range(Cells(line - 1, 4), Cells(line, 4)), Type:=xlFillDefault
fais pareil pour les autres colonnes
fin:  
End Sub


Message édité par 86vomito33 le 21-08-2008 à 11:17:12
n°1775427
Alseidis
Posté le 21-08-2008 à 12:33:19  profilanswer
 

je dois être vraiment mauvais pour pas réussir a faire marché ton code :pt1cable:  
j'ai essayé de reprendre la ligne de code  
Cells(line - 1, 4).AutoFill Destination:=Range(Cells(line - 1, 4), Cells(line, 4)), Type:=xlFillDefault
pour remplir au moins une colonne mais sans succès...
quelle est la partie a modifier pour reproduire le formule sur les autres colonnes ?

n°1775478
86vomito33
Posté le 21-08-2008 à 14:00:19  profilanswer
 

Code :
  1. Cells(line - 1, 4).AutoFill Destination:=Range(Cells(line - 1, 4), Cells(line, 4)), Type:=xlFillDefault

 s'applique a la colonne 4 "BBG"
il faut que tu copie cette ligne est que tu change les "4" par "2", "10"a"16" et "18","19"


Message édité par 86vomito33 le 21-08-2008 à 14:02:33
n°1775483
Alseidis
Posté le 21-08-2008 à 14:03:35  profilanswer
 

Ok j'essaie ca tout de suite, et je te dis comment je m'en sors =)

n°1775514
Alseidis
Posté le 21-08-2008 à 15:00:48  profilanswer
 

Pour reprendre la fin du code, j'ai fais comme tu m'as dis
 
I = MsgBox("Continuer la saisie ?", vbYesNo)
If I = vbNo Then
testi = False
Else
testi = True
End If
line = line + 1
Loop
Cells(line - 1, 2).AutoFill Destination:=Range(Cells(line - 1, 2), Cells(line, 2)), Type:=xlFillDefault
Cells(line - 1, 4).AutoFill Destination:=Range(Cells(line - 1, 4), Cells(line, 4)), Type:=xlFillDefault
Cells(line - 1, 10).AutoFill Destination:=Range(Cells(line - 1, 10), Cells(line, 10)), Type:=xlFillDefault
Cells(line - 1, 11).AutoFill Destination:=Range(Cells(line - 1, 11), Cells(line, 11)), Type:=xlFillDefault
Cells(line - 1, 12).AutoFill Destination:=Range(Cells(line - 1, 12), Cells(line, 12)), Type:=xlFillDefault
Cells(line - 1, 13).AutoFill Destination:=Range(Cells(line - 1, 13), Cells(line, 13)), Type:=xlFillDefault
Cells(line - 1, 14).AutoFill Destination:=Range(Cells(line - 1, 14), Cells(line, 14)), Type:=xlFillDefault
Cells(line - 1, 15).AutoFill Destination:=Range(Cells(line - 1, 15), Cells(line, 15)), Type:=xlFillDefault
Cells(line - 1, 16).AutoFill Destination:=Range(Cells(line - 1, 16), Cells(line, 16)), Type:=xlFillDefault
Cells(line - 1, 18).AutoFill Destination:=Range(Cells(line - 1, 18), Cells(line, 18)), Type:=xlFillDefault
Cells(line - 1, 19).AutoFill Destination:=Range(Cells(line - 1, 19), Cells(line, 19)), Type:=xlFillDefault
fin:
End Sub
 
Mais malheureusement ca ne marche toujours pas... Je commence a desesperer un peu

n°1775647
86vomito33
Posté le 21-08-2008 à 19:12:55  profilanswer
 

tu te fous de moi :)
c'est line=line+1
end if

n°1775822
Alseidis
Posté le 22-08-2008 à 09:35:10  profilanswer
 

Bon ben ca marche toujours pas...
Non je rigole, cette fois ca marche nickel =)
MERCI GRANDEMENT a toi 86vomito33 pour le temps que tu as passé a m'aider a me sortir de ma boucle d'algo ><
 
Merci merci

mood
Publicité
Posté le   profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Probleme de boucle

 

Sujets relatifs
Probleme affichage + Boucle whileMS-DOS : Boucle For, IF et Find imbriqués, probleme d'affectation
probleme de boucle pourprobleme avec une boucle if en cshell
Probleme Boucle "pour" en nombre variable[Batch] Problème de variable dans boucle for
Problème "simple" (?) de boucleProblème boucle de recherche sous VBA sur Excel
Probleme lien hypertexte, en boucleProbleme boucle For getURL capricieuse
Plus de sujets relatifs à : Probleme de boucle

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.106 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)