Multiplier toutes les valeurs par un nombre, Excel VBA

Sub ajouternombre() 
Dim plagecell As Range
Dim i As Integer
i = InputBox("Entrer les nombre à multiple", "Entrée necessaire")
For Each plagecell In Selection
If WorksheetFunction.IsNumber(plagecell) Then
plagecell.Value = plagecell + i
Else
End I f
Next plagecell
End Sub

Imaginons que vous ayez une liste de nombres et que vous souhaitiez multiplier tous les nombres par un particulier. Pour utiliser ce code : sélectionnez cette plage de cellules et exécutez ce code. Il vous demandera d’abord le nombre avec lequel vous souhaitez multiplier, puis multipliera instantanément tous les nombres avec lui.

S’abonner
Notifier de
0 Commentaires
le plus ancien
le plus récent le plus populaire
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x