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

Ajouter la valeur d'une cellule à une autre ...

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Philippe95
  • 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
P

Philippe95

Guest
Bonjour à vous tous !

Je souhaiterais à l’aide d’une macro, ajouter les nombres inscrit dans les colonnes D et E, de la feuille 1.

A ceux déjà inscrit dans la colonne B de la feuille 2.

Les colonnes D et E, de la feuille 1, seront ensuite effacées.

Concrètement je joint un fichier d'exemple.

Oups ! il faudrait que cette valeur puisse être négative !

Merci encore une fois de votre aide toujours aussi précieuse.
Philippe
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Ajouter la valeur d'une cellule à une autre ...

Bonjour tous !
Bonjour Philippe !
HA ! ben sa alors !, je n’étais pas près de trouver … C’est un sacré beau boulot !
Je m’y mets dès que j’ai un instant calme … Je te remercie de tout cœur, du fond du petit mien …
Je me permettrais de revenir vers toi pour la cellule spécifique, …
Bonne fête national à toi et à tous tes compatriotes.
Merci …
Philippe
 
Vote positif 0 Vote négatif
Re : Ajouter la valeur d'une cellule à une autre ...

Bonjour tous !
Bonjour Philippe !
Encore un petit souci, s’il te plaît Philippe !
Lorsque j’utilise la macro, le format de la cellule cible, feuille « Achat(s) » donc est systématiquement changé.
Je souhaiterais qu’il reste au format Standard, tous du moins sans décimale.
Crois-tu cela possible ?
Merci encore.
 
Vote positif 0 Vote négatif
Re : Ajouter la valeur d'une cellule à une autre ...

Re-bonjour,

il suffit de modifier la fin du code donné au post#15 pour faire un traitement global de toutes les cellules contenant une valeur numérique

comme ceci:
Code: 
Sub Clic()
Dim cellule As Range
image = Application.Caller ' récupération du nom du logo (du numéro de la ligne sur laquelle il se trouve)
'                            si image> 1000 c'est un des 6 drapeaux présents sur la feuille

With Sheets("Achat(s)")
Select Case image
    Case "Allemandes"
        .[B1] = .[B1] + [C4] + [C3]
        .[F1] = .[F1] + [C5] + [C3]
        .[H2] = .[H2] + [C6] + [C3]
        .[R4] = .[R4] + [C7] + [C3]
        Range("C3:C7").ClearContents
        
    Case "Britaniques"
        .[D1] = .[D1] + [C9] + [C8]
        .[J1] = .[J1] + [C10] + [C8]
        .[L1] = .[L1] + [C11] + [C8]
        Range("C8:C11").ClearContents

    Case "Françaises"
        .[H1] = .[H1] + [C13] + [C12]
        .[N1] = .[N1] + [C14] + [C12]
        .[R1] = .[R1] + [C15] + [C12]
        .[B2] = .[B2] + [C16] + [C12]
        .[J2] = .[J2] + [C17] + [C12]
        .[T2] = .[T2] + [C18] + [C12]
        .[F3] = .[F3] + [C19] + [C12]
        .[H3] = .[H3] + [C20] + [C12]
        .[L3] = .[L3] + [C21] + [C12]
        .[R3] = .[R3] + [C22] + [C12]
        .[H4] = .[H4] + [C23] + [C12]
        Range("C12:C23").ClearContents
        
    Case "Japonaises"
        .[P1] = .[P1] + [C25] + [C24]
        .[P2] = .[P2] + [C26] + [C24]
        .[J3] = .[J3] + [C27] + [C24]
        .[D4] = .[D4] + [C28] + [C24]
        .[F4] = .[F4] + [C29] + [C24]
        .[J4] = .[J4] + [C30] + [C24]
        Range("C24:C30").ClearContents
        
    Case "drapeau suivant" ' <----  à renommer
    
        ' ecrire ici la procédure liée au drapeau suivant
        '
        ' et continuer pour les autre drapeaux
        
    

    Case Else
        Exit Sub
End Select
End With
' ------------ modif apportée --------------------------
For Each cellule In Sheets("Achat(s)").Range("B1:T4")
   If IsNumeric(cellule) = True Then cellule.NumberFormat = "General"
Next cellule
' ------------------------------------------------------
End Sub
à+
Philippe
 
Vote positif 0 Vote négatif
Re : Ajouter la valeur d'une cellule à une autre ...

Bonjour tous !
Bonjour Philippe !

Encore quelques précisions, s’il te plaît Philippe !

C’est vraiment impeccable, je te remercie beaucoup ! Même si j’ai du mal à saisir comment l’application calée fonctionne … ( ?)

Je pose deux questions dans le fichier, au sujet du changement de nom des images et de la procédure quand une seule cellule fait référence à plusieurs …

Merci de tout cœur !

Philippe.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Ajouter la valeur d'une cellule à une autre ...

Re-bonjour,

................ Je pose deux questions dans le fichier, au sujet du changement de nom des images et de la procédure quand une seule cellule fait référence à plusieurs …
Cliquez pour agrandir...

Les réponses aux question posées sont dans le fichier

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Ajouter la valeur d'une cellule à une autre ...

Bonjour Philippe !
et bonjour à tous ...
Merci encore, je ne saurais l'écrire suffisamment ...
Merci, merci, merci ...
Philippe
 
Vote positif 0 Vote négatif
Re : Ajouter la valeur d'une cellule à une autre ...

Bonjour Philippe !
et bonjour à tous ...
Merci encore, je ne saurais l'écrire suffisamment ...
Merci, merci, merci ...
Philippe
 
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

B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
111
berru76
B
E
  • Question Question
Microsoft 365 Règle de surbrillance d'une cellule qui dépasse une valeur selon l'intitulé d'une colonne.
Réponses
2
Affichages
248
Emeline20
E
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
204
Dudu2
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
315
patricktoulon
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
260
PRy
P
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
341
nightswan
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
642
MANU64360
M
  • Résolu(e)
XL 2019 Problème de Tri de nombres avec des points
2 3
Réponses
40
Affichages
1 K
patricktoulon
  • Résolu(e)
XL 2019 Recopier mes feuilles dans mon USF
2 3
Réponses
39
Affichages
924
Phil Du59
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
483
Yogean
Y
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
203
PR.
P
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
530
fanch55
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
  • Question Question
XL 2019 Faire référence au nom de la feuille active ( ActiveSheet )
2
Réponses
15
Affichages
452
Dranreb
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
623
chris63
C
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
651
sousou
J
  • Question Question
XL 2021 activesheet.shapes suivant la valeur d'une cellule
Réponses
5
Affichages
304
JUAN45
J
B
  • Question Question
Power BI valeur la plus forte sur 3 colonnes powerBI
Réponses
2
Affichages
481
Wayki
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
788
piga25
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
976
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…