Insertion Valeur sous condition

Question

J'ai créé une userform "Clavier" qui permet de saisir des chiffres prédéfini et qui passe à la case suivante dans la colonne E. Exemple : une touche "90" qui en cliquant dessus écris 90 dans une cellule de la colonne E puis passe automatiquement à la cellule suivante. Par contre ce processus doit s'arrêter si la valeur de la colonne A est égal à la cellul renommée "orga". Voici ce que j'ai écris : mais ça bloque sur la ligne "If Active.Cells.... Private Sub Cmdbtn_90_Click() Selection.Activate If Active.Cells(0, -4).Value = Range("Orga").Value Then 'vérification de ce qu'il y a dans la case de la colonne A avec la cellule "orga" MsgBox ("Nombre d'organes observés atteint") Unload Me End If ActiveCell.FormulaR1C1 = "90" ActiveCell.Offset(1, 0).Select End Sub Le fichier comporte bcp de macro, j'espère que mon explication est clair. Merci bien et au plaisir de vous lire, Guiom...

AlgoPlus · Answer

Si la cellule dans la colonne E est sélectionnée avant de lancer l'userform : Selection.Activate est à supprimer S'il s'agit de se positionner sur la cellule de la colonne A de la même ligne que la cellule sélectionnée en colonne E : modifier Active.Cells(0, -4).Value en ActiveCell.Offset(0, -4).Value rajouter Exit Sub après Unload Me pour que les instruction suivantes ne soient pas exécutées FormulaR1C1 est utilisé pour initialiser une cellule avec une formule, pour mettre une valeur, utiliser plutôt: ActiveCell.Value = "90" A+...