Retrouver une cellule à partir d'une sélection Range

Bonjour,

Je cherche depuis quelque temps, mais je ne trouve rien qui m'aide à résoudre mon problème.

Je souhaite faire une macro me permettant de faire la somme d'une sélection (préalablement sélectionnée avant de lancer la macro) pour renvoyer la formule sur la colonne à gauche de la sélection et au niveau de la première ligne sélectionnée
Pour le moment j'ai le code ci-dessous mais qui me renvoi la somme à chaque ligne

Code:

---

1 2 3 4 5 6

Dim MaPlage As Range Dim MaPlage2 As String   Set MaPlage = Selection MaPlage2 = MaPlage.Address(ReferenceStyle:=xlR1C1) MaPlage.Offset(0, 1).FormulaR1C1 = "=SUM(" & MaPlage2 & ")"

---

Comment faire pour mettre dans un variable MaPlageFinale la cellule correspondant à Colonne+1 de MaPlage et 1ère ligne de MaPlage ?

Second, je souhaite effectivement avoir une formule retournée sous excel, mais est-ce qu'il y a un paramètre à renseigner pour ne pas avoir les cellules bloquées avec le $ ?

D'avance merci

Citation:

---

Envoyé par PeterPan1969

Comment faire pour mettre dans un variable MaPlageFinale la cellule correspondant à Colonne+1 de MaPlage et 1ère ligne de MaPlage ?

---

On peut faire référence à la première cellule d'une plage comme ceci :

Code:

---

MaPlage.Range("A1")

---

Ainsi, si ta plage sélectionnée va de B3 à B10, le code ci-dessus fait référence à B3.

Citation:

---

Second, je souhaite effectivement avoir une formule retournée sous excel, mais est-ce qu'il y a un paramètre à renseigner pour ne pas avoir les cellules bloquées avec le $ ?

---

En utilisant les paramètres de la propriété Address : RowAbsolute et ColumnAbsolute
Par défaut ceux-si sont True si on ne les écrit pas. Mais on peut les spécifier comme ceci :

Code:

---

Range("A1").Address(False, False)

---

En combinant ces deux réponses, on aurait quelque chose comme ceci pour répondre à ton besoin :

Code:

---

MaPlage.Range("A1").Offset(0, 1).Address(False, False, xlR1C1)

---

[En combinant ces deux réponses, on aurait quelque chose comme ceci pour répondre à ton besoin :

Code:

---

MaPlage.Range("A1").Offset(0, 1).Address(False, False, xlR1C1)

---

[/QUOTE]

Le Range("A1") ! Evidement ! Merci !

Pour la partie .Adress(False, False, xlR1C1), c'est très étrange, ça me décale complètement ma sélection

Voici le code (j'ai ajouté une plagefinale étant donné que je vais faire de la mise en page ultérieurement avec MaPlage :

Code:

---

1 2 3 4 5 6 7 8

Dim MaPlage As Range Dim MaPlage2 As String Dim MaPlageFinale As Range   Set MaPlage = Selection MaPlage2 = MaPlage.Address(Fase, False, xlR1C1) Set MaPlageFinale = MaPlage.Range("A1").Offset(0, 1) MaPlageFinale.FormulaR1C1 = "=SUM(" & MaPlage2 & ")"

---