Renommer des checkBox sous VBA (en continu)

Fermé

Antoine.c - 5 avril 2007 à 17:42
Antoine.c - 6 avril 2007 à 08:12

Bonjour,

Je cherche à renommer des checkbox sous VBA mais ça ne marche pas.
Je n'arrive pas à trouver l'aide adequat. J'ai trouver quelque chose dans LA FAQ VBA mais je n'ai rien compris
(ce n'est pas faute d'avoir chercher, c'est que je suis vraiment pas fort )

Voici le code que je souhaite améliorer:

Sub test()
Dim p, i As Integer
p = 1
debut:
While p < 38
i = i + 1
ConstatAnomalie.Controls("CheckBox" & i).Name = "ChB" & p
On Error GoTo GestError
p = p + 1
Wend
GestError:
If Err.Number = -2147024809 Then
test = ""
GoTo debut
Else
MsgBox Err.Number & " " & Err.Description
GoTo fin
End If
fin:
End Sub

Voilà ce que j'ai trouver sous LA FAQ VBA:

--------------------------------------
'Procédure de création des CheckBoxs à placer dans l'UserForm.
'L'UserForm doit préalablement contenir un bouton nommé CommandButton1

Option Explicit

Private Sub CommandButton1_Click()
Dim Obj As Control
Dim Cl As Classe1
Dim i As Integer

Set Collect = New Collection

For i = 1 To 3 'boucle pour la création des CheckBox
Set Obj = Me.Controls.Add("forms.Checkbox.1")
With Obj
.Name = "moncheckbox" & i
.Object.Caption = "le texte" & i
.Left = 140
.Top = 30 * i + 10
.Width = 50
.Height = 20
End With

'ajout de l'objet dans la classe
Set Cl = New Classe1
Set Cl.ChkBx = Obj
Collect.Add Cl
Next i

End Sub
'--------------------------------------

Je me sens un peu nul, mais ça fait trois plombe que je suis dessus et que je n'avance pas.

Merci, encore

A voir également:

Renommer des checkBox sous VBA (en continu)
Renommer des fichiers en masse - Guide
Renommer iphone - Guide
Comment renommer quelqu'un sur instagram - Guide
Renommer un lien hypertexte ✓ - Forum Windows
Instagram : le nom d'utilisateur est il inéchangeable ? - Forum Instagram

2 réponses

Réponse 1 / 2

Antoine.c
6 avril 2007 à 08:12

Oui c'est bien le NOM de la CheckBox que je veux changer.

Le ".Name"

C'est en fait cette ligne la qui bloque dans mon code

ConstatAnomalie.Controls("CheckBox" & i).Name = "ChB" & p

Merci

Réponse 2 / 2

epsilon17 Messages postés 83 Date d'inscription samedi 19 mars 2005 Statut Membre Dernière intervention 8 avril 2013 55
5 avril 2007 à 17:55

tu souhaite changer le nom de la chackbox ou le texte a coté?

pour le texte c'est plutot Caption

Discussions similaires

Renommer un contact sur insta

Bonjour , je voudrais savoir peut-on changer le nom d'un contact sûr Instagram ? Si oui comment fait-on ?
Merci d'avance pour vos réponses.

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

renommer un lien internet

Bonjour,

j'aimerai savoir comment renommer un lien comme par exemple celui la :

https://www.google.fr/search?client=firefox-a&rls=org.mozilla%3Afr%3Aofficial&channel=s&hl=fr&source=hp&q=exemple&meta=&btnG=Recherche+Google&gws_rd=ssl

c'est a dire que au lieu de voir http://.... vous voyer une phrase que j'aurais moi même choisi

comme dans le message de willou sur ce sujet :

https://forums.commentcamarche.net/forum/affich-15563446-pc-quad-8300#3

merci d'avance ;)

--
t'as un problème sur un jeu ? Commence par dire le nom du jeu.....

comment changer le nom d'un lien?

Bonjour,

Je souhaiterai savoir comment insérer par exemple le mot "ici" à la place de l'adresse d'un site..

Exemple : pour répondre à quelqu'un qui cherche des infos en bureautique sur https://forums.commentcamarche.net/forum/bureautique-25#ecrire, j'aimerai écrire "pour avoir une réponse à ta question, tu peux aller ICI"..., ce qui veut dire que le lien n'apparaitra plus mais bel et bien le mot "ICI"...

J'espère que vous comprendrez ma demande...

merci, bonne soirée :)

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...