probleme Code enableRésolu

Question

Bonjour tout le monde, 
j'ai un problème sur un code:

Private Sub UserForm_Initialize()
    If (abonnement!activités) = "" Then
        SUP.Enabled = True
        MODIFIER.Enabled = True
    End If
End Sub

je veux que quand le userform choix s'ouvre et que dans la feuille abonnements la zone activités et vide alors griser la case sup et modifier.
Mais ca marche pas.
Je sais pas pourquoi.
Merci à tous.

mortalino · Accepted Answer

en fait, il faut tester chaque cellules : Option Explicit Sub hjkfhmkk() Dim MyRange As Range Dim ToutesLesCellsSontVides As Boolean ToutesLesCellsSontVides = True For Each MyRange In Range("activités") If MyRange <> vbNullString Then ToutesLesCellsSontVides = False End If Next MyRange MsgBox ToutesLesCellsSontVides End Sub ~ Mortalino ~ [code.aspx?ID=39466 Colorisation automatique] @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

cs_Jack · Answer

Salut
Que veut dire "ça ne marche pas" ?
Positionne ta souris (+ simple clic) sur la ligne If (abonnement ... puis appuie sur F9
Le code s'arrêtera sur cette ligne au prochain passage
A ce moment là, appuie sur F8 pour exécuter les instructions qui suivent une à une.
Vérifie alors que tu entres bien dans les lignes du dessous.

Nota : Les lignes du dessous rendent valides les objets et tu parles de vouloir les griser.
Ne vois-tu pas quelque chose de bizarre ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

mortalino · Answer

salut,

peut-être en remplaçant
 If (abonnement!activités) = "" Then
par
 If Range("activités").Value = vbNullString Then

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

eastpeople · Answer

J'ai rajouté cela donc j'ai :
Private Sub UserForm_Initialize()
    If Range("activités").Value = "" Then
        SUP.Enabled = True
        MODIFIER.Enabled = True
        SAISIR.Enabled = False
    End If
End Sub

Mais quand je click sur le bouton administrateur pour acceder au userform chois il me met erreur d'exécution 13 incomptabilité de type et il me souligne choix.show dans le code ci dessous.

Private Sub administrateur_Click()
'Quand l'utilisateur clique sur administrateur le user form CHOIX s'ouvre
    ACCUEIL.Hide
    CHOIX.Show
End Sub

Merci.

mortalino · Answer

bah c'est que mon bout de code n'est pas bon.. 
Je fais qques tests et te dit quoi !

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

eastpeople · Answer

Ok merci beaucoup

eastpeople · Answer

Ok donc ça je le met comme tel dans l'évenement initialize?

eastpeople · Answer

Pk tu met msg touteslescellssontvides?

mortalino · Answer

Pourquoi le MsgBox ?  Pour vérifier mon test et te montrer l'utilisation.

Pour toi :

Private Sub UserForm_Initialize()
    Dim MyRange As Range
    Dim ToutesLesCellsSontVides As Boolean
    
ToutesLesCellsSontVides = True

For Each MyRange In Range("activités")
    If MyRange <> vbNullString Then
        ToutesLesCellsSontVides = False
    End If
Next MyRange

    If ToutesLesCellsSontVides Then
        SUP.Enabled = True
        MODIFIER.Enabled = True
        SAISIR.Enabled = False
    End If
End Sub

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

eastpeople · Answer

Merci beaucoup beaucoup Mortalino.

Probleme Code enable

10 réponses

Votre réponse

Discussions similaires