Bonjour,
Il te suffit d'essayer ceci :
Private Sub Form_Load()
donneefacture = "Chocolat"
Select Case donneefacture
Case "Chocolat"
MsgBox "choco"
Case "Café"
MsgBox "kawa"
End Select
End Sub
Pour voir que çà marche bien et que le select n'est pas mis en cause, dans ton affaire...
En conséquence c'est autre chose avec ta variable donneefacture, pardi (un espace avant ou après , la casse, une mauvaise récupération...)
Ton premier réflexe devrait être un msgbox donneefacture juste avant le select case (juste pour voir ce quu'elle contient.réellement)
Je ne connais par ailleurs rien à VBA, mais je n'aime pas les choses inutiles !
ton
Select Case donneeFacture
Case "Chocolat"
LigneExcel = 29
' Affecte les données dans les cellules de la feuille
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(LigneExcel, 4) = 1
End With
Case "Café"
LigneExcel = 29
' Affecte les données dans les cellules de la feuille
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(LigneExcel, 3) = 1
End With
End Select
veut finalement dire ceci :
Select Case donneeFacture
Case "Chocolat"
toto = 4
Case "Café"
toto = 3
End Select
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(29, 4) = 1
End With