Microsoft 365 souci de macro avec plusieurs else

[Usine à gaz]

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 :

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]

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]

Sinon une autre manière de l'écrire

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]

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]

Re-Bonjour @Deadpool_CC 🙂
Ben non, il fonctionne pas lol
Pas le temps de voir pkoi maintenant.
Je regarderai ce soir 🙂

 

[Deadpool_CC]

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]

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]

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

 

[TooFatBoy]

Bonjour,

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.

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 !

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]

Bonjour Marcel, le fil,

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]

j'adore ton résumé ! 🤣

Ben je crois qu'il est exact. Nan ? 🤔
😁

 

[soan]

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]

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

 

[TooFatBoy]

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]

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à