Utilisation d'Elself

[BerJean]

Bonjour à tous,


L'utilisateur saisi 1 ou 2 ou 3 ou 4 variables (integer) a,b,c,d

Je désire soustraire une unité de la dernière variable rentré et
transférer les valeurs dans les variables aa, ab,ac ad.

Je n'arrive pas à utiliser Elself :

Qui pourrait m'aider,

BerJean

Sub Deter_1()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer

Dim aa As Integer
Dim ab As Integer
Dim ac As Integer
Dim ad As Integer


If d > 0 Then
ad = d - 1
Elself c > 0 Then 'ERREUR
ac = c - 1
Elself b > 0 Then 'ERREUR
ab = b - 1
Else: aa = a - 1
End If
End Sub

 

[Robert]

Bonjour Berjean,
Si c'est un copier coller que tu a fait ce n'est pas un ElseIf que tu as saisi....
mais un ElseLf ....
@+

 

[Wilfried]

Salut Berjean,

cheze moi ton code fonction si l'on tien compte des corrections de syntaxes... en revanche le else: aa=a-1 me choque, j'ecrirait plutôt :

else
aa=a-1
end if

mais peut-être cela n'est pas utile (c'est bien français ce que j'écrit??? ;op)

A+ wilfried ;op

 

[BerJean]

Merci Robert, Merci Wilfried pour ces corrections, vous vous doutez que je

débute et je n'arrive toujours pas à aller chercher les valeurs des variables

abcd sur ma feuille1 pour les traiter et replacer les valeurs aa ab ac ad sur

mon tableau.

Si vous pouviez m'aider . . .

BerJean

 

[Wilfried]

Re

Pour affecter une valeur contenue dans une cellule à une variable:

a=range("A1").value
pour affecter une variable à une cellule
range("A2").formula=aa
etc....

Si tu as des cas concret mets les sur les post et nous te renseignerons avec plaisirs.

A+ Wilfried ;op

 

[BerJean]

Merci Wilfried,

Je vais travailler là dessus si je n'y arrive pas, j'appellerai au secours.

Encore Merci à vous tous

berjean