bouton et .caption

PATPOWER

Habitué
bonjour,
je creer un bouton avec un code qui marche bien, mais voila que si je change les "A" pour des "F" ca me dit erreur de compatibilité de type ou quelquechose du genre..voici le code:

Code:
Dim rnG As Range
With ActiveSheet
Range("position").Select
Set rnG = Selection
Set btN = .Buttons.Add(rnG.Left, rnG.Top, rnG.Width, rnG.Height)
With btN
.Caption = Range("A1").Value & Chr(10) & Range("A2").Value & Chr(10) & Range("A3").Value & Chr(10) & Range("A5").Value
.OnAction = "modifierrendez_vous"
end with....

l erreur est a la ligne .caption...
 

zeb

Modérateur
Salut Pat'

Dixit moderator :
Pour faire plus joli, utilise [code=VB][/code].
C'est nouveau ;)

Dixit helper :

1°) Commentaires désagréables

Et si tu nous donnais le message d'erreur exact !

Beurk des ActiveTrucs et des Select.
Code:
' // Beurk
Range("position").Select
Set rnG = Selection
' // Tellement mieux à TOUS les points de vue.
Set rnG = Range("position")

M'enfin, c'est quoi ces With imbriqués. Si tu veux te tromper, c'est comme ça qu'il faut faire.

Euh, un With ActiveSheet !!!!!!! Réfléchissez.... :heink:


2°) Question bête

Euh, c'est quoi ton histoire de A par F ?
 

PATPOWER

Habitué
oui je suis pas expert en vba..c est un code copier sur un forum. Merci des clarification! car comme je ne connais pas la vba a fond je n osais rien changer, d autant plus que ca marrchais. Je veut remplacer les valeur A1, A2, A3 et A5 par F1 ,F2 F3, et F4 dans la ligne .caption.

Le message d erreur exact je vais vérifier ce soir, la cui au boulot donc pas acces! En attendant je vais simplifier le code comme je peut!
 

PATPOWER

Habitué
le message d erreur est: erreur d execution '13': incompatibilité de type

aucune idée de son sens réel..
 

zeb

Modérateur
Je ne sais pas non plus.
Il semble qu'il y a un problème avec une valeur en particulier.

Décompose ta concaténation pour "voir" quelle cellule pose problème :
Code:
.Caption = Range("A1").Value 
.Caption = .Caption  & Chr(10) & Range("A2").Value 
.Caption = .Caption  & Chr(10) & Range("A3").Value 
.Caption = .Caption  & Chr(10) & Range("A4").Value

Ensuite, regarde bien la cellule incriminée et son contenu.

Dans un second temps, Value n'est peut-être pas la propriété adéquate. Regarde aussi du côté de Text.
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 058
Membres
1 586 285
Dernier membre
LeFront
Partager cette page
Haut