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

Macro: Addition chiffres d'une colonne à des chiffres d'une autre colonne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fourstars10pas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fourstars10pas

Guest
Bonjour,

Je vous explique mon problème:
- J'ai une colonne "A2 à A152" contenant une liste de chiffres, les uns au dessus des autres sur une feuille de travail "Doc1"

- Dans une autre feuille de travail "Doc2"; j'ai une colonne contenant également des chiffres en "B2 à B152".


--> J'aimerai grâce à une macro additionner les chiffres de B2 à B152 de la feuille Doc2 aux chiffres contenus en A2 à A152 de la feuille Doc1.

Ainsi si en A2 (Doc1) j'ai la valeur 6 et en B2 (Doc2) la valeur 5, j'aimerai que grâce à la macro liée a un bouton, obtenir la valeur 11 en cellule A2 (Doc 1) et ainsi remplacer la valeur 6, et ce sur toute ma plage de données.

Je ne sais pas si je suis assez clair dans mes propos mais je vous remercie d'avance pour votre aide, si il vous faut plus d'informations ou des précisions, je me tiens a votre disposition.

Thomas.
 
Trier par date Trier par votes
Re : Macro: Addition chiffres d'une colonne à des chiffres d'une autre colonne

Merci c'est exactement cela, est il possible que les valeurs en B2 à B152 du Doc2 soit supprimées après avoir été additionnées avec les valeurs du Doc1?
 
Vote positif 0 Vote négatif
Re : Macro: Addition chiffres d'une colonne à des chiffres d'une autre colonne

Tu peux faire ca en ajoutant dans la boucle For la ligne suivante:

Code: 
For i = 1 To rngDoc1.Rows.Count
        rngDoc1.Item(i).Value = rngDoc1.Item(i).Value + rngDoc2.Item(i).Value        
        ' Ligne a ajouter
        rngDoc2.Item(i).Value = ""
    Next i
 
Vote positif 0 Vote négatif
Re : Macro: Addition chiffres d'une colonne à des chiffres d'une autre colonne

Cela ne supprime pas les valeurs de la colonne B2-B152 du Doc2 après l'addition? cela les met juste en couleur non?
 
Vote positif 0 Vote négatif
Re : Macro: Addition chiffres d'une colonne à des chiffres d'une autre colonne

Pas vraiment. L'instruction
Code: 
rngDoc2.Item(i).Value = ""
sert a effacer la valeur originellement presente dans la cellule i de la colonne B. Il n'y a rien qui parle de couleur dans ce code. 🙂
 
Vote positif 0 Vote négatif
Re : Macro: Addition chiffres d'une colonne à des chiffres d'une autre colonne

Rebonjour, petit problème avec le code:

Lorsque je l'applique, il me met "Runtime error 13 - Type mismatch" et lorsque je lance le débugger il met surligne cela :


Public Sub AdditionDansColonnes()

Dim wksDoc1 As Worksheet
Dim wksDoc2 As Worksheet

Dim rngDoc1 As Range
Dim rngDoc2 As Range

Dim rngCell As Range

Dim i As Long

Set wksDoc1 = ThisWorkbook.Worksheets("Doc1")
Set wksDoc2 = ThisWorkbook.Worksheets("Doc2")

Set rngDoc1 = wksDoc1.Range("A2:A152")
Set rngDoc2 = wksDoc2.Range("B2:B152")

For i = 1 To rngDoc1.Rows.Count
rngDoc1.Item(i).Value = rngDoc1.Item(i).Value + rngDoc2.Item(i).Value
rngDoc2.Item(i).Value = ""
Next i


Set rngDoc1 = Nothing
Set rngDoc2 = Nothing

Set wksDoc1 = Nothing
Set wksDoc2 = Nothing



End Sub


Pouvez vous me dire de quoi cela peut il provenir?
Merci d'avance.

Thomas
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
498
laurent950
D
  • Résolu(e)
XL 2016 macro effacer en plusieurs en fonction d'un autre cellule
Réponses
13
Affichages
298
job75
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
299
Nico Gre
N
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
357
Diane272727
D
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
276
PR.
P
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
194
sylvanu
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
290
sylvanu
A
  • Question Question
XL 2019 Additionner des cellules espacées d'une valeur constante
2
Réponses
17
Affichages
622
Astyanax
A
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
29
Affichages
2 K
TooFatBoy
J
  • Question Question
XL 2021 Macro : avoir les mois en chiffres de 1 à 12 en colonne à chaque ligne différente
Réponses
5
Affichages
553
jerome91
J
  • Résolu(e)
XL 2021 VBA - Comment ajuster la largeur d'une colonne sur une cellule qui contient des retours à la ligne
Réponses
9
Affichages
508
Phil69970
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
582
sylvanu
G
  • Résolu(e)
Microsoft 365 Colorer des cellules automatiquement
Réponses
14
Affichages
798
Gaugau
G
Y
  • Résolu(e)
XL 2016 Calculs automatique XO pour des valeurs dans un tableau
Réponses
3
Affichages
133
dysorthographie
Y
  • Question Question
Microsoft 365 Nommer des onglets (dates) à partir d'une cellule
Réponses
14
Affichages
721
fanch55
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
827
fanfan38
T
  • Question Question
Microsoft 365 Afficher des résultats d'une colonne sur une ligne
Réponses
3
Affichages
332
toto142
T
M
  • Résolu(e)
XL 2021 Automatisation de la randomisation des cellules d'une colonne
3 4 5
Réponses
61
Affichages
3 K
Dranreb
N
  • Résolu(e)
XL 2019 Macro pour copier ligne avec case à cocher liée
Réponses
12
Affichages
556
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…