Discussion :

[Kelaydos]

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 :

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

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

En faisant

Code :

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

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

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

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 :

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

ActiveSheet.Cells(add).Value = 6

?

[QuestVba]

Bonjour,

Que veux-tu dire par

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

Si je mets ton code

Code :

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

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

il met dans la cellule active la valeur "6"

[Kelaydos]

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 :

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

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

J'utilise alors

Code :

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

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

pour faire

Code :

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

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.

[mercatog]

Pour tester, une piste

Code :

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

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

[Kelaydos]

mercatog je t'aime

[QuestVba]

Donc pour écrire juste dans la cellule du dessous

Code :

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

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

[Kelaydos]

La solution adapté est la suivante :

Code :

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

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