Microsoft 365 Ajout 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 !

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 ?
 
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 ?
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
 
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
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
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. 🙂
 
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
 
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
 

Pièces jointes

- 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

Discussions similaires

Réponses
2
Affichages
78
Réponses
1
Affichages
219
Réponses
14
Affichages
367
Réponses
4
Affichages
177
Retour