valeur d'une cellule

[kromi]

Bonjour,

Je voudrais qu'une cellule se multipliplie automatiquement par 19
Comment faire?

Lorsque je tape 2 dans ma cellule je voudrais que cela fasse automatiquement 38

Merci

 

[selecteur]

Bonjour,

A mon avis si tu veux taper 2 ET obtenir 38 dans la même cellule ce n'est pas possible...mais bon avec excel je me méfie !

Je ne demande qu'à voir.


Selecteur.

 

[dg62]

Bonjour Selecteur, Kromi



une petite macro à lancer sur une sélection

Sub multiplie()

Dim cel As Range
For Each cel In Selection

cel.Value = cel * 19
Next cel
End Sub

 

[Minick]

Salut,

Tu peux egalement essayer avec les evenementielles sur la feuille.
Dans le petit exemple joint il faut que tu nommes la plage de cellule
qui doit etre multipliée par 19 comme ceci: 'Multiplier'
et des que tu entreras un nombre dans la plage 'Multiplier' il sera multiplié par 19

Dim DisableChange As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    If DisableChange = False Then
        If IsNumeric(Target) And Not Intersect(Target, Range('Multiplier'Â'Â')) Is Nothing Then
            DisableChange = True
            Target = Target * 19
        End If
    Else
        DisableChange = False
    End If
End Sub

@+ Minick

Message édité par: Minick, à: 26/04/2005 17:52

 

[Abel]

bonjour kromi,

Essaie l'exemple ci-joint et dis nous si cela te convient.
Le code est sûrement optimisable.

En espérant que cela te dépanne.

Abel

[file name=Exemple_kromi.zip size=8613]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_kromi.zip[/file]

 

[Abel]

Re,

Oups !

Pardon dg62 et Minick. Pas rafraichi.

Abel.

 

[Luki]

Bonsoir le fil, Kromi,

Il y a eu un sujet dans le même genre, il y a peu:

Lien supprimé

A +