Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Cours vba les controles Cours VBA les contrôles http www excel-pratique com fr vba controles php Les contrôles ont également toute une panoplie de propriétés et d'événements qui di ?èrent d'un contrôle à l'autre nous ne verrons ici que quelques unes des n

Cours VBA les contrôles http www excel-pratique com fr vba controles php Les contrôles ont également toute une panoplie de propriétés et d'événements qui di ?èrent d'un contrôle à l'autre nous ne verrons ici que quelques unes des nombreuses possibilités liées à ces contrôles Commencez par ajouter les contrôles suivants un intitulé Label une zone de texte TextBox et un bouton CommandButton Modi ?ez le nom et les propriétés des contrôles dont la propriété Caption pour le texte pour obtenir ceci Pour le moment lorsque l'on rentre un numéro et que l'on valide il ne se passe rien Pour y remédier nous allons commencer par ajouter un événement pour entrer la valeur de la zone de texte dans la cellule A et fermer l'UserForm En double-cliquant sur un contrôle vous aurez accès à ceci La liste déroulante contient les di ?érents contrôles ainsi que l'UserForm Choisissez le bouton et l'événement Click Private Sub CommandButtonvaliderClick Range A TextBoxnumero Value 'TextBoxnumero est le nom de la zone de texte 'Value est la propriété contenant la valeur de la zone de texte Unload Me 'Unload ferme l'UserForm 'Le nom de l'UserForm a été remplacé par Me puisque ce code est placé dans l'UserForm à fermer End Sub La valeur est alors enregistrée dans A avant la fermeture de l'UserForm Ajoutez un second Label et modi ?ez les propriétés suivantes Caption Forecolor couleur rouge et Visible False pour masquer le contrôle par défaut Nous allons maintenant ajouter un événement qui s'active au changement de valeur de la zone de texte et qui va a ?cher le message d'erreur si la valeur n'est pas numérique of Private Sub TextBoxnumeroChange If IsNumeric TextBoxnumero Value Then 'SI valeur numérique Labelerreur Visible False 'Label masqué Else 'SINON CCours VBA les contrôles Labelerreur Visible True 'Label visible End If End Sub Le test de la valeur est e ?ectué à chaque entrée de caractère Il nous reste encore à empêcher la validation du formulaire si la valeur n'est pas numérique Private Sub CommandButtonvaliderClick If IsNumeric TextBoxnumero Value Then 'SI valeur numérique Range A TextBox numero Value 'Copie en A Unload Me 'Fermeture Else 'SINON MsgBox Valeur incorrecte End If End Sub http www excel-pratique com fr vba controles php Pour ne pas laisser vide la partie droite de l'UserForm lorsqu'il n'y a pas d'erreur nous pouvons la réduire en modi ?ant la propriété Width de l'UserForm Private Sub TextBoxnumeroChange If IsNumeric TextBoxnumero Value Then 'SI valeur numérique Labelerreur Visible False 'Label masqué Me Width 'Largeur de l'UserForm Else 'SINON Label erreur Visible True 'Label visible Me Width 'Largeur de l'UserForm End If End Sub Le ?chier userform xls Aperçu Voici un exemple d'utilisation de cases à cocher Si une case est cochée décochée la valeur de la cellule correspondante sera modi ?ée avec l'événement Click of Private Sub CheckBox Click 'N If CheckBox Value True Then 'Si coché Range A Coché Else 'Si non coché Range A Non coché End If End Sub Private Sub CheckBox Click 'N CCours