Microsoft 365 souci de macro avec plusieurs else

Usine à gaz · 15 Juin 2022

Bonjour à toutes et à tous,

Je m'adresse à nos ténors préférés car je ne sais pas bien faire un code avec plusieurs "else".

Voici le code que j'ai fait :

VB:

Private Sub Label1_Click()
Sheets("Appels").Range("n1") = 2
    'met 2 à cellule N
 
    If Cells(ActiveCell.Row, 26) = "RdV" Then
    ActiveCell.Offset(0, 15) = "RdV" 'ActiveCell est la cellule col "K"
   'si ligne active col "Z" = "RdV" - laisse "RDV" ligne active col Z

    Else
    If ActiveCell.Offset(0, 15) <> "" And ActiveCell.Offset(0, 15) <> "RdV" _
    And ActiveCell.Offset(0, 15) <> "n/c" And ActiveCell.Offset(0, 15) > 0 Then
    ' si condition ok, ajoute 1 à col "Z" ligne active
    ActiveCell.Offset(0, 15).Value = ActiveCell.Offset(0, 15).Value + 1

    Else
    'si les 2 condtions NON Ok, met 1 à col "Z" ligne active
    ActiveCell.Offset(0, 15) = 1

    End If
    End If
Unload Rep_Entr ' ferme UserForm ouvert
'CalendarX.Show
End Sub

Je l'ai testé et il semble bien fonctionner.

Mais je pense que le code n'est pas bon.

J'ai fait des recherches mais je ne m'y retrouve pas.
Voudriez-vous me corriger ?

Un grand merci par avance,
lion el

Deadpool_CC · 15 Juin 2022

Usine à gaz à dit:
Je l'ai testé et il semble bien fonctionner.

Mais je pense que le code n'est pas bon.

Bonjour,
S'il fonctionne c'est quoi qui te gène ?

Deadpool_CC · 15 Juin 2022

Sinon une autre manière de l'écrire

VB:

Private Sub Label1_Click()
Sheets("Appels").Range("n1") = 2
    'met 2 à cellule N
   
    If Cells(ActiveCell.Row, 26) = "RdV" Then
        ActiveCell.Offset(0, 15) = "RdV"
        'si ligne active col "Z" = "RdV" - laisse "RDV" ligne active col Z
    Else
        Select Case ActiveCell.Offset(0, 15).Value
            Case Not "RdV", Not "n/c", Is > 0
                ActiveCell.Offset(0, 15).Value = ActiveCell.Offset(0, 15).Value + 1
            Case Else
                ActiveCell.Offset(0, 15).Value = 1
        End Select
    End If
Unload Rep_Entr ' ferme UserForm ouvert
'CalendarX.Show
End Sub

après si c'est sur la logique que tu veux un conseil, faut nous dire ce que tu veux faire en français pour voir si tes tests sont bons

Usine à gaz · 15 Juin 2022

Bonjour Deadpool_CC

Merci pour ton code .... Il me semble plus sérieux que le mien lol
Je teste et je reviens,
Merci,
lionel

Usine à gaz · 15 Juin 2022

Re-Bonjour @Deadpool_CC

Ben non, il fonctionne pas lol
Pas le temps de voir pkoi maintenant.
Je regarderai ce soir

Deadpool_CC · 15 Juin 2022

j'ai [edit] le code du post #3
j'avais pas mis les "NOT" dans le premier 'case' : je testais l'inverse (le boulet)

Deadpool_CC · 15 Juin 2022

après c'est le truc bête ... mais vu qu'on voit que cette sub ... ton ActiveCell est la bonne ?
Tu l'as bien fixé avant d'appeler ta sub ?

Usine à gaz · 15 Juin 2022

"ton ActiveCell est la bonne ?"
OUI : mon code du #post 1 fonctionne

TooFatBoy · 16 Juin 2022

Bonjour,

Usine à gaz à dit:
Voici le code que j'ai fait :
Je l'ai testé et il semble bien fonctionner.
Mais je pense que le code n'est pas bon.

Usine à gaz à dit:
mon code du #post 1 fonctionne

Donc pour résumer, il faut qu'on corrige un code qui n'est peut-être pas bon (d'après... ton intuition !), sans savoir ce qu'il doit faire, alors qu'il fonctionne déjà !...

Vu que le code de #1 fonctionne mais qu'il n'est pas bon et qu'on n'a pas d'explication sur ce que ça doit faire, moi je te propose un code qui ressemble à #1 et ses commentaires car je sais que mon code est absolument génial et parfait aussi bien dans son écriture que dans sa logique et son fonctionnement. Alors n'hésite pas, utilise-le, c'est d'la bombe, je te le garanti !

VB:

Private Sub Label1_Click()
'
    ' Met 2 dans la cellule N1
    Sheets("Appels").Range("N1") = 2

    ' Si col "Z" ligne active <> "RdV"
    If Cells(ActiveCell.Row, 26) <> "RdV" Then

        If IsNumeric(Cells(ActiveCell.Row, 26)) And Cells(ActiveCell.Row, 26) > 0 Then
            ' Si col "Z" ligne active > 0 on lui ajoute 1
            Cells(ActiveCell.Row, 26).Value = Cells(ActiveCell.Row, 26).Value + 1
        Else
            ' Si col "Z" ligne active <= 0 on met 1 dedans
            Cells(ActiveCell.Row, 26) = 1
        End If

    End If

    ' Ferme le UserForm ouvert
    Unload Rep_Entr
'    CalendarX.Show

End Sub

soan · 16 Juin 2022

Bonjour Marcel, le fil,

Marcel32 à dit:
Donc pour résumer, il faut qu'on corrige un code qui n'est peut-être pas bon (d'après... ton intuition !), sans savoir ce qu'il doit faire, alors qu'il fonctionne déjà !...

j'adore ton résumé !

soan

TooFatBoy · 16 Juin 2022

soan à dit:
j'adore ton résumé !

Ben je crois qu'il est exact. Nan ?

soan · 16 Juin 2022

c'est pas grave si on sait pas à quoi doit servir le code VBA :
du moment que Lionel le sait, lui, c'est l'essentiel !

soan · 16 Juin 2022

comme en plus le code VBA fonctionne déjà,
à quoi bon s'en faire ?

TooFatBoy · 16 Juin 2022

soan à dit:
comme en plus le code VBA fonctionne déjà,
à quoi bon s'en faire ?

Voui, mais pour savoir si notre proposition correspond à ce qu'il faut, perso je trouve que c'est plus pratique quand on sait ce que le code est censé faire. Mais bien sûr, ce n'est que mon avis personnel propre à moi-même.

patricktoulon · 16 Juin 2022

re
bonjour
defaut conceptuel!!!!!

activecell.offset(0,15)
pour moi ça veut dire que l'on peut partir de n'importe quelle colonne
mal pensé comme d'hab

je rejoins Marcel sur ce coup là

Microsoft 365 souci de macro avec plusieurs else

Usine à gaz

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

Deadpool_CC

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

Deadpool_CC

XLDnaute Accro

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires