[VBA] utiliser la valeur affichée d'une cellule

utiliser la valeur affichée d'une cellule [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 18-10-2006 à 17:32:46    

Bonjour à tous,  
 
J'ai passé une heure à chercher sans résultats, je pose donc la  
question.  
Est ce que quelqu'un connaîtrait le moyen de mettre dans une variable  
la valeur affichée d'une cellule ?  
 
 
Mon problème se pose pour une date : je veux récupérer la valeur  
affichée "oct-06" qui provient de la mise en forme automatique de  
01/10/2006.  
 
 
J'ai essayé directement : ça ne marche pas.  
J'ai essayé en passant par une case fantôme et en faisant un  
PasteSpecial (xlPasteValues)( : ça ne marche pas.  
 
 
J'ai regardé tous les articles d'aide concernant display, label,  
caption et je n'ai rien vu d'intéressant.  
 
 
Je vous remercie pour votre aide,  
 
 
Lycaon  
 
 

Reply

Marsh Posté le 18-10-2006 à 17:32:46   

Reply

Marsh Posté le 18-10-2006 à 17:52:09    

Bonsoir,
 
 monstring = Format(Selection, Selection.NumberFormat)
Cordialement

Reply

Marsh Posté le 19-10-2006 à 14:43:40    

Merci à toi.
 
J'ai essayé mais il ne reconnaît manifestement pas l'instruction Format.
Voilà ce que j'ai inscrit :  
 
M = Format(Range("B" & Prem - 4), Range("B" & Prem - 4).NumberFormat)
 
Ma variable Prem est parfaitement défninie quand j'essaye de lui faire calculer cette instruction (et supérieur à 5).
Est ce que quelqu'un voit où ça pourrait coincer ?
 
Merci à tous
 
Lycaon

Reply

Marsh Posté le 19-10-2006 à 16:10:14    

Bonsoir,
pas le temps de regarder ce qiu coince, mais essayes :
 
range(........).select
suivi de:
M= Format(Selection, Selection.NumberFormat)  
@+

Reply

Marsh Posté le 19-10-2006 à 16:20:21    

déjà testé. marche pô :)

Reply

Marsh Posté le 19-10-2006 à 18:09:35    

bonsoir,
tu as bien Visual basic pour applications dans les références?
@+

Reply

Marsh Posté le 03-11-2006 à 11:06:37    

Bonjour,
 
j'ai placé la fonction TODAY() en A1 pour avoir la date
J'ai formaté la cellule en "mmm/aaaa" afin d'obtenir "nov/2006"
 
Je place un petit bouton pour essayer :
 

Private Sub CommandButton1_Click()
Dim texte As String
texte = Range("A1" ).Text
MsgBox texte, vbInformation, "Hello"
End Sub


 
Ca marche !


---------------

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed