Ajout d'une macro incrémentation dans une autre macro

Question

Je souhaiterais créer une macro qui me permettrait de désactiver toutes les cases à cocher sélectionnées ET qui me permettrait d'incrémenter mon numéro de facture. J'ai réussi à coder chaque partie séparément mais dès que je veux les combiner, l'incrémentation ne se fait pas. Voici le code saisi pour les cases à cocher d'une part : et le code pour l'incrémentation d'autre part : Je précise que j'utilise une version d'EXCEL pour MAC. Pouvez-vous m'aider ? Cordialement, Nady...

MFerrand · Accepted Answer

Bizarre que cela fasse référence à la classe CheckBox ! (Il ne s'agit pas d'ActiveX).

Essaie de modifier la procédure ainsi :

Sub Nouvellesaisiefacture()
    Dim i%, ws As Worksheet
    Set ws = Worksheets("Saisie Factures")
    For i = 7 To 30
        ws.Shapes("Check Box " & i).ControlFormat.Value = xlOff
    Next i
    ws.Range("J2") = ws.Range("J2") + 1
End Sub

Difficile de déboguer une erreur quand elle ne se produit pas !

Autre solution à essayer (qui utilise les collections de ces objets qui ne sont plus documentées depuis VBA5) :

Sub Nouvellesaisiefacture()
    Dim i%
    With Worksheets("Saisie Factures")
        For i = 1 To .CheckBoxes.Count
            .CheckBoxes(i).Value = xlOff
        Next i
        .Range("J2") = .Range("J2") + 1
    End With
End Sub

Je précise que tout ce que je propose fonctionne chez moi sur ton fichier !

Pour le moment je n'ai pas d'autre idée...

jpbt84 · Answer

Comme toujours, sans fichier, rarement de l'aide, surtout avec du VBA !!!...

AMIR · Answer

Je pense que vous vouliez dire Je souhaiterais créer une macro qui me permettrait de décocher toutes les cases à cocher déjà coché Tous simplement : décocher toutes les cases à cocher et a la suite incrémenter le numéro de facture. essayer ca Sub Nouvellesaisiefacture() 'L’Incrémentation et le décochage Dim ChkBx Dim num As Integer Dim counter As Integer Dim S_F As Worksheet, F_C As Worksheet Set S_F = Worksheets("Saisie Factures") Set F_C = Worksheets("Facture client") For Each ChkBx In S_F.CheckBoxes ChkBx.Value = False Next S_F.Range("J2") = S_F.Range("J2") + 1 counter = S_F.Range("J2") F_C.Range("E8").Value = S_F.Range("I2").Value &amp; Format(counter, "0000") End Sub Remarque : Range ("J2") sur la feuille de " Saisie Factures " doit être en format numérique personnalisé Et pout le Range ("E8") sur la feuille de "Facture client" vous pouvez le remplacer par un autre proche comme Range ("B8") Si votre question est résolut SVP changer le titre de : Ajout d'une macro incrémentation dans une autre macro a : macro pour incrémenter un chiffre et décocher une case à cocher...

AMIR · Answer

Je pense que vous avez bien integre le code svp envoyer moi un extrait de ton fichier avec le code integre...

MFerrand · Answer

Pour désélectionner tes cases à cocher : Sub Nouvellesaisiefacture() Dim i% With Worksheets("Saisie Factures") For i = 7 To 30 .Shapes("Check Box " &amp; i).ControlFormat.Value = xlOff Next i End With End Sub (Pas vu la suite encore) Cordialement. Pour incrémenter, suffit de +1 ! D'où : Sub Nouvellesaisiefacture() Dim i% With Worksheets("Saisie Factures") For i = 7 To 30 .Shapes("Check Box " &amp; i).ControlFormat.Value = xlOff Next i .Range("J2") = Range("J2") + 1 End With End Sub Je ne vois pas l'utilisation de E8 !? Donc... NB-Pour un code VBA correct, supprimer tout Select qui ne fait que ralentir l'exécution, et indenter correctement le code... Cordialement...

MFerrand · Answer

Fonctionne parfaitement ! Sans rien modifier et sans erreur ! Quelle erreur ? Et je ne vois pas quelle incompatibilité il pourrait y avoir avec MAC...

AMIR · Answer

1- Quel version vous utilisez anglais ou français 2- les noms des Case à cocher sont en anglais ou français français Case à cocher anglais Check Box...

MFerrand · Answer

Pour les contrôles de formulaire, les noms anglais ou français fonctionnent en principe aussi bien sur une version FR mais j'ai déjà pu noter que les noms anglais sont plus sûrs.....

AMIR · Answer

Je te remercie, remarque reçus...

MFerrand · Answer

J'ai eu une fois une erreur pour laquelle je ne voyais pas d'explication et je n'ai pu la faire disparaître qu'en passant le nom du contrôle en anglais... Et tu as peut-être remarqué que lorsque tu cliques droit sur un, dans la zone Nom, le nom apparaît d'abord en anglais avant de passer en français. Dans les premières versions, Microsoft offrait la possibilité de coder en VBA en français mais il y avait parfois des commandes instables... Lorsque cette possibilité a été abandonnée, une traduction automatique de code écrit antérieurement en français vers l'anglais était offerte, mais plus d'une fois sur deux les macros ne fonctionnaient plus et il fallait revoir entièrement le code... Mais là le problème me semblerait reposer plutôt sur des réactions différentes entre PC et MAC (?). Je n'ai cependant pas encore vu répertorier des problèmes sur MAC avec des contrôles de formulaires (alors qu'il y en a avec des ActiveX). Mais peut-être que ton idée de départ de basculer les noms en français pourrait régler le problème sur MAC !? Cela peut être essayé ! Cordialement...

MFerrand · Answer

Moi non plus donc ! J'avais pensé aux possibilités de problèmes lié au MAC, mais je n'en ai pas encore vu répertoriés sur ce type de contrôles... Si je vois quelque chose en circulant... Et refais passer l'info si tu trouves, il est utile de savoir à quoi s'en tenir dans les incompatibilités... Bonne soirée...