Microsoft 365 Ajout bouton avec macro remise a zero

[jilooou]

Bonjour,
Ppouvez vous m'aider a ajouter une colonne ou la date de tirage apparait pour chaque tirage.

 

[sylvanu]

Bonjour Jilooou,
Ajoutez, si vous voulez la datation en colonne C :

Cells(alea, 3) = Now

et mettez la colonne C en format personnalisé : jj/mm/aaaa h:mm:ss
Ce qui donnera par ex : 04/07/2022 10:38:49

NB : Votre code est pour le moins bizarre.
Que vouliez vous faire exactement ?

 

[jilooou]

Pas sur que j'y arrive lol

 

[jilooou]

Bonjour Jilooou,
Ajoutez, si vous voulez la datation en colonne C :

Cells(alea, 3) = Now

et mettez la colonne C en format personnalisé : jj/mm/aaaa h:mm:ss
Ce qui donnera par ex : 04/07/2022 10:38:49

NB : Votre code est pour le moins bizarre.
Que vouliez vous faire exactement ?

Bonjour Jilooou,
Ajoutez, si vous voulez la datation en colonne C :

Cells(alea, 3) = Now

et mettez la colonne C en format personnalisé : jj/mm/aaaa h:mm:ss
Ce qui donnera par ex : 04/07/2022 10:38:49

NB : Votre code est pour le moins bizarre.
Que vouliez vous faire exactement ?

Merci

 

[sylvanu]

Ajoutez cette ligne à votre code :

            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

 

[jilooou]

Ajoutez cette ligne à votre code :

            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

Je n'arrive pas a rentré la vb ca me met erreur

 

[sylvanu]

Je n'arrive pas a rentré la vb ca me met erreur

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 :

For i=2 to 2
puis ensuite
i=i-1

NB : Votre code est pour le moins bizarre.
Que vouliez vous faire exactement ?

Vous avez le droit de répondre aux questions qui vous sont posées.

 

[jilooou]

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 :

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

 

[sylvanu]

Avec ce que j'ai compris :

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