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

Problème mise à jour

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

benjisan

Guest
Bonjour à tous,

J'ai un petit problème j'ai un classeur excel dans celui-ci j'ai une sheet bon de commande vierge (nommée : Com Ini) avec un bouton qui me permet de créer autant de sheet que de bon de commande.

Maintenant je voudrais qu'il totalise la somme des bon de commande dans une sheet (nommée : Total Com)

Exemple : 3 bons de commande (Com003, Com002, Com001)
Dans la cellule C18 de Com003 = 3
Dans la cellule C18 de Com002 = 2
Dans la cellule C18 de Com002 = 1

Et je voudrais donc que dans la cellule C18 de ma sheet Total Com il indique 6 et que celle valeur soit mise à jour automatiquement si on touche à un des autres valeurs.

J'ai essayé via une formule de somme en vba mais cela ne fonctionne malheureusement pas

Pourriez-vous m'aider

Je vous joint mon fichier excel

D'avance merci
 

Pièces jointes

Trier par date Trier par votes
Re : Problème mise à jour

OK, j'ai bien trouvé la solution, mais j'ai toujours un petit problème.
Je voudrais qu'il repasse dans ma fonction calcul pour calculer la somme même si on supprime une des sheets

Encore merci à tous
 
Vote positif 0 Vote négatif
Re : Problème mise à jour

Salut,

Dans un module tu ajoutes ce code:

Code: 
Sub MiseAJour()
    Application.EnableEvents = False
   With Sheets("Total Com").Range("C18"). ClearContents
    For i = 1 To Worksheets.Count
        If Not Sheets(i).Name = "Total Com" Then
            With Sheets("Total Com").Range("C18")
                .Value = .Value + Sheets(i).Range("C18").Value
            End With
        End If
    Next
    Application.EnableEvents = True
End Sub

Dans le code du ThisWorkBook de ton projet:
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Sh.Name = "Total Com" Then
        If Target.Address = "$C$18" Then
            MiseAJour
        End If
    End If
End Sub

Tu peux aussi essayer d'utiliser ce code a la place du precedent qui a l'avantage d'etre plus rapide car il ne contient pas de boucle

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim NewValue As Variant
    If Not Sh.Name = "Total Com" Then
        If Target.Address = "$C$18" Then
            'on met de coté la nouvelle valeur
            NewValue = Target.Value
            Application.EnableEvents = False
            'on retourne a la valeur precedente
            Application.Undo
            With Sheets("Total Com").Range("C18")
                'on soustrait la precedente valeur et ajoute la nouvelle
                .Value = (.Value - Target.Value) + NewValue
            End With
            'on remet en place la nouvelle valeur
            Target.Value = NewValue
            Application.EnableEvents = True
        End If
    End If
End Sub

Par contre avec ce code l'addition en C18 de la feuille Total Com doit avoir été mis à jour au moins une fois à l'aide de la macro MiseAJour.

Dans tout les cas je te conseil d'avoir sur la feuille Total Com un bouton qui lance la macro MiseAJour pour te permetre d'etre sur de la valeur en C18. Car il est toujours possible qu'une des autres feuilles ai changer alors que les macros etaient desactivées.

A+ 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème mise à jour

Salut,

désolé nos postes ce sont croisés.

le code MiseAJour que je t'ai donné contenait une erreur que j'ai corrigé.

je te redonne quand meme ce code ici :

Code: 
Sub MiseAJour()
    Application.EnableEvents = False
    Sheets("Total Com").Range("C18"). ClearContents
    For i = 1 To Worksheets.Count
        If Not Sheets(i).Name = "Total Com" Then
            With Sheets("Total Com").Range("C18")
                .Value = .Value + Sheets(i).Range("C18").Value
            End With
        End If
    Next
    Application.EnableEvents = True
End Sub

Pour l'histoire de la mise à jour si une feuille est supprimée le mieux est de de compter le nombre de feuille à l'ouverture de ton fichier et de mettre le resultat quelque par dans ton fichier par exemple la feuille "Total Com" comme ceci

Code: 
Private Sub Workbook_Open()
    Worksheets("Total Com").[A1].Value = Sheets.Count
End Sub

puis de verifier à chaque activation de feuille si le nombre de feuille courant est plus petit que le nombre de feuille enregistré.

