Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Microsoft 365Ajout bouton avec macro remise a zero
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
If Cells(alea, 2) = "" Then
Cells(alea, 2) = Cells(i, 8)
Cells(alea, 3) = Now ' AJOUT DE LA DATATION EN COLONNE C'
Feuil1.CommandButton_tirage.Caption = Cells(alea, 1)
Cells(i, 8).Delete Shift:=xlUp
Else
If Cells(alea, 2) = "" Then
Cells(alea, 2) = Cells(i, 8)
Cells(alea, 3) = Now ' AJOUT DE LA DATATION EN COLONNE C'
Feuil1.CommandButton_tirage.Caption = Cells(alea, 1)
Cells(i, 8).Delete Shift:=xlUp
Else
Qu'entendez vous par vb ? Et quelle erreur, quelle ligne ?
Mais de toute façon, avec ou sans cette ligne, votre VBA pose problème sur mon PC à cause de votre :
Qu'entendez vous par vb ? Et quelle erreur, quelle ligne ?
Mais de toute façon, avec ou sans cette ligne, votre VBA pose problème sur mon PC à cause de votre :
VB:
For i=2 to 2
puis ensuite
i=i-1
Vous avez le droit de répondre aux questions qui vous sont posées. 🙂
Un tirage au sort aléatoire sans remise avec ma demande actuelle de rajouter la date de tirage a chaque click sur tirage.
si c'est problématique hésitez pas a modifier directement le fichier c'est un croquis pour le moment
merci
Sub tirage()
Application.ScreenUpdating = False ' figer écran, plus rapide
Randomize
NbLignesC = Application.CountIf([H:H], "*") ' Nombre de lignes occupées dans la colonne H
While NbLignesC > 1 ' Tant qu'il y a encore des données à tranférées.
alea = Int(Rnd * (Range("A1").End(xlDown).Row - 1)) + 2
If Cells(alea, "B") = "" Then
Cells(alea, "B") = [H2] ' Donnée
Cells(alea, "C") = Now ' Datation
Feuil1.CommandButton_tirage.Caption = Cells(alea, 1)
[H2].Delete Shift:=xlUp
NbLignesC = NbLignesC - 1 ' Nouvelle quantité de données à transférer.
End If
Wend
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD