XL 2010 (resolu) Créer une private sub

[chvalet]

Bonjour

Dans le fichier joint, je souhaiterais dans la feuille listing que
Tant que la colonne A n'est pas vide
et que lorsque je remplis la colonne G d'un nombre (entre 0 et 4),
qu' automatiquement la colonne H se remplisse grâce à la formule suivante =SI(Gx="";"?";SI(Gx=0;"20sec";""))

quelqu'un aurait il une idée pour construire cette private sub dans la feuille listing?

merci
Chvalet

 

[chvalet]

Re bonjour

merci Jm pour cette formation à distance.
je vais essayer de comprendre cette sub

Private Sub Worksheet_Change(ByVal Target As Range)
' la cible est une plage de cellule
' Macro permettant le calcul de la pénalité mixité

'si je ne suis pas dans la colonne G alors je quitte
If Target.Column <> 7 Then Exit Sub

'si je ne suis pas dans la ligne > 3 alors je quitte
If Target.Row < 3 Then Exit Sub

Select Case Cells(Target.Row, 7)
'si la cellule sélectionnée en colonne G est ="" alors la cellule en colonne H de la même ligne = ?
Case Is = "": Cells(Target.Row, 8) = "?"
'si la cellule sélectionnée en colonne G est =0 alors la cellule en colonne H de la même ligne = 20sec
Case 0: Cells(Target.Row, 8) = "20sec"
'si la cellule sélectionnée en colonne G est comprise entre 1 et 4 alors la cellule en colonne H de la même ligne = vide
Case 1 To 4: Cells(Target.Row, 8) = ""
End Select
End Sub

ai je bien compris la sub private ?
merci
Chvalet