D
David
Guest
Bonjour ,
Ci joint un programme VBA qui gére des listes dynamiquement.
Cependant à la fermeture d 'Excel ,ce dernier se plante .
Ai peut etre fait une erreur de programmation .
Sinon j'ai bien déterminer que c'est mon code qui est en cause
car le pb n'apparait pas si je ne l'active pas et ce bug se reproduit
sur plusieurs machines différentes .
Merci de votre aide .
David
Code VBA associé à ma ComboBox
Private Sub ComboBox2_Change()
Dim lig As Long
'En zone Réf-Libellé recherche 1ère ligne vide
lig = Columns(1).Find("", [A27], , , xlByRows).Row
If lig < 48 Then 'Limitation à 20 lignes
'Affectation produit choisi en colonne 1 & 2 de ligne lig.
Range(Cells([lig], 1), Cells([lig], 2)) = Range("G27:H27").Value
Else
End If
End Sub
Ci joint un programme VBA qui gére des listes dynamiquement.
Cependant à la fermeture d 'Excel ,ce dernier se plante .
Ai peut etre fait une erreur de programmation .
Sinon j'ai bien déterminer que c'est mon code qui est en cause
car le pb n'apparait pas si je ne l'active pas et ce bug se reproduit
sur plusieurs machines différentes .
Merci de votre aide .
David
Code VBA associé à ma ComboBox
Private Sub ComboBox2_Change()
Dim lig As Long
'En zone Réf-Libellé recherche 1ère ligne vide
lig = Columns(1).Find("", [A27], , , xlByRows).Row
If lig < 48 Then 'Limitation à 20 lignes
'Affectation produit choisi en colonne 1 & 2 de ligne lig.
Range(Cells([lig], 1), Cells([lig], 2)) = Range("G27:H27").Value
Else
End If
End Sub