74 résultats trouvés

par GNIN
8 février 2019, 14:58
Forum : Excel - VBA
Sujet : Problème formulaire
Réponses : 13
Vues : 671

Re: Problème formulaire

Le problème vient du fait que l'instruction "UsedRange.Rows.Count" renvoie le nombre de lignes utilisées sur la feuille. Si la feuille est vierge, la valeur renvoyée est 1 Si la première ligne est saisie, la valeur renvoyée est toujours 1 Il est donc préférable d'utiliser "Cells(65535, 1).End(xlUp)....
par GNIN
8 février 2019, 14:02
Forum : Excel - VBA
Sujet : Mettre des heures à un pas de temps de 5min
Réponses : 13
Vues : 697

Re: Mettre des heures à un pas de temps de 5min

Function IncrementerHeure(C As Variant, Increment As Variant) As Date IncrementerHeure = CDate(C) + CDate(Increment) End Function Exemple d'appel : Code VBA : IncrementerHeure(Range("M6"),"00:05:00") Cellule : =incrementerheure(M6;"00:05:00") 'incrémente de 5 minutes le contenu de la cellule M6 Pens...
par GNIN
8 février 2019, 12:15
Forum : Excel - VBA
Sujet : Problème formulaire
Réponses : 13
Vues : 671

Re: Problème formulaire

Un exemple que j'utilise pour mes formations En pièce jointe Code associé au bouton: Private Sub Btn_Valider_Click() Dim F As Worksheet Set F = Sheets("Histo") DerligneF = F.UsedRange.Rows.Count + 1 ' Première ligne non utilisée Dim Coul As String Dim J As String If Question.Op1.Value Then Coul = "R...
par GNIN
7 février 2019, 16:25
Forum : Excel - VBA
Sujet : Affichage Loto
Réponses : 14
Vues : 889

Re: Affichage Loto

Bonjour, Une autre idée (voir fichier jointe sous Excel 2003 "désolé"): Un double clic sur un numéro du tableau de gauche le reporte sur le tableau de droite. Le dernier numéro tiré apparaît en rouge (code couleur 255 dans le code) Un bouton permet d'effacer la grille avec un message de confirmation...