Erreur dans code

Bonjour

Pouvez vous svp me dire pourquoi ce code ne fonctionne pas

la BdD commence bien en A1 et la cellule de destination M4

Option Explicit

Private Sub CommandButton2_Click()

Dim Derlig As Integer, Hauteur As Integer

If ActiveCell.Address = "$M$4" Then

Randomize

Derlig = Sheets("BdD").Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row

Range("M4") = Sheets("BdD").Cells(Int(Rnd * Derlig) + 1, "A")

End If

End Sub

Cordialement

Bonjour,

Tu n'as pas mentionné où est situé le code :

  • Dans un module ?
  • Dans une feuille ?
  • Dans un userform ?

ric

Bonjour

Merci pour ton intervention

j'ai trouvé l'erreur

Il faut mettre Randomize à coté de Then et supprimer le End If

Cordialement

Rechercher des sujets similaires à "erreur code"