[OK]Problème de macro

[alain85]

Bjr je n'arrive pas à écrire une macro, je souhaite écrire une macro en visuel basic qui me permet d'activé une cellule par rapport à la valeur d'une autre cellule exemple en A1 j'ai la valeur 32, en lancant la macro il faut que la cellule A220 soit activer (soit la valeur 32-10 = 22*10) donc A220. Quelqu'un peut-il résoudre mon problème merci d'avance

[Nadine]

bonsoir

Sub yo_man()
Dim x As Variant

If Range("A1").Value > 10 Then
x = (Range("A1").Value - 10) * 10

ActiveCell.Offset = Range("A" & x).Select
ActiveCell.ClearContents
End If

End Sub

<B>ou

2ème option :</B>

Sub yo_man()

Dim x As Variant

If ActiveCell.Value <> 0 Then
x = (ActiveCell.Value - 10) * 10
ActiveCell.Offset(x, 0).Select
Else: MsgBox "vastyfèrbouler"
End If

End Sub

[alain85]

Bjr
Merci la première solution fonctione
A+

[alain85]

Bjr
Merci la première solution fonctionne
A+ <IMG SRC="/images/smiles/regular_smile46.gif">

[Invité]

Sub yo_man()

Dim x As Variant

On Error GoTo a

If ActiveCell.Value <> 0 Then
x = (ActiveCell.Value - 10) * 10
ActiveCell.Offset(x, 0).Select
Else: MsgBox "vastyfèrbouler"
Exit Sub

a: MsgBox "la valeur est trop petite"

End If

End Sub

[philou]

Salut,

<IMG SRC="/images/smiles/thumbs_up46.gif"> <IMG SRC="/images/smiles/thumbs_up46.gif"> <IMG SRC="/images/smiles/thumbs_up46.gif"> Nadine !!!

@+