Décomposer add=$C$4 en addlig=3 et addcol=4

Bonjour,

Grâce à une fonction recherche, je récupère l'adresse d'une cellule au format $A$1. J'aimerai pouvoir récupérer séparément en numérique la valeur de la ligne (addlig) et de la colonne (addcol) pour les utiliser comme ceci :

Code:

---

ActiveSheet.Cells(addlig,addcol).Value = 6

---

En faisant

Code:

---

1 2	addcol =ActiveCell.Column addlig = ActiveCell.Raw

---

ça marche sauf que la cellule active n'est pas ma cellule trouvée :cry:

2 solutions pour m'aider s'il vous plait :
Comment rendre ma cellule trouvée active avant de faire ActiveCell.Column et ActiveCell.Raw ?
ou comment écrire correctement quelque chose du genre

Code:

---

ActiveSheet.Cells(add).Value = 6

---

?

:help:

Bonjour,

Que veux-tu dire par

Citation:

---

sauf que la cellule active n'est pas ma cellule trouvée

---

Si je mets ton code

Code:

---

1 2 3

addcol = ActiveCell.Column addlig = ActiveCell.Row ActiveSheet.Cells(addlig, addcol).Value = 6

---

il met dans la cellule active la valeur "6"

En fait ma macro ouvre un classeur et trouve la cellule contenant une certaine donnée. Celle-ci se trouve en C1 (mais pas forcement d'où la fonction recherche) et récupère son adresse au format $C$1 (add=$C$1).
Ensuite je veux écrire en dessous. Pour cela il me faut les coordonnées en numérique si je veux ensuite pouvoir écrire dans C2 de la manière suivante :

Code:

---

ActiveSheet.Cells(2,3).Value = 6

---

J'utilise alors

Code:

---

1 2	addcol = ActiveCell.Column addlig = ActiveCell.Row

---

pour faire

Code:

---

ActiveSheet.Cells(addcol,addlig).Value = 6

---

.

Mais malheureusement la cellule active reste toujours C7 qui est la cellule sélectionnée par défaut lorsque le classeur s'ouvre. Et non ma cellule trouvée.
J'ai essayé de mettre Range(add).Select ou Range(add).Activate avant mais ça ne marche pas.

Pour tester, une piste

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TEST() Dim Adr As String Dim Lig As Long Dim Col As Integer   Adr = "$G$45"   Lig = Range(Adr).Row Col = Range(Adr).Column   MsgBox "L'addresse " & Adr & " correspond à:" & vbNewLine & "Ligne: " & Lig & vbNewLine & "Colonne: " & Col   End Sub

---

PS: Évites de travailler avec les Slect/ Activate/ ActiveCell et Activesheet

mercatog je t'aime :)

Donc pour écrire juste dans la cellule du dessous

Code:

---

1 2 3

addcol = ActiveCell.Column addlig = ActiveCell.Row ActiveSheet.Cells(addlig + 1, addcol).Value = 6

---

La solution adapté est la suivante :

Code:

---

1 2 3 4 5 6

'avec add l'adresse de la cellule au format $A$1 addcol= Range(add).Column 'renvoie l'adresse de la colonne en numérique addlig = Range(add).Row 'renvoie l'adresse de la ligne addlig = ligne + 1   ActiveSheet.Cells(addlig, addcol).Value = 6

---