Quelqu'un pourrait il m'expliquer comment , en vba, coller
dynamiquement une formule dans une cellule?
Des qu'une entree est validee en colonne A, je voudrais coller en
colonne C et E de la meme ligne, respectivement, les formules de C1 et
E1.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonsoir. Essaie :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 Or Target.Count > 1 Then Exit Sub Cells(Target.Row, 3).Formula = [C1].Formula Cells(Target.Row, 5).Formula = [E1].Formula End Sub
Cordialement. Daniel "Pierre.M" a écrit dans le message de news: 4489e3b8$0$876$
Bonsoir,
Quelqu'un pourrait il m'expliquer comment , en vba, coller dynamiquement une formule dans une cellule? Des qu'une entree est validee en colonne A, je voudrais coller en colonne C et E de la meme ligne, respectivement, les formules de C1 et E1.
Merci d'avance a tous.
Pierre
Bonsoir.
Essaie :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row, 3).Formula = [C1].Formula
Cells(Target.Row, 5).Formula = [E1].Formula
End Sub
Cordialement.
Daniel
"Pierre.M" <prenom.mulot@wanadoo.fr> a écrit dans le message de news:
4489e3b8$0$876$ba4acef3@news.orange.fr...
Bonsoir,
Quelqu'un pourrait il m'expliquer comment , en vba, coller dynamiquement
une formule dans une cellule?
Des qu'une entree est validee en colonne A, je voudrais coller en colonne
C et E de la meme ligne, respectivement, les formules de C1 et E1.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 Or Target.Count > 1 Then Exit Sub Cells(Target.Row, 3).Formula = [C1].Formula Cells(Target.Row, 5).Formula = [E1].Formula End Sub
Cordialement. Daniel "Pierre.M" a écrit dans le message de news: 4489e3b8$0$876$
Bonsoir,
Quelqu'un pourrait il m'expliquer comment , en vba, coller dynamiquement une formule dans une cellule? Des qu'une entree est validee en colonne A, je voudrais coller en colonne C et E de la meme ligne, respectivement, les formules de C1 et E1.
Merci d'avance a tous.
Pierre
Pierre.M
Merci Daniel, ca fonctionne exactement comme je voulais. Bon week-end.
Pierre
On 2006-06-09 23:31:04 +0200, "Daniel" said:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 Or Target.Count > 1 Then Exit Sub Cells(Target.Row, 3).Formula = [C1].Formula Cells(Target.Row, 5).Formula = [E1].Formula End Sub
Merci Daniel, ca fonctionne exactement comme je voulais.
Bon week-end.
Pierre
On 2006-06-09 23:31:04 +0200, "Daniel" <dZZZcolardelle@free.fr> said:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Cells(Target.Row, 3).Formula = [C1].Formula
Cells(Target.Row, 5).Formula = [E1].Formula
End Sub
Merci Daniel, ca fonctionne exactement comme je voulais. Bon week-end.
Pierre
On 2006-06-09 23:31:04 +0200, "Daniel" said:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 Or Target.Count > 1 Then Exit Sub Cells(Target.Row, 3).Formula = [C1].Formula Cells(Target.Row, 5).Formula = [E1].Formula End Sub