4015 résultats trouvés

par Theze
Hier, 09:23
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 216

Re: Onglet couleur

Bonjour, Avec IsNumeric() qui fonctionne très bien chez moi sur ton dernier fichier : Private Sub Workbook_Open() Dim Fe As Worksheet Dim NumSem As Integer For Each Fe In Worksheets If IsNumeric(Fe.Name) Then '<--- teste si le nom est numérique ! Select Case Weekday(DateSerial(Year(Date), Month(Date...
par Theze
13 novembre 2019, 18:53
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 216

Re: Onglet couleur

Bonjour,

Testes avec IsNumeric !
If IsNumeric(Fe.Name) = True Then
    ‘C’est Ok !
End If
par Theze
12 novembre 2019, 21:03
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 216

Re: Onglet couleur

Il te faut l’éviter comme j’ai fais pour l’onglet "Date" :
If Fe.Name <> "Date" And Fe.Name <> "Recap" Then
´...
par Theze
12 novembre 2019, 07:28
Forum : Excel - VBA
Sujet : Onglet couleur
Réponses : 22
Vues : 216

Re: Onglet couleur

Bonjour, Une piste à mettre dans le module du classeur (ThisWorkbook) sur ouverture du classeur : Private Sub Workbook_Open() Dim Fe As Worksheet Dim NumSem As Integer For Each Fe In Worksheets If Fe.Name <> "Date" Then Select Case Weekday(DateSerial(Year(Date), Month(Date), Fe.Name), vbMonday) Case...
par Theze
12 novembre 2019, 06:40
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 112

Re: Module pour calculer montant TTC

Bonjour, Hello André, Chris (°v°)° coronae35 dit: Normalement si on choisit 25 en quantité, 120 en prix HT, 20% de TVA, 15% de taux de remise, on trouve un montant TTCà payer de 3060. J'aimerais avoir le montant TTC pour n'importe quelle quantité vendue, un prix unitaire HT, un taux de TVA et un tau...
par Theze
11 novembre 2019, 15:04
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 112

Re: Module pour calculer montant TTC

Voici : Sub Test() Dim PrixUnit As Double Dim Quantite As Double Dim Remise As Single Dim TVA As Single On Error Resume Next PrixUnit = CDbl(InputBox("Indiquez le prix unitaire !", "Prix unitaire.")) If Err.Number <> 0 Then MsgBox "Entrez un prix valide !": Exit Sub Quantite = CDbl(InputBox("Indique...
par Theze
11 novembre 2019, 12:17
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 112

Re: Module pour calculer montant TTC

Dans le VBE, tu cliques droit sur l'UserForm et tu choisis "Code" pour arriver dans son module
par Theze
11 novembre 2019, 12:15
Forum : Excel - VBA
Sujet : Menu lanceur de macro
Réponses : 4
Vues : 55

Re: Menu lanceur de macro

Bonjour,

Une autre piste, pour l'exemple, en C5 une liste de validation avec les noms de tes macros et dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address(0, 0) <> "C5" Then Exit Sub
    
    Application.Run Target.Value
    
End Sub
par Theze
11 novembre 2019, 12:01
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 112

Re: Module pour calculer montant TTC

Voici un exemple :
Test formulaire.xlsm
(23.33 Kio) Téléchargé 5 fois
par Theze
11 novembre 2019, 11:43
Forum : Excel - VBA
Sujet : Module pour calculer montant TTC
Réponses : 13
Vues : 112

Re: Module pour calculer montant TTC

Là, je pense que tu veux parler d'un UserForm avec des champs de saisie ?