Discussion :

[Elijah37]

Bonjour,

Je souhaiterais que tout les objets qui commencent par "trait" disparaissent dans mon formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Do While i < 1000
       If ("trait" & i) <> Null Then
            DeleteControl "Formulaire", "trait" & i
       End If
       i = i + 1
Loop

Quel test basique pourrait être fait (vu que ça , ça marche pas)

[electrosat03]

Salut,

Voici un code qui permet de sélectionner tout les controles qui ont Trait écrit dans la propriété Remarque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    'Mettre tous les controles qui ont 'Trait ' en remarque en non visible
    Dim Ctl As Control
    For Each Ctl In Forms.Nom Formulaire
        If Ctl.Tag = "Trait " Then
            Ctl.Visible = False
        End If
    Next Ctl

Donc, pour toi, place Trait en remarque

[Elijah37]

Oups, je reprends. Je veux pas les mettre invisible, je veux les supprimer ^^ mais ça peux servir pareil. C'est juste que je ne connais pas la commande pour changer les remarques ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Dim Ctl As Control
    For Each Ctl In Forms!GraphiqueCarTaille
        If Ctl.Tag = "Trait" Then
            DeleteControl "GraphiqueCarTaille", Ctl.Name
            MsgBox "supprimé"
        End If
    Next Ctl

Ça marche presque, mais on dirait qu'il m'en supprime que la moitié !

En faisant 3 fois de suite la procédure il arrive enfin a tout virer !

[electrosat03]

En fait, je pense que si la remarque est par ex: Traitement, il ne supprimera pas le contrôle.

Il faudrait donc que tu ne prennes que les 5 premier caractères de la remarque.

Remarques se change en mode création dans l'onglet Autre

Voilà

A+

[Domi2]

Bonsoir,

Il y'a eu récemment une discussion sur le sujet...

Le fait de devoir répéter la procédure de suppression semble lié au fait qu'on ne peut pas supprimer un contrôle qui a le focus...

Domi2