Discussion :

[guitareveur]

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 :

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

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

[Krovax]

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 :

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

range("A" & i)

exemple

Code :

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

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"

[guitareveur]

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

Code :

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

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]

[Krovax]

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 :

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

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