Code: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Worksheets("Total Com").[A1].Value > Sheets.Count Then
        Worksheets("Total Com").[A1].Value = Sheets.Count
        MiseAJour
    End If
End Sub

Pourquoi l'evenement Workbook_SheetActivate ? et bien a chaque fois qu'une feuille est supprimée une autre feuille sera automatiquement activée d'ou l'interet de l'utilisation de cet evenement.

A+ 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème mise à jour

Bonsoir Benjisan, bonsoir Bigfish,

Une solution possible en rajoutant 2 feuilles "Debut" et "Fin" qui seront masquées et en utilisant en C18 de "Total Com" une formule 3D:

Code: 
=SOMME(Debut:Fin!C18)

Modifs à faire dans la macro:

Code: 
Private Sub cmd_onglet_Click()
Dim nbonglet, ind_onglet As Integer
Dim nom_onglet As String
Dim nb_nouv_onglet, val_prec_onglet
[COLOR=navy]Sheets("fin").Visible = True[/COLOR]
    nbonglet = Sheets.Count
    'nom_onglet = Sheets(nbonglet).Name
    ind_onglet = Sheets("Com ini").Index
    
    [COLOR=navy]nb_nouv_onglet = (nbonglet - ind_onglet) - 1[/COLOR]
    
    If nb_nouv_onglet = 1 Then
    
        nb_nouv_onglet = Format(nb_nouv_onglet, "000")
        
    Else
        [COLOR=navy]nom_onglet = Sheets(ind_onglet + 2).Name[/COLOR]
        val_prec_onglet = Right(nom_onglet, 3) + 1
        nb_nouv_onglet = Format(val_prec_onglet, "000")
    End If
    
    [COLOR=navy]Sheets("Com Ini").Copy Before:=Sheets("Fin")
[/COLOR]    ActiveSheet.Name = "Com" & nb_nouv_onglet
    Sheets("Com" & nb_nouv_onglet).Tab.ColorIndex = 4
        
    Sheets("Com" & nb_nouv_onglet).cmd_onglet.Visible = False
    [COLOR=navy]Sheets("fin").Visible = False[/COLOR]
        
End Sub

De cette façon, les nouvelles feuilles seront toujours entre "Debut" et "Fin" et la formule restera correcte quelles que soient les feuilles supprimées.

@+

Gael
 
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

  • Question Question
XL 2019 Problème de mise à jour de la ListView
Réponses
3
Affichages
420
ARaul
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
2 K
Alamyr
A
S
  • Résolu(e)
XL 2021 "Blocage de la mise a jour d'une cellule"
Réponses
8
Affichages
552
Steph733
S
F
  • Résolu(e)
XL 2021 problème de mise a jour besoin d'aide merci
Réponses
12
Affichages
416
fanch55
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
688
Dégé59
D
M
  • Question Question
Microsoft 365 Mise à jour de données boursières
Réponses
4
Affichages
299
platypus
P
T
  • Question Question
Microsoft 365 problème de moyenne
Réponses
1
Affichages
188
wDog66
W
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
771
SAMUAL_2023
S
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
309
sylvanu
A
  • Question Question
XL 2016 Mise à jour stock pour articles avec nomenclature
Réponses
5
Affichages
369
vgendron
E
  • Résolu(e)
XL 2019 Problème de somme en vba
Réponses
7
Affichages
400
Electronull
E
G
  • Question Question
XL 2016 Formule INDEX EQUIV retourne #Ref
Réponses
3
Affichages
311
gaelle56
G
B
  • Question Question
Mise à jour d’un tableau
Réponses
8
Affichages
623
belhoucine dine
B
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
332
chris
C
  • Résolu(e)
Microsoft 365 Calcul vitesse course à pieds
Réponses
2
Affichages
235
Chris5633
C
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
328
Nico Gre
N
F
  • Question Question
XL pour MAC Mise en forme conditionnelle
Réponses
6
Affichages
346
flea
F
  • Question Question
XL 2021 Mise à jour d'un tableau depuis une feuille Excel
Réponses
5
Affichages
405
thunder23
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
848
bruno lemaire
B
F
Procédure de mise à jour et copie de plages de données
Réponses
5
Affichages
172
Cléa
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…