le cantalou
XLDnaute Nouveau
Bonjour,
J'ai fais un formulaire afin de pouvoir encoder plus rapidement les données dans un fichier excel. Sur la page d’accueil se trouve 3 boutons mais quand je clique sur valider les données ne s'écrivent pas sur la bonne page data mais sur la page accueil.
Private Sub BtnValider_Click()
Dim derligne As Integer
If MsgBox("Confimez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("data").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = TbxProjet.Value
Cells(derligne, 2) = CbxPole.Value
Cells(derligne, 3) = CbxAgent.Value
Cells(derligne, 4) = TbxPath.Value
End If
End Sub
Pouvez vous m'aider?
Cordialement,
le cantalou
J'ai fais un formulaire afin de pouvoir encoder plus rapidement les données dans un fichier excel. Sur la page d’accueil se trouve 3 boutons mais quand je clique sur valider les données ne s'écrivent pas sur la bonne page data mais sur la page accueil.
Private Sub BtnValider_Click()
Dim derligne As Integer
If MsgBox("Confimez-vous l'ajout des données ?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("data").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = TbxProjet.Value
Cells(derligne, 2) = CbxPole.Value
Cells(derligne, 3) = CbxAgent.Value
Cells(derligne, 4) = TbxPath.Value
End If
End Sub
Pouvez vous m'aider?
Cordialement,
le cantalou
Pièces jointes
Dernière édition: