Problème de débogage sur excel

fsetheboss Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
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

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour,

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