Problème de débogage sur excel

fsetheboss -  
Bonjour, j'aimerais pouvoir être aidé sur ce programme,je ne trouve pas l'erreur.

Sub popo()
Maj = "tu es majeur!!"
Min = "tu es mineur!!"

With ActivateSheet
If .Cells(1, 2) >= 18 Then
.Cells(2, 2) = Maj
Else
.Cells(1, 2) = Min
End If
End With

End Sub

1 réponse

  • Votes
  • Date
  • Date décroissante
  1. ccm81
    Bonjour 

    Sub popo()
Dim Mineur as String, Majeur as String
Majeur = "tu es majeur!!"
Mineur = "tu es mineur!!"
With ActiveSheet
  If .Cells(1, 2) >= 18 Then
    .Cells(2, 2) = Majeur
  Else
    .Cells(2, 2) = Mineur
  End If
End With
End Sub

    Cdlmnt
    1. eriiic Contributeur
      Bonjour,

      au passage tu n'es pas obligé d'utiliser With ActiveSheet puisque par défaut Cells() s'adressera à elle.
      eric