Amartin6
Messages postés44Date d'inscriptiondimanche 30 décembre 2007StatutMembreDernière intervention21 septembre 2009
-
10 mars 2008 à 20:16
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
11 mars 2008 à 00:05
Bonjour,
Concernant le contrôle RefEdit sur Excel, Est-il possible de définir une option pour que ce dernier ne puisse pas séléctionner une plage mais seulement une cellule?
De plus, est-il aussi possible qu'il ne renvoie que la référence de la cellule et non la référence de la feuille avec? Ou comment extraire l'adresse de la cellule dans par exemple "'Feuille1!B24" et ainsi obtenir que B24?
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 10 mars 2008 à 22:26
Ou encore...
Tu peux utiliser Instr pour vérifier si le : est présent dans l'adresse et envoyer un message, le cas échéant... "Hey le pit, c'est une cellule, pas un Range"
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Vous n’avez pas trouvé la réponse que vous recherchez ?
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 10 mars 2008 à 23:19
Salut,
Pour ta premiere question je ne connais aucune limitation de ce genre sur le RefEdit. Peut etre en passant par les API windows ?... mais cela me parait compliquer pour pas grand chose.
Tu pourrais substiter l'utilisation du refedit a un userform qui fait la meme chose. Comme un exemple vaut mieux qu'un long discours, une solution complete a ton probleme sera disponible dans mes source des sa validation par les admins.
En attendant une solution a ta deuxieme question :
Dim RefCellule As String
If RefEdit1.Value <> "" Then
ActiveSheet.PageSetup.PrintArea = RefEdit1.Value
'ici on cherche la position du point d'exclamation puis on garde tout ce qui ce trouve a sa droite
RefCellule = RefEdit1.Value
RefCellule = Right(RefCellule, Len(RefCellule) - Instr(1, RefCellule,"!", 1))
MsgBox RefCellule
End If