maud.33500
XLDnaute Nouveau
Bonjour,
J'ai crée un formulaire qui, une fois validé, implémente une feuille excel. Je voudrais faire apparâitre un message à l'utilisateur lui indiquant le numéro généré (= Dernière cellule non vide dans la colonne A). La MsgBox s'affiche sans problème mais pas le numéro. Il y'a sans doute une erreur dans le code mais je n'arrive pas à la trouver...
Voici le code concerné (La ligne qui me pose problème est la dernière MsgBox, tout le reste fonctionne):
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Vous devez renseigner la ligne PROBLEME RENCONTRE"
Else
If TextBox3 = "" Then
MsgBox "Vous devez renseigner la ligne ACTION A METTRE EN PLACE"
Else
If ComboBox1 = "" Then
MsgBox "Vous devez renseigner la ligne QUI TRAITERA L'ACTION"
Else
If ComboBox1 = "Autre..." And TextBox5 = "" Then
MsgBox "Vous devez renseigner la ligne SI AUTRE, PRECISER"
Else
If ComboBox2 = "" Then
MsgBox " Vous devez renseigner le ligne DELAI DE TRAITEMENT DE L'ACTION"
Else
Dim retour As Long
REPONSE = MsgBox("Saisie OK, Voulez-vous incrémenter le tableau?", vbYesNo + vbQuestion)
If REPONSE = vbCancel Then
Exit Sub
Else
Dim ligne As Long
lig = Sheets("ACTIONS TECHNIQUES").Range("B65536").End(xlUp).Offset(1, 0).Row
Sheets("ACTIONS TECHNIQUES").Range("B" & lig).Value = Me.Calendar1.Value
Sheets("ACTIONS TECHNIQUES").Range("C" & lig).Value = Me.TextBox1.Value
Sheets("ACTIONS TECHNIQUES").Range("D" & lig).Value = Me.TextBox2.Value
Sheets("ACTIONS TECHNIQUES").Range("E" & lig).Value = Me.TextBox3.Value
Sheets("ACTIONS TECHNIQUES").Range("A" & lig).FormulaR1C1 = "=R[-1]C+1"
If ComboBox1 = "Autre..." Then
Sheets("ACTIONS TECHNIQUES").Range("F" & lig).Value = Me.TextBox5.Value
Else
Sheets("ACTIONS TECHNIQUES").Range("F" & lig).Value = Me.ComboBox1.Value
End If
Sheets("ACTIONS TECHNIQUES").Range("G" & lig).Value = Me.TextBox6.Value
Sheets("ACTIONS TECHNIQUES").Range("I" & lig).Value = Me.TextBox4.Value
MsgBox "L'action technique à bien été crée, elle porte le numéro" & Range("a65536").End(xlUp).Rows
End If
End If
End If
End If
End If
End Sub
Merci d'avance pour vos réponses.
J'ai crée un formulaire qui, une fois validé, implémente une feuille excel. Je voudrais faire apparâitre un message à l'utilisateur lui indiquant le numéro généré (= Dernière cellule non vide dans la colonne A). La MsgBox s'affiche sans problème mais pas le numéro. Il y'a sans doute une erreur dans le code mais je n'arrive pas à la trouver...
Voici le code concerné (La ligne qui me pose problème est la dernière MsgBox, tout le reste fonctionne):
Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Vous devez renseigner la ligne PROBLEME RENCONTRE"
Else
If TextBox3 = "" Then
MsgBox "Vous devez renseigner la ligne ACTION A METTRE EN PLACE"
Else
If ComboBox1 = "" Then
MsgBox "Vous devez renseigner la ligne QUI TRAITERA L'ACTION"
Else
If ComboBox1 = "Autre..." And TextBox5 = "" Then
MsgBox "Vous devez renseigner la ligne SI AUTRE, PRECISER"
Else
If ComboBox2 = "" Then
MsgBox " Vous devez renseigner le ligne DELAI DE TRAITEMENT DE L'ACTION"
Else
Dim retour As Long
REPONSE = MsgBox("Saisie OK, Voulez-vous incrémenter le tableau?", vbYesNo + vbQuestion)
If REPONSE = vbCancel Then
Exit Sub
Else
Dim ligne As Long
lig = Sheets("ACTIONS TECHNIQUES").Range("B65536").End(xlUp).Offset(1, 0).Row
Sheets("ACTIONS TECHNIQUES").Range("B" & lig).Value = Me.Calendar1.Value
Sheets("ACTIONS TECHNIQUES").Range("C" & lig).Value = Me.TextBox1.Value
Sheets("ACTIONS TECHNIQUES").Range("D" & lig).Value = Me.TextBox2.Value
Sheets("ACTIONS TECHNIQUES").Range("E" & lig).Value = Me.TextBox3.Value
Sheets("ACTIONS TECHNIQUES").Range("A" & lig).FormulaR1C1 = "=R[-1]C+1"
If ComboBox1 = "Autre..." Then
Sheets("ACTIONS TECHNIQUES").Range("F" & lig).Value = Me.TextBox5.Value
Else
Sheets("ACTIONS TECHNIQUES").Range("F" & lig).Value = Me.ComboBox1.Value
End If
Sheets("ACTIONS TECHNIQUES").Range("G" & lig).Value = Me.TextBox6.Value
Sheets("ACTIONS TECHNIQUES").Range("I" & lig).Value = Me.TextBox4.Value
MsgBox "L'action technique à bien été crée, elle porte le numéro" & Range("a65536").End(xlUp).Rows
End If
End If
End If
End If
End If
End Sub
Merci d'avance pour vos réponses.