Formule "dynamique"

Le
Michel69
Bonjour à toutes et à tous,
Sur une feuille BDD j'ai des lignes remplies de Col A2 à Col Nxxx.
En col O3 j'ai une formules du style :
=SI(ET($H3="m";$I3="réalisée";$J3="x";$K3="x");Param!$B$7;"").
En col P3 j'ai une formule du style :
=SI(ET($H3="FN";$I3="réalisée";$J3="x";$K3="x");Param!$B$4;"")
Quelle serait la syntaxe VBA (dans Worksheet_change peut-être ?) pour qu'à
chaque enregistrement cette formule s'applique automatiquement sur la ligne
ou se situe l'enreg ?
Merci d'avance
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #16764731
Bonjour.
Essaie (la macro se déclenche en cas de saisie en colonne A) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "O").FormulaR1C1 =
"=IF(AND(RC8=""m"",RC9=""réalisée"",RC10=""x"",RC11=""x""),Param!R7C2,"""")"
Cells(Target.Row, "P").FormulaR1C1 =
"=IF(AND(RC8=""FN"",RC9=""réalisée"",RC10=""x"",RC11=""x""),Param!R4C2,"""")"
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"Michel69" news:
Bonjour à toutes et à tous,
Sur une feuille BDD j'ai des lignes remplies de Col A2 à Col Nxxx.
En col O3 j'ai une formules du style :
=SI(ET($H3="m";$I3="réalisée";$J3="x";$K3="x");Param!$B$7;"").
En col P3 j'ai une formule du style :
=SI(ET($H3="FN";$I3="réalisée";$J3="x";$K3="x");Param!$B$4;"")
Quelle serait la syntaxe VBA (dans Worksheet_change peut-être ?) pour qu'à
chaque enregistrement cette formule s'applique automatiquement sur la
ligne
ou se situe l'enreg ?
Merci d'avance
Michel


Michel69
Le #16764711
Bonjour Daniel
Un grand merci pour ta réponse, C'est génial.
Michel

"Daniel.C" a écrit :

Bonjour.
Essaie (la macro se déclenche en cas de saisie en colonne A) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "O").FormulaR1C1 =
"=IF(AND(RC8=""m"",RC9=""réalisée"",RC10=""x"",RC11=""x""),Param!R7C2,"""")"
Cells(Target.Row, "P").FormulaR1C1 =
"=IF(AND(RC8=""FN"",RC9=""réalisée"",RC10=""x"",RC11=""x""),Param!R4C2,"""")"
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"Michel69" news:
> Bonjour à toutes et à tous,
> Sur une feuille BDD j'ai des lignes remplies de Col A2 à Col Nxxx.
> En col O3 j'ai une formules du style :
> =SI(ET($H3="m";$I3="réalisée";$J3="x";$K3="x");Param!$B$7;"").
> En col P3 j'ai une formule du style :
> =SI(ET($H3="FN";$I3="réalisée";$J3="x";$K3="x");Param!$B$4;"")
> Quelle serait la syntaxe VBA (dans Worksheet_change peut-être ?) pour qu'à
> chaque enregistrement cette formule s'applique automatiquement sur la
> ligne
> ou se situe l'enreg ?
> Merci d'avance
> Michel





Publicité
Poster une réponse
Anonyme