Pblm sur un code de VBA (pour fair incrementation)
Bonsoir le forum
encore une fois grace a vous que j'ai commencer a devlloper mes applications en VBA... voila mon pblm Quand je clic sur le bouton « Ajouter un contrat » dans la feuille « FSC 2011 » une fenêtre de saisie s’affiche pour remplir la feuille (Tables d’info) jusqu'à mnt tous vas bien mais si je veux ajouter une autre info la premier info s’écrase (pas d’incrémentation ??????)
Merci d’avance pour votre HELP
sidahmed 16/01/2012
Bonsoir
Avant de sauvegarder des infos on fait les vérifications
Remplaces ta macro par celle-ci
Private Sub CommandButton1_Click()
Dim LastLigne As Range
Dim Msg1 As String
If TextBox2 = "" Then
MsgBox "Votre Contrat n'a pas de Numéro ? ", vbCritical, "Nouveau Validation Error" 'Test TextBox2 non rempli
Exit Sub
End If
If TextBox6 = "" Then
MsgBox "Le Nom du chef de Projet ? ", vbCritical, "Nouveau Validation Error" 'Test TextBox3 non rempli
Exit Sub
End If
If TextBox8 = "" Then
MsgBox "L'Adresse de votre contact n'a pas de ville ? ", vbCritical, "Nouveau Validation Error" 'Test TextBox3 non rempli
Exit Sub
End If
With WsListes
Set LastLigne = .Range("L" & Rows.Count).End(xlUp).Offset(1, 0)
End With
With LastLigne
.Offset(0, 0) = TextBox2.Value
.Offset(0, 1) = TextBox6.Value
.Offset(0, 2) = TextBox8.Value
End With
Msg1 = MsgBox("Voulez-vous continuer pour d'autres nouvelles entrées ?", _
vbYesNo, "Nouveau Continuer ?") 'Demande pour une nouvelle entrée
If Msg1 = vbYes Then
TextBox2 = ""
TextBox6 = ""
TextBox8 = ""
TextBox2.SetFocus
Else
Unload Me
End If
End SubbONSOIR BAN ET MERCI POUR TA REPOSE
LE CODE NE FONCTIONNE PAS IL AFFICHE UNE ERREUR DEXECTION 75.......
ILE PBLM EST LA
Set LastLigne = .Range("L" & Rows.Count).End(xlUp).Offset(1, 0)
Bonsoir
J'ai dit
Banzai64 a écrit :Remplaces ta macro par celle-ci
Pas remplaces TESmacros
Il manque toutes les autres macros, il n'y avait que la macro Private Sub CommandButton1_Click() à remplacer
MERCI BAN