Sujet Précédent Sujet Suivant

Problème de débogage sur excel

Fermé
fsetheboss Messages postés 2 Date d'inscription lundi 6 février 2017 Statut Membre Dernière intervention 29 août 2017 - 6 févr. 2017 à 12:30
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 6 févr. 2017 à 17:23
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




A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 6/02/2017 à 13:38
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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
6 févr. 2017 à 17:23
Bonjour,

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