Aide : Nouvel onglet = une case à cocher, Checkbox (pour masquer ou non)

Bonjour,

Je suis entrain de réaliser un code où lorsque j'appuie, sur ma page "Accueil", sur le bouton "Lancement test", un onglet s'ouvre avec des résultats de tests.

Sur cette même page "Accueil" à chaque activation de "Lancement test" une ligne se crée avec des informations sur le test : date heure, frequence max, frequence min, lien du nouvel onglet etc ....

J'ai besoin de votre aide car j'aimerais que lorsque que je lance "Lancement test", une case à cocher se mette sur la nouvelle ligne du nouveau test, juste à droite de Freq Max sur l'image. Lorsque que j'appuie sur cette case à cocher, l'onglet qui est lié se masque ou pas. Je sais créer une case à cocher mais je ne saurais pas où l'insérer pour qu'elle se mette à chaque test et qu'elle soit sur la ligne à chaque fois

Je ne peux pas vous partager l'entièreté de mon code, il est interne à mon entreprise et, il nécessite un analyseur de spectre mais votre aide serait géniale. Je vous partage les deux codes, celui qui ajoute une feuille et celui du lancement de test

MA DEMANDE :

Code pour insérer une case à cocher lors de chaque lancement de test et pouvoir manquer l'onglet référent de la case

Ajouter une feuille :

Sub AjoutdeFeuille()

'Call incrementer
Dim Num As Integer, Cellule As Range
Dim derLigne As Long
Dim fichier As Workbook
Dim onglet As Worksheet
Dim derniere_ligne As Long
Set fichier = ActiveWorkbook
Set onglet = fichier.Worksheets(1)
derniere_ligne = onglet.Cells(Rows.count, 1).End(xlUp).Row + 1

     Num = Application.Max(Columns("B")) + 1
    Set Cellule = Columns("B").Find("", Range("B10"))
     Cellule = Num
derLigne = Sheets("Accueil").Range("A65536").End(xlUp).Row + 1
Sheets.Add After:=Sheets(Sheets.count)
ActiveSheet.Name = "Test" & Num
'Worksheets("Data").Range("A13:B473").Copy _
'Destination:=ActiveCell.FormulaR1C1.Range("A4:C464")
Sheets("Accueil").Activate
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & derLigne), address:="", SubAddress:= _
        "'Test" & Num & "'!A1", TextToDisplay:="'Test" & Num

End Sub

Lancement test =

Sub Test()

'Dim freqMax, freqMin, freqSpan, freqC, atten, RBW, VBW, sweepTime, step, preAmp, reflvl As Variant
Dim maxhold, minhold As Variant
Dim Message, Left As Integer
Dim dernligne As Long
'Dim Feuille As Worksheet
'Set Feuille = Sheets("Temp")
'Feuille.Activate
'Dim wb As Workbook
Dim fichier As String
Dim I, j, colonne As Integer
Dim tableau() As String
Dim choix As String
'choix =
'MsgBox (vbOKCancel)
'MsgBox ("Debut de l'acquisiton" & vbOKCancel)
'If choix = vbOK Then

Call OpenConnexion

                                    'Debut Acquisiton
                                    'Appel des fonctions
'Call infogen

Call ajoutinfos

Call AjoutdeFeuille

Je reconnais que j'ai pu mal expliquer ou qu'il manque peut être des infos

Bonjour, personne ?

CheckBox c'est un jeu d'enfant vu certains sujets ici pourtant

Bonjour,

Du coup si c'est un tel jeu d'enfant et que tu as vu plein de sujets ici, peut-être qu'une toute petite recherche t'aurait permis de tomber sur quelque chose du genre ?

Sub CreationCaseACocher()
'
' Macro par Mytå
'
Dim chk As CheckBox

Set chk = ActiveSheet.CheckBoxes.Add(30, 69, 0, 0)

  With chk
    .Text = ""
    .Value = xlOff
    .ShapeRange.Left = ActiveCell.Left
    .ShapeRange.Top = ActiveCell.Top
  End With

End Sub

Merci pour ce retour JoyeuxNoel,

En effet je suis bien tombé sur ce post, mais ce n'est pas le sujet de ma demande ^^ ca me permet uniquement de créer une CheckBox, ce dont je peux trouver sur 50 forums.

Lorsque je lance un test, j'ai une ligne qui s'affiche avec un "récapitulatif" de mon test comme sur l'image de mon topic ;) et ma demande porte à afficher lors de chaque nouvelle ligne, une Checkbox

AlexisMgn a écrit :

Merci pour ce retour JoyeuxNoel,

En effet je suis bien tombé sur ce post, mais ce n'est pas le sujet de ma demande ^^ ca me permet uniquement de créer une CheckBox, ce dont je peux trouver sur 50 forums.

Lorsque je lance un test, j'ai une ligne qui s'affiche avec un "récapitulatif" de mon test comme sur l'image de mon topic ;) et ma demande porte à afficher lors de chaque nouvelle ligne, une Checkbox

Ah ?

Je croyais que :

    .ShapeRange.Left = ActiveCell.Left
    .ShapeRange.Top = ActiveCell.Top

permettait de positionner la checkbox créée là où tu souhaites ... Mais peut-être fais-je fausse route ?

À partir du moment où tu sais créer des checkbox et où tu sais les positionner où tu veux (ouais, parce qu'en fait pour de vrai les 2 lignes de code au-dessus permettent de placer la checkbox où tu veux), que reste-t-il comme souci ?

À noter que le choix des checkbox n'est peut-être pas l'idéal dans ce contexte, d'ailleurs ... edit : quoi que !

Bonjour JoyeuxNoel, merci pour votre retour hier.

J'ai essayé avec vos lignes de code hier d'afficher ma checkbox sur la colonne 6 en fonction de la derniere ligne et malheureusement, je ne trouve pas

Les deux lignes :

.ShapeRange.Left = ActiveCell.Left
.ShapeRange.Top = ActiveCell.Top

M'affiche la checkbox là où j'ai sélectionné une cellule et non la derniere cellule disponible d'une colonne.

Où quand j'ai essayé de contourner la chose et jouer sur les paramètres, ça me retourne la valeur -4146

.Value = xlOff

en essayant de remplacer ActiveCell par ma commande derniere_ligne, ça me met une erreur.

Je bloque sur cette derniere partie de mon projet

Bonjour,

Sans le code que tu as mis pour tes cases à cocher, c'est dur de te répondre. Que veux-tu qu'on puisse faire avec les captures d'écran de lignes sans case à cocher qui plus est ?

Si jamais tu as bien paramétré ta variable, tu peux essayer quelque chose comme ceci, j'imagine ...

.ShapeRange.Left = range("F" & derniere_ligne).Left
.ShapeRange.Top = range("F" & derniere_ligne).Top

Merci beaucoup !

A trop vouloir rendre la chose complexe je trouvais pas, merci beaucoup pour votre aide qui va grandement me servir, ça fonctionne comme je le souhaitais

AlexisMgn a écrit :

En effet je suis bien tombé sur ce post, mais ce n'est pas le sujet de ma demande ^^ ca me permet uniquement de créer une CheckBox, ce dont je peux trouver sur 50 forums.

Lorsque je lance un test, j'ai une ligne qui s'affiche avec un "récapitulatif" de mon test comme sur l'image de mon topic ;) et ma demande porte à afficher lors de chaque nouvelle ligne, une Checkbox

Comme quoi ....

En tout cas,