Se connecter avec
S'enregistrer | Connectez-vous
Votre question

bouton et .caption

Dernière réponse : dans Programmation
Partagez
9 Février 2012 02:38:25

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:

  1. Dim rnG As Range
  2. With ActiveSheet
  3. Range("position").Select
  4. Set rnG = Selection
  5. Set btN = .Buttons.Add(rnG.Left, rnG.Top, rnG.Width, rnG.Height)
  6. With btN
  7. .Caption = Range("A1").Value & Chr(10) & Range("A2").Value & Chr(10) & Range("A3").Value & Chr(10) & Range("A5").Value
  8. .OnAction = "modifierrendez_vous"
  9. end with....


l erreur est a la ligne .caption...

Autres pages sur : bouton caption

9 Février 2012 09:26:59

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.
  1. ' // Beurk
  2. Range("position").Select
  3. Set rnG = Selection
  4. ' // Tellement mieux à TOUS les points de vue.
  5. 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 ?
m
0
l
9 Février 2012 13:07:44

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!
m
0
l
Contenus similaires
9 Février 2012 15:31:17

Pas de problème :) 
m
0
l
11 Février 2012 17:00:37

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

aucune idée de son sens réel..
m
0
l
13 Février 2012 10:27:57

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 :
  1. .Caption = Range("A1").Value
  2. .Caption = .Caption & Chr(10) & Range("A2").Value
  3. .Caption = .Caption & Chr(10) & Range("A3").Value
  4. .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.
m
0
l