Erreur dans code
J
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
J
Bonjour
Merci pour ton intervention
j'ai trouvé l'erreur
Il faut mettre Randomize à coté de Then et supprimer le End If
Cordialement