passer d'une cellule à une autre avec condition

[micky]

bonjour,
je sais désormais comment passer d'une cellule à une autre après avoir fait entrée

ex: pour passer de la cellule n12 à n16 directement
If Not Intersect(Target, Range("n12")) Is Nothing Then
Range("n16").Select
End If

j'aimerais savoir si on peut y rajouter une condition
exemple : passer de n12 à n16 si a1=vrai sinon passer de n12 à n19

encore merci

ps:j'apprends petit à petit mais c longg

mercii

 

[Munchkin]

Bonjour Micky

c'est ca?

If Not Intersect(Target, Range("n12")) Is Nothing Then
if a1 = "Vrai" then
Range("n16").Select
else
Range("n19").Select
end if
End If

Munchkin

 

[Munchkin]

excuse moi, c'est plutot ca

If Not Intersect(Target, Range("n12")) Is Nothing Then
if cells(1,1) = "Vrai" then
Range("n16").Select
else
Range("n19").Select
end if
End If

Munchkin

 

[Munchkin]

Mais la fil d'hier concernant ce sijet tu n'as pas répondu si ca a marché ou non

<http://www.excel-downloads.com/html/French/forum/messages/1_106891_106891.htm>

Mais bon, je vois là que tu utilise la solution, donc ca marche

pour la question d'aujourd'hui j'ai testé et ca marche aussi
Bonne chance
Munchkin

 

[micky]

excuse moi mais où est passé "a1" ??
merci

 

[micky]

oui ça a très bien marché, je te remercie, je pensais avoir répondu

 

[Munchkin]

cells(1,1) -> c'est la cellule qui est en première ligne et en première colonne
ligne / \ colonne

Voilà
Munchkin

 

[micky]

ça marche très bien, encore merci !!