savoir ce qu'il se trouve dans mon combobox

Question

Bonjour,

voici mes lignes de code ceci fonctionne très bien.
Ces lignes me permettent de récupérer tous les entités qui se trouvent dans la colonne D.
Private Sub UserForm_Initialize()

Dim i As Integer

For i = 1 To Sheets(1).Range("D65536").End(xlUp).Row
  ComboBox1 = Sheets(1).Range("D" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets(1).Range("D" & i)
Next i

End Sub


Mais maintenant j'aimerai savoir si il était possible de récupérer ces entités et les mettre dans des variables, car il faut que je fasse par la suite des conditions.

si il ya cette entité alors...

J'espere que vous allez pouvoir m'éclairer sur ce sujet Merciii d'avance.

SebSemos · Answer

Salut

Dim variable as string

variable = Sheets(1).Range("D & i).value
Sa fait l'affaire ?

_______________________
Imports System.Thinking
'La vie Roxxx un max à qui s'en donne la peine

maxxx08 · Answer

Rien ne s'affiche dans le msgbox donc je ne pense pas que ta solution marche

Dim var1 As String
var1 = Sheets(1).Range("D" & i).Value
MsgBox var1

SebSemos · Answer

si tu as copier ton code, il manque les parenthèse de la message box
MsgBox(var1)

sinon essai avec la fonction Cells au lieu de Range


_______________________
Imports System.Thinking
'La vie Roxxx un max à qui s'en donne la peine

Savoir ce qu'il se trouve dans mon combobox

3 réponses

Votre réponse

Discussions similaires