Discussion :

[legland]

Bonsoir à tous
j'ai un petit problème et je n'arrive pas à le résoudre. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
 
' Macro1 Macro
'
'Sub tant_que()
Range(A1).Select
 Do While ActiveCell.Offset(-1, 0) <> 10
 ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
 * ActiveCell.Offset(1, 0).Selct
 
End Sub

[ARTURO83]

Bonjour,

Vous sélectionnez la cellule A1 en première ligne de votre code, puis vous demandez à tester si la cellule de la ligne au-dessus de la ligne 1 est <> de 10, ce qui génère forcément une erreur. Il faudrait commencer à la ligne 2.

Mais si vous expliquiez le but recherché, votre code pourrait être écrit autrement.

Cdlt

[Pierre Fauconnier]

Salut.

• Comme souvent, pas besoin de vba au départ. Ajouter 1 à la valeur de la cellule précédente est l'affaire d'Excel.
• En VBA, on évite les SELECT.
• Si on utilise une boucle, on la ferme (la boucle) avec un Loop.
• Si A1 est plus grand que 10 au départ de la macro, tu va remplir toute la colonne A (1048576 lignes) puis planter => toujours veiller à placer une condition de sortie qui sera VRAI à un moment donné

Ca ressemble fort à un exercice, car je ne vois pas la finalité de la chose. En modifiant l'opérateur de comparaison, tu pourrais utiliser ceci, sans aucun SELECT

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
  Dim r As Range
 
  Set r = Range("a1")
  Do While r.Value < 10
    r(2).Value = r.Value + 1
    Set r = r(2)
  Loop
End Sub

Sur de grands traitements (+/- à partir de 10000 lignes) et dans la mesure où l'on peut formuler la progression des valeurs, on pourrait se passer de la boucle qui est lente, par exemle avec ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test1()
  Dim r As Range
  Dim Value As Long
 
  If Range("a1") < 10 Then
    Value = 10000 - Range("a1").Value
    Set r = Range("a2").Resize(Value)
    r.Formula = "=a1+1"
    r.Copy
    r.PasteSpecial xlPasteValues
    Application.CutCopyMode = False
  End If
End Sub

[legland]

bonjour
effectivement c'est un exemple que j'ai trouvé sur internet et j' ai voulu le testé
comme ça fonctionne pas j'ai voulu savoir pourquoi

[Pierre Fauconnier]

Je doute que le code que tu nous as donné ait été repris tel quel du net, car il y a une erreur sur chaque ligne. Qui plus est, la logique ne tient pas la route puisque l'on ne sait pas démarrer de A0, il n'est donc pas possible d'obtenir la valeur de A0 pour lui ajouter 1. Qui plus est, à cause des Select inutiles, ce code est d'une ineptie totale.

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
 
' Macro1 Macro
'
'Sub tant_que()
Range(A1).Select ' Il manque les guillemets pour entourer l'adresse A1
 Do While ActiveCell.Offset(-1, 0) <> 10 ' Ca ne peut que planter car impossible de remonter d'une ligne à partir de la ligne 1
 ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 ' Impossible puisque l'on part de A1
 * ActiveCell.Offset(1, 0).Selct ' Ligne forcément en rouge à cause de l'astérisque, et .Selct n'existe pas
' Absence de loop pour boucler, mais comme on ne sait pas lancer la macro à cause des autres erreurs, on n'arrive pas au message explicite s'il n'y avait que cette erreur
 
End Sub

[legland]

Bonsoir
c'etait une curiosité de ma part
ce n'est pas grave je vous remercie
ça prouve mon niveau en excel
j'ai reussi avec for next
encore merci