Erreur sur Masque de saisie

Question

Je débute en VBA et je souhaite créer un masque de saisie. J'ai une erreur dans ma formule ci-dessous, je ne la trouve pas ! ( voir ci-dessous). Merci pour votre aide : Private Sub CommandButton1_Click() Dim ctrl As Control Dim colonne As Integer Dim derligne As Integer 'derligne devient la ligne qui suit la dernière valeur du tableau derligne = Sheets("SPSH").Range("A50000").End(x1Up).Row + 1 'balaye les control un par un avec le For...Next For Each ctrl In UserForm1.Controls 'la valeur de "colonne" est égale à la valeur du Tag du controle colonne = Val(ctrl.Tag) 'si la valeur du Tag&gt;0 l'intersection n° de dernligne et n° de colonne 'est une cellule qui contiendra la valeur "ctrl" cad celle contenu dans le Control If colonne &gt; 0 Then Sheets("SPSH").Cells(derligne, colonne) = ctrl 'Next : on passe au control suivant Next End End Sub...

ThauThème · Answer

Difficile de t'aider sans savoir quelle est l'erreur et où elle se situe !... Ton code semble correct, je l'ai un peu modifié, regarde si ça fonctionne. Sinon pense à être plus précis... Private Sub CommandButton1_Click() Dim ctrl As Control Dim colonne As Integer Dim derligne As Integer 'derligne devient la ligne qui suit la dernière valeur du tableau derligne = Sheets("SPSH").Range("A50000").End(x1Up).Row + 1 'balaye les control un par un avec le For...Next For Each ctrl In UserForm1.Controls If ctrl.Tag &lt;&gt; "" Then 'la valeur de "colonne" est égale à la valeur du Tag du controle colonne = CInt(ctrl.Tag) 'si la valeur du Tag&gt;0 l'intersection n° de dernligne et n° de colonne 'est une cellule qui contiendra la valeur "ctrl" cad celle contenu dans le Control Sheets("SPSH").Cells(derligne, colonne).Value = ctrl.Value End If Next ctrl End Sub...

ThauThème · Answer

Arf ! Je viens juste de télécharger sur mon nosmartphone l'application "Tirage des vers du nez" ! Elle est géniale... Quelle est la ligne de code qui plante ?...

ThauThème · Answer

Tu as écrit x 1 Up au lieu de xlUp. Un "un" à la place d'un "l".....

ThauThème · Answer

Arf ! Nulle cette application "Tirage des vers du nez"... Quel est le message ? Que valent les variables derligne et colonne au moment de l'erreur ? l'onglet SPSH est-il correctement écrit ? Pas un espace avant ou après à rajouter ? Abng vraiment fait un effort !.....

ThauThème · Answer

Sans le fichier difficile de t'aider. Tu n'as pas répondu à mes questions sur la valeur des variables... Ce qui pourrait causer un plantage sur cette ligne : • la variable derligne &lt;1 ou supérieure au nombre de lignes de l'application (peux varier en fonction de la version d'Excel) • la variable colonne &lt;1 ou supérieure au nombre de colonne de l'application (peux varier en fonction de la version d'Excel) • un contrôle qui n'a pas de propriété &#91;Value&#93; (une label par exemple) • pour le nom de l'onglet on aurait un autre erreur si il avait été mal orthographié... J'opterais pour le contrôle qui n'aurait pas de propriété &#91;Value&#93; mais si tu veux une solution il faudra te décider à enfin mettre ton fichier en pièce jointe.....

ThauThème · Answer

Re, Tu as oublié le fichier.....

ThauThème · Answer

Re,

Il y a deux choses que je ne comprends pas :

1 - pourquoi une frame avec 12 saisons (de 2015/2016 à 2026/2027) si ces renseignements ne sont pas reportés dans l'onglet SPSH ?

2 - Pourquoi l'État de la Licence (4 états aux choix dans une Frame) qui visiblement doit être reporté dans la colonne A, contient une couleur (ligne 2) alors que je n'ai trouvé aucune Mise en Forme Conditionnelle qui pourrait transformé l'état en couleur ? De plus, comme tu te sers de la colonne A comme référence pour la dernière ligne, si elle est vide tu ne rempliras que la ligne 2 !...

En pièce jointe ton fichier modifié. Tu verras j'ai rajouté un onglet Listes. Garde-le et ne supprime jamais la première ligne de celui-ci. Modifie avec des données correctes (j'ai mis n'importe quoi). Ces données alimenteront automatiquement la ComboBox1 (Statut) et la ComboBox2 (Catégorie).

Maintenant l'Userform tourne sans problème sauf que la saison ne sont pas reportées...

9abng-v01.xlsm (29.88 Ko)

ThauThème · Answer

Je reste attentif a ton fil mais je ne peux pas m'engager à être le tuteur de qui que ce soit car il m'arrive d'être indisponible pendant de longues périodes ou, tout simplement, d'avoir la flemme pendant de longues périodes.....