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

tjrsperdu
 
alo ?
personne ?
bonjour,

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

merci
0
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
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
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

Vous n’avez pas trouvé la réponse que vous recherchez ?

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