Problème de débogage sur excel

fsetheboss Messages postés 3 Statut Membre -  
eriiic Messages postés 25847 Statut Contributeur -
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

Réponse 1 / 1
ccm81 Messages postés 11033 Statut Membre 2 433
 
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
eriiic Messages postés 25847 Statut Contributeur 7 279
 
Bonjour,

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