Associer TAG des TextBox aux numéros des colonnes de la "BASE"
Fermé
Kelnouille
Messages postés
2
Date d'inscription
jeudi 27 octobre 2016
Statut
Membre
Dernière intervention
27 octobre 2016
-
27 oct. 2016 à 13:18
Kelnouille Messages postés 2 Date d'inscription jeudi 27 octobre 2016 Statut Membre Dernière intervention 27 octobre 2016 - 27 oct. 2016 à 19:02
Kelnouille Messages postés 2 Date d'inscription jeudi 27 octobre 2016 Statut Membre Dernière intervention 27 octobre 2016 - 27 oct. 2016 à 19:02
A voir également:
- Textbox tag
- Mp3 tag - Télécharger - Catalogage
- Tag scanner - Télécharger - Catalogage
- Tag vide ✓ - Forum loisirs/vie pratique
- Audio tag - Télécharger - Catalogage
- Id3 tag editor - Télécharger - Catalogage
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
27 oct. 2016 à 14:17
27 oct. 2016 à 14:17
bonjour,
si tu es débutant total, j'ai peur que....
en effet
base duvba
https://bidou.developpez.com/article/VBA/
320 textbox==> modules de classe
dans la rubrique perfectionnement
https://sinarf.developpez.com/access/vbaclass/
gestion des "controls" voir
https://excel.developpez.com/cours/?page=prog#userform
si tu es débutant total, j'ai peur que....
en effet
base duvba
https://bidou.developpez.com/article/VBA/
320 textbox==> modules de classe
dans la rubrique perfectionnement
https://sinarf.developpez.com/access/vbaclass/
gestion des "controls" voir
https://excel.developpez.com/cours/?page=prog#userform
27 oct. 2016 à 19:02
Fort de cela, j'ai essayé d'écrire quelques lignes, mon idée étant toujours de simplifier la gestion et l'organisation de mon UserForm1 devant mon grand nombre de données :
Sub Affecte_TAG_Colonnes()
Dim derCol As Long
Dim nbCol As Long
CTRL As Integer
'Trouver la dernière colonne remplie
derCol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
'Nombre de colonnes selectionnées
nbCol = derCol.Count
'Liste des colonnes selectionnées
For Each CTRL In UserForm1.Controls
'La valeur du "Tag" = la valeur de la colonne du contrôle
Tag = Val(CTRL.nbCol)
Next
End Sub
Pouvez-vous m'aider et me dire ce qui cloche et où ça cloche SVP ?