Microsoft 365 Ajout bouton avec macro remise a zero

jilooou · 4 Juillet 2022

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

sylvanu · 4 Juillet 2022

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

VB:

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 · 4 Juillet 2022

Pas sur que j'y arrive lol

jilooou · 4 Juillet 2022

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

VB:

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 · 4 Juillet 2022

Ajoutez cette ligne à votre code :

VB:

            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 · 4 Juillet 2022

sylvanu à dit:

Ajoutez cette ligne à votre code :

VB:

            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 · 4 Juillet 2022

jilooou à dit:
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 :

VB:

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

sylvanu à dit:
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 · 4 Juillet 2022

sylvanu à dit:
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

sylvanu · 4 Juillet 2022

Avec ce que j'ai compris :

VB:

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

Microsoft 365 Ajout bouton avec macro remise a zero

jilooou

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

jilooou

XLDnaute Junior

jilooou

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

jilooou

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

jilooou

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires