fonction do While loop

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

Code:

---

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

---

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

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:

---

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:

---

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

---

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

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:

---

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

---

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