Salut , j'ai un petit problème surement simple mais je ne trouve pas pourquoi ça ne fonctionne pas. J'essaie d'ajouter des données à la fin d'une liste avec VBA mais ça ne fonctionne pas. Mon tableau est nommée t_regul
Voila mon code
Sub ajoutREG()
'
' ajoutREG Macro
' Macro enregistrée le 2013-12-03 par STM
Dim LgLigne As Long
'Déclaration des variable
MaT = InputBox("Quel est le matricule du régulateur?")
nom = InputBox("Quel est le Nom du régulateur? EX S.Delisle")
equipe = InputBox("Quel est le numéro d'équipe du régulateur?")
LgLigne = c_ligne + 1
'Ajouter une feuille
Sheets.Add
ActiveSheet.Name = MaT
'Ajouter le régulateur à la liste des employé
Range("t_regul").Cells(lgline, 1) = MaT
Range("t_regul").Cells(lgline, 2) = nom
Range("t_regul").Cells(lgline, 3) = equipe
Voila mon code
Sub ajoutREG()
'
' ajoutREG Macro
' Macro enregistrée le 2013-12-03 par STM
Dim LgLigne As Long
'Déclaration des variable
MaT = InputBox("Quel est le matricule du régulateur?")
nom = InputBox("Quel est le Nom du régulateur? EX S.Delisle")
equipe = InputBox("Quel est le numéro d'équipe du régulateur?")
LgLigne = c_ligne + 1
'Ajouter une feuille
Sheets.Add
ActiveSheet.Name = MaT
'Ajouter le régulateur à la liste des employé
Range("t_regul").Cells(lgline, 1) = MaT
Range("t_regul").Cells(lgline, 2) = nom
Range("t_regul").Cells(lgline, 3) = equipe