ATHE RIOVELI
XLDnaute Occasionnel
BONSOIR LE FORUM,
Grace au forum, j'ai pu avoir beaucoup de mes projets réalisés.
J'ai cru donc pouvoir adapter une macro des projets réalisés dans ce nouveau classeur.
Apparemment, j'ai mal fait mon copier coller.
Je viens donc vers vous pour m'aider à résoudre ce problème.
Il s'agit de me mettre les mentions en H13, H14, H15, .... en fonction des notes G13, G14, G15, .....
voici donc l'une des macros de l'excellent Job75 que je croyais bien adapter à ma feuille;
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2,F2]) Is Nothing Then Worksheet_Activate
Application.EnableEvents = False
With [H13].Resize(100)
.FormulaR1C1 = "=IF(ISNUMBER([G13]),IF([G13]<5,""Très faible"",IF([G13]<8,""Faible"",IF([G13]<10,""Insuffisant"",IF([@Colonne7]<12,""Passable"",IF([@Colonne7]<14,""Assez-bien"",IF([@Colonne7]<16,""Bien"",IF([G13]<18,""Très bien"",""Excellent""))))))),"""")"
Application.EnableEvents = True
End Sub
Voici ici joint le fichier modèle.
MERCI A VOUS.
A+
Grace au forum, j'ai pu avoir beaucoup de mes projets réalisés.
J'ai cru donc pouvoir adapter une macro des projets réalisés dans ce nouveau classeur.
Apparemment, j'ai mal fait mon copier coller.
Je viens donc vers vous pour m'aider à résoudre ce problème.
Il s'agit de me mettre les mentions en H13, H14, H15, .... en fonction des notes G13, G14, G15, .....
voici donc l'une des macros de l'excellent Job75 que je croyais bien adapter à ma feuille;
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2,F2]) Is Nothing Then Worksheet_Activate
Application.EnableEvents = False
With [H13].Resize(100)
.FormulaR1C1 = "=IF(ISNUMBER([G13]),IF([G13]<5,""Très faible"",IF([G13]<8,""Faible"",IF([G13]<10,""Insuffisant"",IF([@Colonne7]<12,""Passable"",IF([@Colonne7]<14,""Assez-bien"",IF([@Colonne7]<16,""Bien"",IF([G13]<18,""Très bien"",""Excellent""))))))),"""")"
Application.EnableEvents = True
End Sub
Voici ici joint le fichier modèle.
MERCI A VOUS.
A+