If Not Intersect erreur 400 affichage modale
Bon me voila bloqué sur un autre point plutot agaçant.
Private Sub worksheet_selectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A12:A28")) Is Nothing Then
If STMOD = True Then ' Si le mode automatisé est activé
If VEROU = False Then ' Voici ma piètre tentative pour éviter error 400
If Selection = blank Then ' Si la cellule est vide
UFchoix.Show ' Affiche le formulaire
End If
End If
End If
End If
Un bouton dans ma userForm utilise la syntaxe suivante :
Private Sub CHor_Click()
VEROU = True
ActiveCell.Value = "011419NM"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "Texte"
ActiveCell.Offset(1, -1).Select
ActiveCell.Value = "011419NM"
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "encore du texte"
Quand le active cell revient dans la colone A le If Not Intersect relance la UserForm malgré la variable VEROU.
À l'aide
P.S. : Y'a t'il des ouvrages que vous me conseillerriez ? Je ne maitrise aucun langage et j'en ai marre de faire de la mauvaise programmation si au moins je connaissait une syntaxe par coeur a titre de comparaison...
Salut le forum
A mettre dans le début d'un module
Public VERROU as BooleanMytå
Salut à tous,
Merci Mytå
Le problème n'est pas résolu, même l'utilisation d'une varialbe ne semble fonctionner.
Je tente maintenant de modifier la condition.
Peut-on vérifier la condition selon laquelle une UserForm est affichée ou caché ?
If UFchoix.Hidden = True Then
UFchoix.Show
End If
Cette façon de faire me retourne "Membre de méthode ou de donnés introuvable"
Il doit pourtant y avoir moyen...
-- 07 Juil 2010, 08:01 --
Voila! J'ai trouvé la solution à mon problème.
Pour tester si la userform est affichée ou non :
Soluce ---> if UserForm1.visible then
et non ---> if UserForme.hidden = true
Yeah! Salutation