gds35
XLDnaute Impliqué
Mes AMIS du Forum , Bonsoir
J'alimente une feuille excel apres saisie dans un userform , puis j'ai crée un deuxieme USF pour modification des donées si besoin. Mais voila lorsque je modifie une donnée et veux la recopier dans la feuille excel excel je tombe en erreur 1004 Range a echoué. Pourquoi ??? voila mes 2 codes
Private Sub MODIFBOXNOMRU_AfterUpdate()
'
Dim ChoixModifRU As String
'
ChoixModifRU = MODIFBOXNOMRU.Value
LMRU = 3
RECHERCHE:
If Range("A" & LMRU).Value = ChoixModifRU Then
MODIFBOXPRENOMRU = Range("B" & LMRU).Value
MODIFBOXIDRU = Range("C" & LMRU)
ORDNUMRU = Range("D" & LMRU)
IDRU1 = Range("C" & LMRU).Value
IDRU2 = Range("D" & LMRU).Value
Else
LMRU = LMRU + 1
GoTo RECHERCHE
End If
End Sub
Private Sub MODIFVALIDRU_Click()
Sheets("RU").Select
If MODIFBOXNOMRU = "" Or MODIFBOXPRENOMRU = "" Then
Message = MsgBox("SAISIE NOM ET PRENOM OBLIGATOIRE", vbCritical, _
"SAISIE RESPONSABLE D'UNITE")
Else
Range("A" & LMRU) = UCase(MODIFBOXNOMRU.Value)
Range("B" & LMRU) = UCase(Left(MODIFBOXPRENOMRU.Value, 1)) & _
LCase(Right(MODIFBOXPRENOMRU.Value, Len(MODIFBOXPRENOMRU.Value) - 1))
Range("C" & LMRU) = MODIFBOXIDRU
Range("D" & LMRU) = ORDNUMRU
'
End If
End Sub
Merci de votre aide . Bonne soirée GDS35
J'alimente une feuille excel apres saisie dans un userform , puis j'ai crée un deuxieme USF pour modification des donées si besoin. Mais voila lorsque je modifie une donnée et veux la recopier dans la feuille excel excel je tombe en erreur 1004 Range a echoué. Pourquoi ??? voila mes 2 codes
Private Sub MODIFBOXNOMRU_AfterUpdate()
'
Dim ChoixModifRU As String
'
ChoixModifRU = MODIFBOXNOMRU.Value
LMRU = 3
RECHERCHE:
If Range("A" & LMRU).Value = ChoixModifRU Then
MODIFBOXPRENOMRU = Range("B" & LMRU).Value
MODIFBOXIDRU = Range("C" & LMRU)
ORDNUMRU = Range("D" & LMRU)
IDRU1 = Range("C" & LMRU).Value
IDRU2 = Range("D" & LMRU).Value
Else
LMRU = LMRU + 1
GoTo RECHERCHE
End If
End Sub
Private Sub MODIFVALIDRU_Click()
Sheets("RU").Select
If MODIFBOXNOMRU = "" Or MODIFBOXPRENOMRU = "" Then
Message = MsgBox("SAISIE NOM ET PRENOM OBLIGATOIRE", vbCritical, _
"SAISIE RESPONSABLE D'UNITE")
Else
Range("A" & LMRU) = UCase(MODIFBOXNOMRU.Value)
Range("B" & LMRU) = UCase(Left(MODIFBOXPRENOMRU.Value, 1)) & _
LCase(Right(MODIFBOXPRENOMRU.Value, Len(MODIFBOXPRENOMRU.Value) - 1))
Range("C" & LMRU) = MODIFBOXIDRU
Range("D" & LMRU) = ORDNUMRU
'
End If
End Sub
Merci de votre aide . Bonne soirée GDS35