Passer au contenu principal

Comment ajouter des valeurs à plusieurs cellules dans Excel?

Si vous souhaitez ajouter une valeur à plusieurs cellules dans Excel, les méthodes suivantes vous aideront à la traiter facilement et rapidement:


flèche bleue bulle droite Ajouter de la valeur à plusieurs cellules avec VBA

L'utilisation de macros peut faciliter de nombreux traitements répétés et rendre notre travail plus facile et plus rapide. Il en va de même pour la macro suivante.

Étape 1: Sélectionnez les cellules auxquelles vous allez ajouter une valeur.

Étape 2: maintenez la touche ALT + F11 clés et il ouvre la fenêtre Microsoft Visual Basic pour Applications.

Étape 3: cliquez sur insérer > Moduleet collez le VBA suivant dans la fenêtre Module.

Sous Add2Formula ()
Ajouter 300

Pour chaque c En sélection
c.Activer
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Suivant c

End Sub

Étape 4: appuyez sur le F5 clé pour exécuter cette macro.

Notes:

1. Cette macro n'est valide que pour les cellules ne contenant aucune formule.

2. Cette macro ajoutera 300 à toutes les cellules sélectionnées. Si vous souhaitez ajouter une autre valeur, veuillez remplacer le 300 avec une autre valeur.


flèche bleue bulle droite Ajoutez de la valeur à plusieurs cellules avec Kutools for Excel

Kutools for Excel nous fournit une méthode alternative facile à utiliser, et ses outils d'exploitation peuvent nous aider à ajouter facilement de la valeur à plusieurs cellules.

Kutools for Excel comprend plus de 80 outils Excel pratiques. Essai gratuit sans limitation de 30 jours. Obtenez le maintenant.

Étape 1: Sélectionnez les cellules auxquelles vous ajouterez la même valeur.

Étape 2: cliquez sur le Kutools > Opération > Outils d’exploitation…. Voir la capture d'écran:

Étape 3: Sélectionnez le Addition dans la section Opération et entrez la valeur que vous ajouterez aux cellules sélectionnées. Voir la capture d'écran:

Étape 4: Vérifiez la Créer des formules option.

Étape 5: cliquez sur OK.

Dans les outils d'exploitation,
sélectionnez Addition, entrez 300 et cliquez sur OK.

Kutools pour Excel Outils d'exploitation prend en charge toutes sortes d'opérations mathématiques sur toutes les cellules sélectionnées ensemble:

  • Addition: plus un opérande spécifié.
  • Soustraction: soustrayez l'opérande spécifié.
  • Multiplication: chaque valeur de cellules multipliée par l'opérande.
  • Division: chaque valeur de cellule divisée par l'opérande.
  • Exponentiation: chaque valeur de cellule alimente l'opérande.
  • Arrondi: arrondissez chaque valeur de cellule aux nombres décimaux (opérande spécifié).
  • Fonction: applique une fonction à chaque valeur de cellule.
  • Personnalisé: créez une expression de type formule et appliquez-la à chaque valeur de cellule.

Article connexe

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
This comment was minimized by the moderator on the site
If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


Sub Add2Formula()
' Add a number
Dim formulae As String
Dim a_number As Double

a_number = InputBox("what number to increment")

For Each cell In Selection
cell.Activate
formulae = ActiveCell.Formula
' gets rid of formula non-essentials that could cause errors
formulae = Replace(formulae, "'", "")
formulae = Replace(formulae, "=", "")

If formulae = "" Then
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
Else
ActiveCell.Formula = "= " & formulae & "+" & a_number
End If
Next cell

End Sub


This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
This comment was minimized by the moderator on the site
sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
This comment was minimized by the moderator on the site
sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations