J'ai un formulaire avec un bouton ok et une combobox
voici le code de mon bouton ok
Private Sub B_ok_Click()
[IV5].End(xlToLeft).Offset(0, 1).Select
ActiveCell =3D Me.LaDate
For i =3D 1 To 5
ActiveCell.Offset(i, 0) =3D Me("textbox" & i).Value
Next i
Me.LaDate =3D ""
For i =3D 1 To 5
Me("textbox" & i).Value =3D ""
Next i
MsgBox ("Merci d'avoir enregistr=E9 les donn=E9es")
End Sub
Puis le code de ma combobox :
Private Sub ChoixFeuille_Change() 'combobox avec choix de la reference
f =3D Me.ChoixFeuille
Sheets(f).Select
End Sub
En fait je voudrais que si rien n'est selectionn=E9 dans la combobox un
message apparaisse et me demande de saisir une r=E9f=E9rence.
J'ai essay=E9 avec un If mais les donn=E9es sont quand m=EAme envoy=E9es
dans la feuille excel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Private Sub B_ok_Click() If Me.ChoixFeuille="" Then Msgbox "Choisir une feuille!" Else [IV5].End(xlToLeft).Offset(0, 1).Select ActiveCell = Me.LaDate For i = 1 To 5 ActiveCell.Offset(i, 0) = Me("textbox" & i).Value Next i Me.LaDate = "" For i = 1 To 5 Me("textbox" & i).Value = "" Next i MsgBox ("Merci d'avoir enregistré les données") End if End Sub
JB
Bonsoir
J'ai un formulaire avec un bouton ok et une combobox
voici le code de mon bouton ok
Private Sub B_ok_Click() [IV5].End(xlToLeft).Offset(0, 1).Select ActiveCell = Me.LaDate For i = 1 To 5 ActiveCell.Offset(i, 0) = Me("textbox" & i).Value Next i Me.LaDate = "" For i = 1 To 5 Me("textbox" & i).Value = "" Next i MsgBox ("Merci d'avoir enregistré les données") End Sub
Puis le code de ma combobox :
Private Sub ChoixFeuille_Change() 'combobox avec choix de la reference f = Me.ChoixFeuille Sheets(f).Select End Sub
En fait je voudrais que si rien n'est selectionné dans la combobox un message apparaisse et me demande de saisir une référence.
J'ai essayé avec un If mais les données sont quand même envoyées dans la feuille excel
Pouvez vous me donner un coup de pouce
@+
Flo
Bonsoir,
Private Sub B_ok_Click()
If Me.ChoixFeuille="" Then
Msgbox "Choisir une feuille!"
Else
[IV5].End(xlToLeft).Offset(0, 1).Select
ActiveCell = Me.LaDate
For i = 1 To 5
ActiveCell.Offset(i, 0) = Me("textbox" & i).Value
Next i
Me.LaDate = ""
For i = 1 To 5
Me("textbox" & i).Value = ""
Next i
MsgBox ("Merci d'avoir enregistré les données")
End if
End Sub
JB
Bonsoir
J'ai un formulaire avec un bouton ok et une combobox
voici le code de mon bouton ok
Private Sub B_ok_Click()
[IV5].End(xlToLeft).Offset(0, 1).Select
ActiveCell = Me.LaDate
For i = 1 To 5
ActiveCell.Offset(i, 0) = Me("textbox" & i).Value
Next i
Me.LaDate = ""
For i = 1 To 5
Me("textbox" & i).Value = ""
Next i
MsgBox ("Merci d'avoir enregistré les données")
End Sub
Puis le code de ma combobox :
Private Sub ChoixFeuille_Change() 'combobox avec choix de la reference
f = Me.ChoixFeuille
Sheets(f).Select
End Sub
En fait je voudrais que si rien n'est selectionné dans la combobox un
message apparaisse et me demande de saisir une référence.
J'ai essayé avec un If mais les données sont quand même envoyées
dans la feuille excel
Private Sub B_ok_Click() If Me.ChoixFeuille="" Then Msgbox "Choisir une feuille!" Else [IV5].End(xlToLeft).Offset(0, 1).Select ActiveCell = Me.LaDate For i = 1 To 5 ActiveCell.Offset(i, 0) = Me("textbox" & i).Value Next i Me.LaDate = "" For i = 1 To 5 Me("textbox" & i).Value = "" Next i MsgBox ("Merci d'avoir enregistré les données") End if End Sub
JB
Bonsoir
J'ai un formulaire avec un bouton ok et une combobox
voici le code de mon bouton ok
Private Sub B_ok_Click() [IV5].End(xlToLeft).Offset(0, 1).Select ActiveCell = Me.LaDate For i = 1 To 5 ActiveCell.Offset(i, 0) = Me("textbox" & i).Value Next i Me.LaDate = "" For i = 1 To 5 Me("textbox" & i).Value = "" Next i MsgBox ("Merci d'avoir enregistré les données") End Sub
Puis le code de ma combobox :
Private Sub ChoixFeuille_Change() 'combobox avec choix de la reference f = Me.ChoixFeuille Sheets(f).Select End Sub
En fait je voudrais que si rien n'est selectionné dans la combobox un message apparaisse et me demande de saisir une référence.
J'ai essayé avec un If mais les données sont quand même envoyées dans la feuille excel
Pouvez vous me donner un coup de pouce
@+
Flo
lolo
Salut JB
Merci pour ton coup de pouce c'est le collegue du travail qui à posté le
Ca fonctionne nickel !!
Merci a pluche
Lolo
Salut JB
Merci pour ton coup de pouce c'est le collegue du travail qui à posté
le
