Discussion :

[pachi44]

Bonjour,
Si je simplifie le probleme que j'ai :
Dans ma cellule E5 il y a écri A1
Je voudrais grace à une macro que la cellule A1 soit selectionné grace à ce qu'il y a d'ecri dans la cellule E5
Merci d'avance

Si quelqun veut bien m'aider mais désir d'autre renseignement.
Car c'est peu etre mal expliquer je donnerais plus de détail si besoin.
J'ai vraiment besoin de votre aide Merci ...

[hugues03]

Tu peux faire un truc comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test_cellule()
Range("E5").Select
 
If ActiveCell = "A1" Then
ActiveCell.Offset(-4, -4).Value = "A1"
End If
 
End Sub

[hugues03]

Désolé j'ai ecris "A1" dans la cellule A1...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Sub test_cellule()
Range("E5").Select
 
If ActiveCell <> "" Then
ActiveCell.Offset(-4, -4).Select
End If
 
End Sub

[Gorfael]

Salut pachi44, hugues03 et le forum
Pas compris la même chose que hugues03

Code :

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

1
2
3
Sub test_cellule() 
If [E5]<>"" Then range([E5]).select
End Sub

Quand je lance la macro, je sélectionne la cellule dont l'adresse est en E5. Pas de garde-fou,si tu mets autre chose en E5 (hormis adresse ou nom de cellule), il y aura une erreur.

Ça me semble un peu bizarre. Il serait peut-être plus simple d'utiliser des liens hypertexte, ou des affichages personnalisés.

À moins que tu n'expliques le but à atteindre et qu'on te propose une "vraie" solution.
A+

[fring]

Bonjour à tous,

On pourrait ajouter un garde fou dans le cas où la cellule E5 contiendrait une valeur autre qu'une adresse valide

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
On Error GoTo cacoince
Range([E5]).Select
Exit Sub
 
cacoince:
MsgBox "!!! la cellule " & [E5] & " n'existe pas !!!"
 
End Sub

[pachi44]

Merci beaucoup j'ai bien avancé grace a vous !

Il me reste une dernier souci, voila ma macro :

Sub test_cellule()
Range([E5]) = Range("F12")
End Sub

En sachant que dans la cellule E5, il y a écri A1.
Ca marche tres bien, dans la cellule A1 s'inscrit ce qu'il y a dans la cellule F12
grace à la cellule E5!

Mon problème c'est que je voudrais que mon resultat parte dans A1 mais dans la feuille 2!
J'ai essayer d'ecrir dans la cellule E5 : Feuil2!A1.
Mais ca plante.
Je vous solicite encor une fois merci d'avance

[hugues03]

Pi-être ça...

Code :

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

1
2
3
4
5
 
Sub test_cellule()
Sheets("feuil1").Select
Sheets("feuil2").Range([E5]) = Range("F12")
End Sub