boucle loop while

Bonjour Je m' apelle Robin et j' essaye aujourd hui de faire mon premier petit programme en VBA et j ai donc decouvert ce forum qui va sans nul doute par la suite devenir ma bible :)...
voila j aimerais automatiser mes calculs dans excel j ai donc vu qu il fallais que j 'utilise de macros et donc VBA mon but est de tester les valeurs d un tableau pour un calcul j' usqu a ce que j obtienne une certaine valeur Je ne sais pas si ce que je veux faire est trés clair mais voila les lignes de code que j' ai tapé et qui ne fonctionnent absolument pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Boucle()   Dim i As Integer Do i=i+1; If(cells(DQ,4)="ok";Cells(CQ,4);INDEX(Cells(B,97):Cells(B,113);EQUIV(cells(CQ,4);Cells(B,9);(cells(B,113))+i);     Loop While Cells(DV, 4) > 5   End Sub

---

Merci d' avance
je peux bien sur aporter plus de précisions

Premièrement pour utiliser le forum les balise code sont essentiel
Pour les utiliser
Comment baliser le code -> Sélection du code + 1 clic sur # en mode d'édition
Démonstration

Pour ton souci la commande cells ne s'utilise pas ainsi
il faus lui donner dans l'ordre le numéro de ligne puis le numéro de colonne
La touche F1 qui lance l'aide de VBA t'expliquera ca très bien (tu met le curseur sur le mot et tu appui sur F1)

SI tu veux utiliser les lettre tu peux utiliser range ainsi

Code:

---

range("A" & i)

---

exemple

Code:

---

1 2 3 4 5

dim num_ligne as integer, num_colonne as integer num_ligne=3 num colonne=2 cells(num_ligne,num colonne)="Ceci est la cellule B3" range("D" & num_ligne)="Ceci est la cellule D3"

---

MERCI j ai fais les modifications au niveau des cellules mais ca ne veut tojours pas se compiler :?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Boucle()   Dim i As Integer Do i=i+1; If(cells(118,4)="ok";Cells(93,4);INDEX(Cells(2,97):Cells(B,113);EQUIV(cells(93,4);Cells(2,9);(cells(2,113))+i);     Loop While Cells(123, 4) > 5   End Sub

---

Merci d' avance
je peux bien sur aporter plus de précisions[/QUOTE]

Je ne sais pas quel langage tu utilisés avant, mais en vb dans un if on utilise les opérateur and or pas les ;

exemple

Code:

---

1 2 3

if i>10 and i<5 or i=7 then msgbox "i n'est pas égale a 5,6,8,9,10" end if

---

de plus les fonction index equive n'existe pas en vba
je ne comprend absolument pas ce que tu souhaite faire en fait.
Tu veux ecrire celles formule dans les cellule? regarder si c'est la formule contenue dans les cellules?

La je ne peux que te conseiller de commencer a lire quelque tuto sur VBA