Contenu récent par Dudu2

En effet, je viens de le vérifier. Merci du tuyau. Le clic déclenchant un OnAction de la Shape ne sélectionne pas la Shape.

Un exemple.... Sub a() Dim ShapeRange As ShapeRange Dim Shape As Shape Dim i As Integer On Error Resume Next Set ShapeRange = Selection.ShapeRange On Error GoTo 0 If ShapeRange Is Nothing Then MsgBox "Aucune Shape sélectionnée" Exit Sub...

Bonjour, Le problème, même si on peut déterminer que l'objet sélectionné est bien une Shape avec un Selection.ShapeRange, c'est qu'il n'y a aucun évènement SelectionChange() déclenché lorsqu'on sélectionne une Shape. La seule méthode est le OnAction (rappelé par @Dranreb) qui évidemment implique...

Je ne pensais pas que cette petite question génèrerait autant de jus de cerveau ! 😅

Ouais, alors ça j'y capte rien de rien.

Bonjour les likeurs, A choisir j'aime bien ton evaluate(). Par contre le "0" je pige pas pourquoi tu le mets. Mais il laisse passer 12.5/4.25

J'ai mis: Par exemple: 123/456789 ou 1/789 ou 123/5 ou 123/4156 C'est ptet les autres propositions qui t'ont perturbé ou le fait que j'avais essayé "*#/*#" en pensant que "*#" représenterait un nombre quelconque de chiffres, mais ce n'est pas le cas. Il n'y a rien pour représenter un nombre...

@patricktoulon, pas sûr de capter ton affaire de 2 chiffres. 3/12 -> ça peut pas marcher 215/3 -> ça peut pas marcher 25/84a -> ça va marcher alors que ça devrait pas. a25/84 -> ça va marcher alors que ça devrait pas.

Y a pas de pattern pour représenter une suite de chiffres de longueur quelconque. Alors faut faire des essais jusqu'à trouver en limitant à par exemple 10 chiffres. Private Function IntegerSlashInteger(ByVal S As String) As Boolean Dim i1 As Integer Dim i2 As Integer S =...

Merci à tous pour vos propositions très créatives 👍

Bonjour, Je m'y perds avec ces foutus Like... Je dois vérifier qu'une chaine saisie est une suite de chiffres [0-9] de longueur quelconque/une suite de chiffres [0-9] de longueur quelconque. If Chaine like "*#/*#" then MsgBox "OK" '??????????????????????????????????

Voilà un fichier. @Dranreb, en effet, ça m'était sorti de l'esprit le OnAction. Merci du rappel.

Bonjour, Quel évènement ou technique utiliser pour détecter qu'une Shape a été sélectionnée. Worksheet_SelectionChange() ne fonctionne pas (fait toujours référence à une Target Range dans ses paramètres) Worksheet_BeforeDoubleClick() ne fonctionne pas (fait toujours référence à une Target...

Bonjour, @nullosse, tu sais des choses qui m'impressionnent !

Si tu consultes la ressource, c'est dit: Le fichier à télécharger Custom MsgBox.xlsm contient: Le UserForm Msg à importer dans le projet VBA. Le Module_Test comme exemple de mise en œuvre. Et aussi dans la ressource: