obtenir un résultat en tapant un chiffre

[camiche]

valeur dans une cellule

Bonsoir à toutes et à tous

pour gérer des inscriptions je voudrais dans les cellules d'une colonne( par ex b1 à b100), taper un chiffre et quand je valide ce chiffre j'obtient un résultat d'une multiplication par 40
Ex si dans B2 je tape 5, quand je valide je veux obtenir 200
est-ce possible?
Merci beaucoup
Camiche

 

[Robert]

Re : obtenir un résultat en tapant un chiffre

Bonsoir Camiche, bonsoir le forum,

En pièce jointe un fichier avec une macro événementielle Change commentée.

 

[Guest]

Re : obtenir un résultat en tapant un chiffre

Bonsoir Camiche,

Tu peux mettre ces lignes dans le module de code de la feuille.
click-droit sur le nom de l'onglet-> choisir 'visualiser le code'
dans la fenêtre qui s'ouvre coller ces lignes dans le panneau de droite.

Private Sub Worksheet_Change(ByVal Target As Range)
    [COLOR=yellowgreen]'Si la cellule changée (Target) est dans la plage B1:B100[/COLOR]
    If Not Intersect(Target, Range("B1:B100")) Is Nothing Then
        [COLOR=yellowgreen]'Arrêter la gestion des évènements[/COLOR]
        Application.EnableEvents = False
       [COLOR=yellowgreen]'Si c'est une valeur numerique la multiplier par 40[/COLOR]
        If Val(Target.Text) > 0 Then Target = Target * 40
        [COLOR=yellowgreen]'rétablir la gestion des évènements[/COLOR]
        Application.EnableEvents = True
    End If
End Sub

A bientôt

[Edit] hello Robert🙂

 

[camiche]

Re : obtenir un résultat en tapant un chiffre

Merci Robert, merci Hasco c'est ce que je voulais
Camiche