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
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.C
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" a écrit dans le message de 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
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" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 4FC0DABA-1F40-43AA-B76B-B3FAA2FCD6E9@microsoft.com...
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
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" a écrit dans le message de 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
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" a écrit dans le message de 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
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" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 4FC0DABA-1F40-43AA-B76B-B3FAA2FCD6E9@microsoft.com...
> 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
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" a écrit dans le message de 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