Bonjour, j'ai une question concernant un code en VBA. Voilà j'ai 3 feuilles, une dans laquelle je lance mon application, une qui contient la liste des paramètres et une dans laquelle je veux que ca s'affiche. Je lance mon userform puis je voudrais qu'un élément sélectionné dans la liste des paramètres s'affiche dans la cellule A1
Voici mon code je ne vois pas pourquoi il ne se passe rien :
Private Sub BtnOK_Click()
Dim Rep%, i%
For i = 0 To ListeEnergies.ListCount - 1
If Sheets("Paramétrages").ListEnergies.Selected(i) = True Then
Sheets("Feuil8").Range("A1").Value =Sheets("Paramétrages").ListEnergies.Selected(i)
End If
Next i
end sub
Voici mon code je ne vois pas pourquoi il ne se passe rien :
Private Sub BtnOK_Click()
Dim Rep%, i%
For i = 0 To ListeEnergies.ListCount - 1
If Sheets("Paramétrages").ListEnergies.Selected(i) = True Then
Sheets("Feuil8").Range("A1").Value =Sheets("Paramétrages").ListEnergies.Selected(i)
End If
Next i
end sub