Discussion :

[PeterPan1969]

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 :

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

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

[mat955]

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 :

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

MaPlage.Range("A1")

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

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 :

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

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

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

Code :

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

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

[PeterPan1969]

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

Code :

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

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 :

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

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 & ")"