9245 résultats trouvés

par eriiic
Aujourd’hui, 00:36
Forum : Excel - VBA
Sujet : Nombre de jour par année sur la fonction DATEDIF
Réponses : 3
Vues : 61

Re: Nombre de jour par année sur la fonction DATEDIF

Bonjour, pour faire plus simple déjà tu peux te passer de datedif(), pour une différence en jours : =date2-date1 Pour remplacer sierreur() ça t'oblige à l'évaluer 2 fois comme tu fais, pas d'alternative (ou si : réserver une colonne à ce calcul que tu utiliseras 2 fois). Il est tard alors je ne rega...
par eriiic
24 février 2020, 23:51
Forum : Excel - VBA
Sujet : Fonction UCase ( mise en majuscule)
Réponses : 4
Vues : 76

Re: Fonction UCase ( mise en majuscule)

Bonjour, effectivement, j'avais été un peu trop rapide dans ma réponse. Sub texte_majuscule() 'Renvoi les données des tableaux de la feuille en majuscule Dim pl As Range, c As Range Application.ScreenUpdating = False Set pl = ActiveWorkbook.Worksheets(4).Range("A1:V240").SpecialCells(xlCellTypeConst...
par eriiic
23 février 2020, 23:39
Forum : Excel - VBA
Sujet : Fonction UCase ( mise en majuscule)
Réponses : 4
Vues : 76

Re: Fonction UCase ( mise en majuscule)

Bonjour, Sub texte_majuscule() 'Renvoi les données des tableaux de la feuille en majuscule ActiveWorkbook.Worksheets(4).Range("A1:V240").Value = UCase(ActiveWorkbook.Worksheets(4).Range("A1:V240").Value) End Sub pas besoin de plus. Je me suis basé sur ton code mais je te déconseille d'utiliser Activ...
par eriiic
23 février 2020, 09:59
Forum : Excel - VBA
Sujet : VBA Worksheet change - Row
Réponses : 11
Vues : 93

Re: VBA Worksheet change - Row

Bonjour à tous,

tu peux aussi enlever toutes les lignes concernant flag vu que tu ne t'en sers pas.
eric
par eriiic
20 février 2020, 16:37
Forum : Excel - VBA
Sujet : Troncature nombres à virgule
Réponses : 9
Vues : 73

Re: Troncature nombres à virgule

merci h2so4, j'avoue que je n'étais pas mécontent ;-) La version prenant en compte les 0 significatifs : Function tronqChi(Nombre As Variant, Optional nbSignificatifs As Long = 4, Optional zerosSignicatifs As Boolean = True) As Double Dim Parts() As String Parts = Split(Format(Nombre, "0.0##########...
par eriiic
20 février 2020, 12:38
Forum : Excel - VBA
Sujet : Troncature nombres à virgule
Réponses : 9
Vues : 73

Re: Troncature nombres à virgule

Bonjour à tous, autre méthode : Function tronqChi(Nombre As Variant, Optional nbSignificatifs As Long = 4) As Double Dim Parts() As String Parts = Split(Format(Nombre, "0.0#############E+0"), "E") tronqChi = Application.RoundDown(Parts(0), nbSignificatifs - 1) & "E" & Parts(1) End Function Par défau...
par eriiic
20 février 2020, 12:17
Forum : Excel - VBA
Sujet : Somme en fonction de numéro de semaine
Réponses : 7
Vues : 60

Re: Somme en fonction de numéro de semaine

Bonjour, un TCD s'actualise manuellement. Comme il est prévu pour traiter de grandes masses de données, ça évite de ralentir excel. Faire un clic-droit sur le TCD et Actualiser A la limite tu peux faire une macro pour l'actualiser à l'activation de la feuille. Mais pour éviter 2 clics, autant appren...
par eriiic
19 février 2020, 09:22
Forum : Excel - VBA
Sujet : Gestion d'une Checklistbox
Réponses : 2
Vues : 38

Re: Gestion d'une Checklistbox

Bonjour, Private Sub CommandButton1_Click() If Choix1 <> "" Then For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then Sheets("Feuil1").Cells(i + 1, 2).Value = Choix1.Value Next i Else MsgBox ("renseigner un choix") End If End Sub Comme tu as mis des cases à cocher tu pourrais mettre fmMu...
par eriiic
18 février 2020, 23:00
Forum : Excel - VBA
Sujet : Restreindre la validation du contenu d'une cellule
Réponses : 12
Vues : 137

Re: Restreindre la validation du contenu d'une cellule

ok, bonne continuation :-)
eric