="A" & (LIGNE()-1)*3+1
Bonjour Danicurr,
Bienvenue sur le site XLD !
formule en A1, à tirer vers le bas :="A" & (LIGNE()-1)*3+1
ici, tu es sur : "Autres discussions / Présentation des nouveaux membres" ; pour tes prochaines
questions Excel, ce sera mieux que tu les postes sur "Questions / Forum Excel".
soan
Merci Soan,Bonjour Danicurr,
Bienvenue sur le site XLD !
formule en A1, à tirer vers le bas :="A" & (LIGNE()-1)*3+1
ici, tu es sur : "Autres discussions / Présentation des nouveaux membres" ; pour tes prochaines
questions Excel, ce sera mieux que tu les postes sur "Questions / Forum Excel".
soan
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
Dim lg1&: lg1 = .Row: If lg1 < 4 Then Exit Sub
Dim lg2&, k1&, k2 As Byte, col%: Application.ScreenUpdating = 0
k1 = lg1 - 4: k2 = k1 Mod 3: lg2 = (k1 \ 3) + 4: col = .Column
If col < 3 Or col > 4 Then Exit Sub
If IsEmpty(.Value) Then
Cells(lg1, 5) = Empty: Cells(lg2, 7 + k2) = Empty: Exit Sub
End If
End With
If col = 3 And IsEmpty(Cells(lg1, 4)) Then Exit Sub
Dim moy%
moy = WorksheetFunction.RoundUp((Cells(lg1, 3) + Cells(lg1, 4)) / 2, 0)
Cells(lg1, 5) = moy: Cells(lg2, 7 + k2) = moy
If col = 3 Or k2 > 0 Then Exit Sub
With Cells(lg1, 1)
Cells(lg2, 6) = .Offset(1).Value
Cells(lg2, 10) = .Value
Cells(lg2, 11) = .Offset(2)
End With
End Sub
Pour tous
1 - Conformité RGPD
Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel (DCP).
Il convient d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne.
Merci Soan, ça semble bien fonctionner. Tu as une grande patience. C'est bon de se faire aider par des altruistes.@Danicurr
lis d'abord mon post précédent !
voici donc le 2ème exercice, très instructif également !
ouvre le fichier de ton post #8 ; ne te trompe pas de fichier, sinon la démo sera faussée,
du genre : « manque de pot, à la base, le ver était déjà dans le fruit ! »
sélectionne D37 ; appuie sur la touche F2, puis juste après, sur la touche Entrée
➯ oh ! encore un autre miracle ! j'sais bien qu'j'suis pas Bernadette Soubirous,
mébon, j'dois avouer qu'des fois, j'suis drôlement verni, hein ?
sélectionne D38 ; appuie sur F2 puis Entrée
sélectionne D39 ; appuie sur F2 puis Entrée
ça y'est : t'as tes 3 moyennes, et c'est plein en F15:K15.
(y'a plus qu'à faire pareil pour les 2 groupes suivants)
soan