Usine à gaz
XLDnaute Barbatruc
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 :
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
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 SubMais 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
Dernière édition: