Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 (resolu) Créer une private sub

chvalet

XLDnaute Junior
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
 

Pièces jointes

  • private sub-remplir automatique une cellule-v01.xlsm
    17 KB · Affichages: 20

chvalet

XLDnaute Junior
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
 

Discussions similaires

Réponses
0
Affichages
177
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…