Excel macros

tjrsperdu -  
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
    1. 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
      1. 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
        1. nebulus
          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
          2. 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
            1. nebulus
              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
              1. tjrsperdu
                non meme sur les autres cellules c'est pareil par contre la case n"est pas vide.
                0
                1. nebulus
                  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
                  1. cocophotos
                    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
                    1. cocophotos
                      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
                      1. 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
                          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
                      2. 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
                        1. nana
                          texte_commantaire est une variable pas une chaine...
                          0