Code VBA

[ced48]

J'ai une erreur dans le code suivant je ne vois pas ou cela bloque.
merci de votre aide

La ligne surlignée en jaune est :

Set myRange = .Range("B11:B" & .Range("B65536").End(x1Up).Row)

Dim Client1 As Range, Tableau As Range
Public Lgn As Long

Private Sub CommandButton2_Click() '(Quitte Creation)
Unload Me
End Sub




Private Sub CommandButton4_Click() ' (Enregistrer)
With Sheets("BD")
If DateCommission.Value = "" Or NomPrenom.Value = "" Or Adresse.Value = "" Or Naissance.Value = "" Or Sexe.Value = "" Or Civis.Value = "" Or Conseiller.Value = "" Or montantdde.Value = "" Or montantacc = "" Then
MsgBox " Tous les Champs ne sont pas remplis !!! "
Exit Sub
End If

'Création du N° de Ligne
Set myRange = .Range("B11:B" & .Range("B65536").End(x1Up).Row)
answer = Application.WorksheetFunction.Max(myRange)
DerLig = .Range("B65536").End(3)(2).Row 'Recherche derniere ligne vide
'Recopie le formulaire dans la feuille BD
.Range("B" & DerLig) = DateCommission.Value 'Date Commission
.Range("D" & DerLig) = NomPrenom.Value 'Nom
.Range("E" & DerLig) = Adresse.Value 'Addresse
.Range("F" & DerLig) = Naissance.Value 'Dte naissance
.Range("G" & DerLig) = Sexe.Value 'Sexe
.Range("H" & DerLig) = Conseiller.Value 'Conseiller
.Range("I" & DerLig) = Civis.Value 'Civis
.Range("J" & DerLig) = Dem.Value 'Demande
.Range("L" & DerLig) = montantdde.Value 'montant
.Range("M" & DerLig) = typedde.Value 'type dde
.Range("N" & DerLig) = Commdde.Value 'Commentaire Dde
.Range("O" & DerLig) = Pretsubv.Value 'Pret ou subv
.Range("P" & DerLig) = AvisCommission.Value 'Avis
.Range("Q" & DerLig) = Commavis.Value 'Commentaire Avis
.Range("T" & DerLig) = montantacc.Value 'montant accord

End With

End Sub

 

[Efgé]

Re : Code VBA

Bonjour ced48, Jean-Marcel,
Je pense qu'il y a plusieurs problèmes :
Sur la ligne

Set myRange = .Range("B11:B" & .Range("B65536").End(x1Up).Row)

la dernière parenthèse est en trop:

Set myRange = .Range("B11:B" & .Range("B65536").End(x1Up).Row

En plus cela vous donne la dernière ligne non vide et pas un range.

La ligne

DerLig = .Range("B65536").End(3)(2).Row

est à revoir. En plus vous avez déja la dernière ligne...
Cordialement

 

[Efgé]

Re : Code VBA

EDIT: Il faut aussis changer le 1 comme l'a dit Jean-Marcel.

 

[ced48]

Re : Code VBA

Merci de vos reponses