reconstituer l'adresse d'une cellule à partir d'une variable + x

suis pas tres fort en VBA mais essaie ca:
Set AdressCelluleEnCours = Range(" I " & (n° de la colonne. Ici 1) )

Bonjour,

J'essaye de "reconstituer l'adresse d'une cellule sans y arriver. Merci
d'avance pour votre aide.

- J'ai une variable "I" de type integer associée à un tableau().
Le I me donne le numero de la ligne de la feuille excel
- la colonne est toujours la colonne 1 (première colonne de la feuille
excel)

donc,

dim I as integer
dim AdressCelluleEnCours as range

J'ai essayé plein de solution différente pour avoir quelque chose qui
ressemble à ça:
Set AdressCelluleEnCours = Range(" I + (n° de la colonne. Ici 1) ")

Sans succès! Merci d'avance pour votre aide

Bonjour,

Ci-dessous un code exemple.
Il faudra renseigner les cellules A1:A10 de la feuille active
pour que la macro renvoit des réponses valides.
'*************
Sub CellProprietes()
Dim i As Long 'Un Long car Excel a 65536 lignes
Dim maCellule As Range
Dim valeur As Variant
Dim adresse As String
Dim nomPolice As String
'dim etc...
For i = 1 To 10
Set maCellule = Range(Cells(i, 1), Cells(i, 1))
valeur = maCellule
adresse = maCellule.Address
nomPolice = maCellule.Font.Name
MsgBox "valeur= " & valeur & vbCrLf & _
"de la cellule " & adresse & vbCrLf & _
"avec la police " & nomPolice & ""
Next i
End Sub
'*************

Cordialement.
--
PMO
Patrick Morange

Bonjour,

J'essaye de "reconstituer l'adresse d'une cellule sans y arriver. Merci
d'avance pour votre aide.

- J'ai une variable "I" de type integer associée à un tableau().
Le I me donne le numero de la ligne de la feuille excel
- la colonne est toujours la colonne 1 (première colonne de la feuille
excel)

donc,

dim I as integer
dim AdressCelluleEnCours as range

J'ai essayé plein de solution différente pour avoir quelque chose qui
ressemble à ça:
Set AdressCelluleEnCours = Range(" I + (n° de la colonne. Ici 1) ")

Sans succès! Merci d'avance pour votre aide

bonjour,

set AdressCelluleEnCoursÎlls(I,1)
ou
set AdressCelluleEnCours=range("A" & I)

A+

Bonjour,

J'essaye de "reconstituer l'adresse d'une cellule sans y arriver. Merci
d'avance pour votre aide.

- J'ai une variable "I" de type integer associée à un tableau().
Le I me donne le numero de la ligne de la feuille excel
- la colonne est toujours la colonne 1 (première colonne de la feuille
excel)

donc,

dim I as integer
dim AdressCelluleEnCours as range

J'ai essayé plein de solution différente pour avoir quelque chose qui
ressemble à ça:
Set AdressCelluleEnCours = Range(" I + (n° de la colonne. Ici 1) ")

Sans succès! Merci d'avance pour votre aide

Merci pour les réponses. Mais j'ai du changer l'approche de mon code et j'ai
toujours un problème similaire.

Ci dessous le code qui à pour but de récupérer dans une colonne d'une
listbox une adresse de cellule que j'ai formée précédemment selon la
methode suivante
AdressCellule = CStr(Compteur) + ", 1"

Je récupère tout ça dans un tableau que j'affiche dans la colonne (2) d'une
listbox

En double cliquant sur une ligne de la listbox, je veux sélectionner
l'adresse de la cellule correspondante
.....
CtrlListBox1.BoundColumn = 2
AdressCelluleClic = (CtrlListBox1.Value) ' je récupère l "adresse" de la
cellule, affichée par un espion sous la forme, par exemple, de "12, 1"
(avec les quotes)
et type de string/variant
' le pb
est sur la ligne suivante ou j'ai systèmatiquement une erreur malgré tous
mes essais
Range(AdressCelluleClic).Select

Merci d'avance pour toute suggestion.


"anonymousA" <anonymousA@discussions.microsoft.com> a écrit dans le message
de news: 3F6FE796-49A0-4661-874A-E59BB0188F29@microsoft.com...

bonjour,

set AdressCelluleEnCoursÎlls(I,1)
ou
set AdressCelluleEnCours=range("A" & I)

A+

Bonjour,

J'essaye de "reconstituer l'adresse d'une cellule sans y arriver. Merci
d'avance pour votre aide.

- J'ai une variable "I" de type integer associée à un tableau().
Le I me donne le numero de la ligne de la feuille excel
- la colonne est toujours la colonne 1 (première colonne de la feuille
excel)

donc,

dim I as integer
dim AdressCelluleEnCours as range

J'ai essayé plein de solution différente pour avoir quelque chose qui
ressemble à ça:
Set AdressCelluleEnCours = Range(" I + (n° de la colonne. Ici 1) ")

Sans succès! Merci d'avance pour votre aide

Bonjour.

Sub Test()
Dim I$
I = "12,1"
Cells(I).Select
End Sub

Alain CROS

"microsoft" <spectre@yahoo.fr> a écrit dans le message de news: eDTqeFuYFHA.3132@TK2MSFTNGP09.phx.gbl...
| Merci pour les réponses. Mais j'ai du changer l'approche de mon code et j'ai
| toujours un problème similaire.
|
| Ci dessous le code qui à pour but de récupérer dans une colonne d'une
| listbox une adresse de cellule que j'ai formée précédemment selon la
| methode suivante
| AdressCellule = CStr(Compteur) + ", 1"
|
| Je récupère tout ça dans un tableau que j'affiche dans la colonne (2) d'une
| listbox
|
| En double cliquant sur une ligne de la listbox, je veux sélectionner
| l'adresse de la cellule correspondante
| .....
| CtrlListBox1.BoundColumn = 2
| AdressCelluleClic = (CtrlListBox1.Value) ' je récupère l "adresse" de la
| cellule, affichée par un espion sous la forme, par exemple, de "12, 1"
| (avec les quotes)
| et type de string/variant
| ' le pb
| est sur la ligne suivante ou j'ai systèmatiquement une erreur malgré tous
| mes essais
| Range(AdressCelluleClic).Select
|
| Merci d'avance pour toute suggestion.
|