MACRO : nom de colonne dans formule Fermé

Question

Bonjour,

Voici ma question : 

J'ai fait une macro qui inscrit une formule dans la colonne 3 quand une cellule de al colonne 2 est remplie :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Target.Column = 2 Then
    
  If Target.Value <> "" Then
   Cells(Target.Row, 3).FormulaR1C1 = "=RC[-1]*RC[-2]"
  
  End If
  End If
End Sub

Mon problème est que ces colonnes changent de place dans le fichier donc, j'aurais voulu faire la meme chose mais en introduisant le nom des colonnes (exemple la colonne 1 est nommée tata, la 2 titi, la 3 toto).
De ce fait meme si mes colonnes changent de pace, les formules se feront quand meme.

Est-ce que quelqu'un peut m'aider??

Par avance, Merci.

pilas31 · Answer

Bonjour,

J'ai pris pour hypothèse de nommer respectivement "Tata" la colonne 1, "Titi" la colonne 2 et "Toto" la colonne 3. Voici la syntaxe qui doit fonctionner :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = [Titi].Column Then
If Target.Value <> "" Then
Cells(Target.Row, [Toto].Column).FormulaR1C1 = "=RC" & [Titi].Column & "*RC" & [Tata].Column
End If
End If
End Sub

Me dire si c'est OK

A+

MACRO : nom de colonne dans formule

1 réponse

Discussions similaires