Titre du sujet : Re: Excel, VBA, Base de donnée par myDearFriend! le 08/01/2010 16:47:31
Bonjour Miskha, le Forum,
Citation : mishka a écrit :
A ce propos après plusieurs recherche infructueuse sur internet, je reviens vers vous
pour avoir des informations sur la possiblité d'enregistrer et de fermer le fichier excel après validation du formulaire.
Merci de votre réponse.
Dans ce cas, tu peux modifier la dernière ligne de la procédure btnAjouter_Click() comme suit :
Private Sub btnAjouter_Click()
Dim R As Range
Dim L As Long
If Application.CountA(Range("O1:O10")) < 10 Then
MsgBox "Tous les éléments doivent être renseignés !"
Exit Sub
End If
With Sheets("BD-Réponse")
'Numéro de la prochaine ligne libre dans la base
L = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'Stockage des données
.Range(.Cells(L, 1), .Cells(L, 10)).Value = Application.Transpose(Range("O1:O10").Value)
End With
'RAZ du formulaire
Range("O1:O10").ClearContents
'Ferme le classeur en l'enregistrant
ThisWorkbook.Close True
End Sub
Si la réponse te convient, merci de mettre en pratique ce qui est indiqué au bas de ma signature...
Cordialement,
|