MACRO : nom de colonne dans formule
MILA
-
pilas31 Messages postés 1878 Statut Contributeur -
pilas31 Messages postés 1878 Statut Contributeur -
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.
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.
A voir également:
- MACRO : nom de colonne dans formule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Actiona macro - Télécharger - Divers Utilitaires
1 réponse
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 :
Me dire si c'est OK
A+
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+
