Excel macros

tjrsperdu -  
 nana -
bonjour j'ai un probleme de generation de numero de cellule et je sais pas comment faire

par exemple
Sub gnfng()
x = 3
numeroK7 = 3
num_cellule = Chr(x + 64) & numeroK7
Range(num_cellule).AddComment
Range(num_cellule).Comment.Visible = False
Range(num_cellule).Comment.Text Text:=texte_commentaire
End Sub
ne fonctionne pas alors que si on verifie l'etat de num_cellule pendant l'execution il prend bien une valueur sous la forme
range("LETTREchiffre").---------

comment que je peux faire ? merci

13 réponses

  1. tjrsperdu
     
    alo ?
    personne ?
    bonjour,

    je n'ai pas encore trouvé de solution et j'ai tjrs besoin de votre aide.

    merci
    0
  2. tjrsperdu
     
    bon j'ai tanter une execution pas a pas en activant les espions

    c'est bien le range............. qui echoue
    comme si la chaine de caractere generee dans la variable etait pas "C3" !

    je vous en suplie repondez moi y'a vraiment urgence la...
    0
  3. tjrsperdu
     
    he @!!*~# tjrs parsonne....
    trop peu de connaissance VB pour m'en sortir....et trop peu de BONs dans ce domaine....sur le site....
    0
  4. nebulus Messages postés 47 Statut Membre 4
     
    Salut,

    Il te donne quoi comme erreur ?
    Parce que j'ai copié/collé ta macro et chez moi ça marche! J'ai juste du rajouter une ligne :
    texte_commentaire = "ceci est un test"
    avant l'utilisation de celui-ci.

    @+
    Nebulus
    En route pour de nouvelles aventures !
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. tjrsperdu
     
    Salut,
    ben ca me repond le message universel excel
    c'est a dire "erreur definie par l'application" bref le message universel VBA quand il tourne dans excel et que c'est pas une erreur de syntaxe ni de valeur.
    0
  7. nebulus Messages postés 47 Statut Membre 4
     
    A tout hasard, est-ce que les cellules sur lesquelles tu fait tourner cette macro auraient déjà un commentaire ?
    Parce que, la macro fonctionne donc bien chez moi, mais si je l'exécute une seconde fois, ça provoque cette erreur et là c'est dû au AddComment sur une cellule qui en comporte déjà un...

    @+
    Nebulus
    En route pour de nouvelles aventures !
    0
  8. tjrsperdu
     
    non meme sur les autres cellules c'est pareil par contre la case n"est pas vide.
    0
  9. nebulus Messages postés 47 Statut Membre 4
     
    Alors là, j'vois pô !?? :o
    J'ai pourtant repris le code que tu as mis comme exemple tel quel... !?
    Il doit quand même bien y avoir quelque chose qui diffère...

    @+
    Nebulus
    En route pour de nouvelles aventures !
    0
  10. cocophotos Messages postés 142 Statut Membre 22
     
    salut, essaye voir ca, la ca marche chez moi:

    Sub gnfng()
    x = 3
    numeroK7 = 3
    num_cellule = Chr(x + 64) & numeroK7
    Dim texte_commentaire As String
    texte_commentaire = "ceci est un texte"
    Range(num_cellule).AddComment
    Range(num_cellule).Comment.Visible = False
    texte_commentaire = "ceci est un test"
    Range(num_cellule).Comment.Text Text:=texte_commentaire
    End Sub

                    Cocophotos   
    L’espoir fait vivre, et oui, c’est ainsi !
    0
  11. cocophotos Messages postés 142 Statut Membre 22
     
    attends ya un prob essai plutot comme ca c'est mieux:

    Sub gnfng()
    x = 3
    numeroK7 = 3
    num_cellule = Chr(x + 64) & numeroK7
    Dim texte_commentaire As String
    texte_commentaire = "Ceci est un test"
    Range(num_cellule).AddComment
    Range(num_cellule).Comment.Visible = False
    Range(num_cellule).Comment.Text Text:=texte_commentaire

    End Sub

                    Cocophotos   
    L’espoir fait vivre, et oui, c’est ainsi !
    0
  12. tjrsperdu
     
    en fait j'y comprend rien ca merde alors que je l'ai essaye sur excel 2000 & 97 sur 4 machines differentes ca ne marche jamais c'est tjrs le meme probleme...

    incomprehenssible....

    surtout si vous ca marche c'est pas possible qu'ici ca marche pas....
    0
    1. cocophotos Messages postés 142 Statut Membre 22
       
      Bonjour,

      Essai de réinstaller le logiciel, enfin je sais pas voila quoi!

      Allé bonne aprem

                      Cocophotos   
      L’espoir fait vivre, et oui, c’est ainsi !
      0
  13. lemacrophage
     
    La solution, très simple:

    Sub gnfng()
    x = 3
    numeroK7 = 3
    num_cellule = Chr(x + 64) & numeroK7
    Range(num_cellule).AddComment
    Range(num_cellule).Comment.Visible = False
    Range(num_cellule).Comment.Text Text:="texte_commentaire"
    End Sub

    Il manque seulement les guillemets!
    0
  14. nana
     
    texte_commantaire est une variable pas une chaine...
    0