Vbascript definir variable pour du code
Fermé
Bonjour,
J’ai un petit problème qui me bloque, je suis sur que c’est possible mais je n’y arrive pas. Je cherche à définir une variable que je puisse incrémenter, puis utiliser dans le code VBA.
Je défini « Var » comme variable et je cherche à l’inscrire dans un code.
Exemple: ComboBox & Var & .activate ou
nom=CheckBox & ‘‘Var’’ & .Caption ou
ConstatAnomalie.ComboBoxVar.RowSource= "ListeTypeOfRange2"
(bien sur ça ne marche pas de cette façon, c’est un exemple).
Mes contraintes sont que j’aimerais pouvoir incrémenter cette variable donc ce doit être un entier…
Pour informations j’ai une quantité affligeante de ComboBox et de CheckBox c’est pour cette raison que je souhaite les nommer ainsi « ComboBox xxx » (ou xxx est un nombre)
Si quelqu’un peut m’aider, merci d’avance
J’ai un petit problème qui me bloque, je suis sur que c’est possible mais je n’y arrive pas. Je cherche à définir une variable que je puisse incrémenter, puis utiliser dans le code VBA.
Je défini « Var » comme variable et je cherche à l’inscrire dans un code.
Exemple: ComboBox & Var & .activate ou
nom=CheckBox & ‘‘Var’’ & .Caption ou
ConstatAnomalie.ComboBoxVar.RowSource= "ListeTypeOfRange2"
(bien sur ça ne marche pas de cette façon, c’est un exemple).
Mes contraintes sont que j’aimerais pouvoir incrémenter cette variable donc ce doit être un entier…
Pour informations j’ai une quantité affligeante de ComboBox et de CheckBox c’est pour cette raison que je souhaite les nommer ainsi « ComboBox xxx » (ou xxx est un nombre)
Si quelqu’un peut m’aider, merci d’avance
A voir également:
- Vbascript definir variable pour du code
- Voici du code ascii : - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code telephone oublié - Guide
- Code gta 4 ps4 - Guide
1 réponse
Je suis désolé je crois que ma demande n’était pas clair du tout.
dsl
voici le code :
Sub CheckBox1_Click()
defaut = CheckBox1.Caption
Sheets("ORIGINAL").Activate
Range("P18").Select
ActiveCell.Value = defaut
Application.Run "'ADRNewlog & Monthly report.xls'!Specification"
ActiveWorkbook.RefreshAll
ConstatAnomalie.ComboBox1.RowSource = "ListeTypeOfRange2"
End Sub
Voilà c’est une partie du code que je tape.
Définir la variable en tant que integer j’y est déjà pensé mais ça ne marche pas (enfin pas avec moi).
Comme on peut le voir dans ce code je suis à la CheckBox et ComboBox numéro 1. Et j’aimerais remplacé ce chiffre par une variable. Pour pouvoir l’incrémenter jusqu’à la N ième BOX.
Merci encore.
Dsl pour le ratage du premier message.
dsl
voici le code :
Sub CheckBox1_Click()
defaut = CheckBox1.Caption
Sheets("ORIGINAL").Activate
Range("P18").Select
ActiveCell.Value = defaut
Application.Run "'ADRNewlog & Monthly report.xls'!Specification"
ActiveWorkbook.RefreshAll
ConstatAnomalie.ComboBox1.RowSource = "ListeTypeOfRange2"
End Sub
Voilà c’est une partie du code que je tape.
Définir la variable en tant que integer j’y est déjà pensé mais ça ne marche pas (enfin pas avec moi).
Comme on peut le voir dans ce code je suis à la CheckBox et ComboBox numéro 1. Et j’aimerais remplacé ce chiffre par une variable. Pour pouvoir l’incrémenter jusqu’à la N ième BOX.
Merci encore.
Dsl pour le ratage du premier message.
