Bonjour a tous
Voila encore une fois le débutant que je suis bloque sur une commande et je sollicite a nouveau votre aide
j'ai Creer un formulaire afin de remplir une base de donnees
lorsque je click sur le bouton enregister j'ai une erreur de complilation
des la premiere ligne : derlg = .Range("B" & .Rows.Count).End(xlUp).Row + 1
cela a fonctionner un moment et puis sur un nouvel essai " erreur compilation
J'avoue ne pas comprendre
Par ailleur je souhaiterai que lorsque bouton enregistrer, qu' il m'affiche le nouveau N° disponible
Cela fonctionne si je ferme le formulaire mais pas avec la commande enregistrer
Pour info actuellement sur les userform uniquement ABE LR et Secteur Montpellier sont actif
Voici la commande complete : pour l'erreur compilation
Private Sub Enregistrer_Click()
With Sheets("MONTPELLIER")
derlg = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("B" & derlg) = numgmao
.Range("C" & derlg) = etdemandeur
.Range("D" & derlg) = contactdemandeur
'.Range("E" & derlg) = a voir
.Range("F" & derlg) = descriptif
.Range("G" & derlg) = daterecep
.Range("H" & derlg) = dateenvoiechiffrage
.Range("I" & derlg) = dateretourdtsouhaite
.Range("M" & derlg) = metreur
'For x = 1 To 4
' If Me.Controls("OptionButton" & x) Then
' .Range("I" & derlg) = Me.Controls("OptionButton" & x).Caption: Exit For
'End If
'Next x
'.Range("" & derlg) = avoir
'.Range("" & derlg) = a voir
'.Range("" & derlg) = a voir
'.Range("" & derlg) = a voir
End With
End Sub
Je vous remercie d'avance
Cordialement a tous
Voila encore une fois le débutant que je suis bloque sur une commande et je sollicite a nouveau votre aide
j'ai Creer un formulaire afin de remplir une base de donnees
lorsque je click sur le bouton enregister j'ai une erreur de complilation
des la premiere ligne : derlg = .Range("B" & .Rows.Count).End(xlUp).Row + 1
cela a fonctionner un moment et puis sur un nouvel essai " erreur compilation
J'avoue ne pas comprendre
Par ailleur je souhaiterai que lorsque bouton enregistrer, qu' il m'affiche le nouveau N° disponible
Cela fonctionne si je ferme le formulaire mais pas avec la commande enregistrer
Pour info actuellement sur les userform uniquement ABE LR et Secteur Montpellier sont actif
Voici la commande complete : pour l'erreur compilation
Private Sub Enregistrer_Click()
With Sheets("MONTPELLIER")
derlg = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("B" & derlg) = numgmao
.Range("C" & derlg) = etdemandeur
.Range("D" & derlg) = contactdemandeur
'.Range("E" & derlg) = a voir
.Range("F" & derlg) = descriptif
.Range("G" & derlg) = daterecep
.Range("H" & derlg) = dateenvoiechiffrage
.Range("I" & derlg) = dateretourdtsouhaite
.Range("M" & derlg) = metreur
'For x = 1 To 4
' If Me.Controls("OptionButton" & x) Then
' .Range("I" & derlg) = Me.Controls("OptionButton" & x).Caption: Exit For
'End If
'Next x
'.Range("" & derlg) = avoir
'.Range("" & derlg) = a voir
'.Range("" & derlg) = a voir
'.Range("" & derlg) = a voir
End With
End Sub
Je vous remercie d'avance
Cordialement a tous