Bonjour,
où puis-je trouver un "bon" tutoriel sur VBA pour Excel pour débutant ?
Merci de votre aide
Vous n'aimez pas le lifting de Facebook ? Le site Mashable propose cinq étapes pour revenir à l'ancienne présentation du réseau social.
Je dois rendre dans tres peu de temps un travail dans lequel il doit y avoir des codes vba.
Je vous joins un de mes codes qui ne marche pas. J'ai passé des heures dessus mais je ne trouve pas l'erreur si vous pouviez me donner un coup de pouce ca serai vraiment super gentil!
Avec tous mes remerciements
CODE 1
Dans ce code on voulait utiliser notre table produit financier. Par rapport au niveau de risque on voulait envoyer, ou téléphoner au client.
Public Sub RisqueProduitFinancier()
ID = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.FormulaR1C1 = ID
ActiveCell.Offset(0, 1).Select
Nom = InputBox("Entrez le nom de la personne")
ActiveCell.FormulaR1C1 = Nom
ActiveCell.Offset(0, 1).Select
Dim As Integer
If Taux >= -0.06 Then
NiveauRisque = "Faible"
ElseIf Taux < -0.06 Then
NiveauRisque = "Modéré"
ElseIf Taux >= 0.22 Then
NiveauRisque = "Modéré"
ElseIf Taux >= -0.23 Then
NiveauRisque = "Elevé"
End If
If Risque = Modéré Then
MsgBox = "envoyer un email au client"
ElseIf Risque = Elevé Then
MsgBox = "Téléphoner au client"
End If
Public Sub RisqueProduitFinancier()
ID = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.FormulaR1C1 = ID
ActiveCell.Offset(0, 1).Select
Nom = InputBox("Entrez le nom de la personne")
ActiveCell.FormulaR1C1 = Nom
ActiveCell.Offset(0, 1).Select
Dim Taux As Integer
Dim NiveauRisque As String
If Taux >= -0.06 Then
NiveauRisque = "Faible"
ElseIf Taux <= -0.23 Then
NiveauRisque = "Elevé"
MsgBox "Téléphoner au client"
ElseIf Taux >= -0.06 And Taux <= -0.23 Then
NiveauRisque = "Modéré"
MsgBox "envoyer un email au client"
End If
End Sub
Pour obtenir une réponse à voter question je vous suggère d'ouvrir un nouveau sujet plutôt que de poser cette question ici sur un sujet qui n'a rien à voir.