Declarer une variable

Résolu/Fermé
belba.yahya Messages postés 112 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020 - 8 janv. 2020 à 01:30
belba.yahya Messages postés 112 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020 - 8 janv. 2020 à 21:49
Bonjour
j'ai un userform avec des textbox de(1 à 13) pour afficher dans le tableau excel du range("G à S)
et ainsi de suite,alors j'ai fais un code très long exemple:
textbox1= .rabge(G)
textbox2=.range(H)
textbox3=.range(I)
etc
je veux une abréviation,ou un exemple d'une variable, car je ne suis pas professionnel au VBA.
mon fichier çi joint:

https://www.cjoint.com/c/JAiaEakFbZL

4 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 8 janv. 2020 à 07:52
Bonjour,

alors j'ai fais un code très long exemple:
Il est ou ce code exemple????
Une chose est sure, dans le fichier mis a dispo c'est impossible que ca donne quoi que ce soit!!!!

Expliquez comment ca marche!!!!!!
0
belba.yahya Messages postés 112 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020
8 janv. 2020 à 09:06
bonjour
je n'ai pas déposer le fichier dont le code est très long,j'ai juste expliqué,mais là je l'ai supprimé et j'ai expliqué ce que j'ai juste effectué,
pour mieux comprendre ce que je cherche:
mon tableau contient plusieurs textbox et plusieurs colonnes, comment déclarer un variable pour les colonnes de A à Z ou plus
et des textebox.
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
8 janv. 2020 à 17:01
Bonjour,

selon ce que j'ai compris :
Dim lig As Long, i As Long, tmp
lig = 6 ' ligne de données voulue
tmp = Sheets("Histo").[G1:S1].Offset(lig - 1).Value
For i = 1 To 13
    UserForm2.Controls("Textbox" & i).Text = tmp(1, i)
Next i

eric

0
belba.yahya Messages postés 112 Date d'inscription mercredi 2 janvier 2019 Statut Membre Dernière intervention 5 août 2020
8 janv. 2020 à 21:49
c'est ça ce que je cherche,merci infiniement cela fonctionne très bien
0