Rechercher
Se connecter avec
S'enregistrer | Connectez-vous

bouton et .caption

Dernière réponse : dans Programmation
Partagez

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

Lassé par la pub ? Créez un compte

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 ?
  • zeb a édité ce message
  • zeb a édité ce message

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!

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.
Lassé par la pub ? Créez un compte
 
Posez votre question