Gestion de cellules avec VBA

[Nino]

Bonjour,
je découvre ce forum et j'espère y avoir les réponses à mes questions.
Je fais un tableau dynamique dont les entrées en inputbox sont les coins du tableau dans le format "A2" ou "C45" par exemple.
Je voudrais savoir comment à partir de ces input sortir les coordonnées des cellules sous la forme (i,j).
En gros,l'utilisateur entre A5 et moi,je voudrais que VBA puisse savoir que c'est aussi la cellule (1,5) et je voudrais récupérer le "1" et le "5" comme variables entières.
J'en ai besoin pour faire des calculs matriciels ensuite.
Merci de votre aide.

 

[@+Thierry]

Salut Nino

En VBA... admettons que ton user est saisi A5... et que ton inputbox selectionne cette cellule...

Une simple macro :
Sub test()
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column
MsgBox Ligne & "," & Colonne
End Sub

Message = 5, 1
NB : les rows sont avant les columns pour Cells, par exemple :

Cells(1,5).select => Sélectionnera "E1" et non PAS.. "A5"

Voilà
Bonne Soirée
@+Thierry

 

[@+Thierry]

Salut Nino

Vu que tu es semble-t'il nouveau sur le forum... Je te précise qu'il est toujours mieux de répondre ici que dans ma BAL...

Pour la compréhension voici ton message :
=====================================================
Salut Thierry
mais si mon inputbox ne selectionne pas la dite cellule???
a priori,je sai srentrer A15,mais je ne sais pas forcer input box à la
selectionner
je dis ça parce qu ej'essaie ta macro,mais ça marche pas chez moi
voilà ce que j'ai fait
Sub selectCellule()
InputBox ("Veuillez entrer un numéro de case")
Dim p As Integer
Dim q As Integer
p = ActiveCell.Row
q = AvtiveCell.Column
MsgBox "Le numéro de la ligne est" & p
MsgBox "Le numéro de la colonne est " & q
End Sub
=====================================================

Oui c'est normal que "çà marche pas" (déjà "avtivecell", VBA doit pas aimer)

Nino essaies çà :

Option Explicit
Sub selectCellule()
Dim R As Integer
Dim C As Integer
Dim IB As String
IB = InputBox("Veuillez entrer un numéro de case", "ENTER UNE ADRESSE DE CELLULE", "A5")
Range(IB).Select
R = ActiveCell.Row
C = ActiveCell.Column
MsgBox "Le numéro de la ligne est :" & R & " et le numéro de la colonne est :" & C
End Sub

Ce devrait tourner mieux
Bonne Soirée
@+Thierry

 

[Nino]

MERCI BEAUCOUP Thierry
ça marche IMPECC..