Probleme pour selectionner une cellule

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 ...

Tu peux faire un truc comme ca:

Code:

---

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

---

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

Code:

---

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

---

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

Code:

---

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+

Bonjour à tous,

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

Code:

---

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

---

;)

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

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

Pi-être ça...

Code:

---

1 2 3 4 5

Sub test_cellule() Sheets("feuil1").Select Sheets("feuil2").Range([E5]) = Range("F12") End Sub

---

Super ca m'avance bien , le code marche sauf quand je le met dans une boucle!

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim x As Integer   For x = 12 To 24 Sheets("feuil1").Select Sheets("feuil2").Range(["G" & x]) = Range("F" & x) Next x   End Sub

---

Je dois mal écrir cet partie la : Range(["G" & x]) !!
Je suis désoler mon problème est peu etre tres simple mais je débute dans le vba merci encore de m'aider c'est vraiment sympa :ccool:

Bonjour,

En effet tu as trouvé où ça coince, les [ ] sont en trop ;)

Tu peux aussi éviter de sélectionner la feuille 1 en faisant comme ceci

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim x As Integer   For x = 12 To 24 Sheets("feuil2").Range("G" & x) = Sheets("feuil1").Range("F" & x) Next x   End Sub

---

Mais...ton dernier code ne correspond plus à ta demande initiale :aie:

Citation:

---

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.

---

Je ne vois pas le rapport entre ce problème et ta boucle qui va faire en sorte que toutes les valeurs des cellules G12 à G24 de la feuille 2 vont s'inscrire dans les cellules F12 à F24 de la feuille 1, il me semble que ce n'est pas ça que tu cherchais à faire, me trompe-je ?

Non c'est pas ca que je cherchais à faire c pour ca qu'il y avai les []

Dans mes cellules de ma feuille 1 j'ai par exemple C2 : A1 / C3 : A2 ...
C'est pour ca que j'utilise les []
Ca marche bien, dans la cellule A1 s'inscrit ce qu'il y a dans la cellule F12
grace à la cellule C2. par exemple on m'a aussi reglé le probleme pour envoyer mon resultat dans une autre page.

Code:

---

1 2 3 4 5

Sub test_cellule() Sheets("feuil1").Select Sheets("feuil2").Range([C2]) = Range("F12") End Sub

---

Ca marche bien au cas par cas, mais des que je veux m'en servir dans une boucle donc avec x qui change ca marche pas

Code:

---

1 2	Sheets("feuil2").Range(["C" & x]) = Range("F" & x)

---

La syntaxe doit etre mauvaise!
Le probleme c'est que si j'enleve mes [], il m'envoie ca dans C2 si x =2 au lieu de A1. (A1 est écri dans C2, pour ceux qui on perdu le fil de mes explication lol !! )
Voila mon souci ^^

Ok je pense avoir saisi...

Essaye comme ceci

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim x As Integer   For x = 12 To 24 Sheets("feuil2").Range(Sheets("feuil2").Range("G" & x)) = Sheets("feuil1").Range("F" & x) Next x   End Sub

---

Ca marche pas snif ! :cry:
Je vais simplifier mon souci car c'a devient pas evident de me faire comprendre je suis desoler je m'explique mal ^^
alors :
Ce code marche tres bien :

Code:

---

1 2 3 4 5

Sub test_cellule() Sheets("feuil1").Select Sheets("feuil2").Range([E5]) = Range("F12") End Sub

---

Mais des que je veux mettre un x pour remplacer ca marche plus

Code:

---

1 2 3 4 5 6

Sub test_cellule() x = 5 Sheets("feuil1").Select Sheets("feuil2").Range(["E" & x])= Range("F12") End Sub

---

Pour moi le premier code et le deuxieme sont exactement pareil mais le premier marche mais pas le deuxieme :cry: !
J'espere que mon expliquation est plus simple ^^
Merci encore de votre aide

Si si le code que je t'ai proposé avec la boucle fonctionne.

Concernant ton dernier code

Code:

---

1 2 3 4 5

Sub test_cellule() x = 5 Sheets("feuil1").Select Sheets("feuil2").Range(Sheets("feuil2").Range("E" & x)) = Range("F12") End Sub

---

Et je répète ce que je t'ai dit précédemment, il n'est pas nécessaire d'utiliser les "Select"

Code:

---

1 2 3 4

Sub test_cellule() x = 5 Sheets("feuil2").Range(Sheets("feuil2").Range("E" & x)) = Sheets("feuil1").Range("F12") End Sub

---

Et pour faire un code plus "propre"

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test_cellule() Dim x As Integer, Wsh1 As Worksheet, Wsh2 As Worksheet   Set Wsh1 = Sheets("feuil1") Set Wsh2 = Sheets("feuil2") x = 5   Wsh2.Range(Wsh2.Range("E" & x)) = Wsh1.Range("F12")   End Sub

---

;)

Salut pachi44 et le forum

Code:

---

1 2 3 4 5

Sub test_cellule() x = 5 Sheets("feuil1").Select Sheets("feuil2").Range(range("E" & x))= Range("F12") End Sub

---

Essaie ça.
[E5] est compris par excel comme le contenu de la cellule E5, mais il ne comprend pas [E & 5].
Excel fait toujours ce tu lui demandes, quelques rares fois ce que tu veux.

Les syntaxes Range("E5") et [E5] signifient la valeur de E5, mais elle n'ont pas les mêmes "propriétés".
A+

aah en lisant Gorfael, je me pose une question...c'est le contenu de la cellule E5 en feuille 1 ou en feuille 2 que tu dois lire ?

E5 de la feuille 1 =

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test_cellule() Dim x As Integer, Wsh1 As Worksheet, Wsh2 As Worksheet   Set Wsh1 = Sheets("feuil1") Set Wsh2 = Sheets("feuil2") x = 5   Wsh2.Range(Wsh1.Range("E" & x)) = Wsh1.Range("F12")   End Sub

---

E5 de la feuille 2 =

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test_cellule() Dim x As Integer, Wsh1 As Worksheet, Wsh2 As Worksheet   Set Wsh1 = Sheets("feuil1") Set Wsh2 = Sheets("feuil2") x = 5   Wsh2.Range(Wsh2.Range("E" & x)) = Wsh1.Range("F12")   End Sub

---

YEAAAAAAH !!!!!!!!!! :ccool:
Merci beaucoup tous marche maintenant !!
Un grand merci pour votre aide et pour votre patience !!
Probleme resolu ^^