Je souhaite modifier le commentaire existant d'une cellule (qui se trouve
dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve
sur ma feuille active
Voici ce que j'ai imaginé
Dim I
1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N°
d'inputation
2-Worksheets("liste1").Cells.Range("M" & I).Select
3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True
4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text
5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur
(438) car les lignes 123 et 5 fonctionnent
Y at'il une bonne âme pour m'aider ?
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Vincnet.
La ligne 4 toute seule suffit, en remplaçant textbox1.text par textbox1.value ! (le reste n'apporte rien sauf un peu de temps de traitement par la macro), enfin, je crois parce que je ne l'ai pas testé... -- A+
V.
Bonsoir à toutes et tous,
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
La ligne 4 toute seule suffit, en remplaçant textbox1.text par textbox1.value !
(le reste n'apporte rien sauf un peu de temps de traitement par la macro),
enfin, je crois parce que je ne l'ai pas testé...
--
A+
V.
Bonsoir à toutes et tous,
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve
dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve
sur ma feuille active
Voici ce que j'ai imaginé
Dim I
1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N°
d'inputation
2-Worksheets("liste1").Cells.Range("M" & I).Select
3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True
4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text
5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur
(438) car les lignes 123 et 5 fonctionnent
Y at'il une bonne âme pour m'aider ?
Merci d'avance
La ligne 4 toute seule suffit, en remplaçant textbox1.text par textbox1.value ! (le reste n'apporte rien sauf un peu de temps de traitement par la macro), enfin, je crois parce que je ne l'ai pas testé... -- A+
V.
Bonsoir à toutes et tous,
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
Lustrucru
Désolé mais j'ai toujours la même erreur : "Propriété ou methode non géré par cet objet (je nage la brasse coulée)
La ligne 4 toute seule suffit, en remplaçant textbox1.text par textbox1.value ! (le reste n'apporte rien sauf un peu de temps de traitement par la macro), enfin, je crois parce que je ne l'ai pas testé... -- A+
V.
Bonsoir à toutes et tous,
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
Désolé mais j'ai toujours la même erreur :
"Propriété ou methode non géré par cet objet (je nage la brasse coulée)
La ligne 4 toute seule suffit, en remplaçant textbox1.text par textbox1.value !
(le reste n'apporte rien sauf un peu de temps de traitement par la macro),
enfin, je crois parce que je ne l'ai pas testé...
--
A+
V.
Bonsoir à toutes et tous,
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve
dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve
sur ma feuille active
Voici ce que j'ai imaginé
Dim I
1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N°
d'inputation
2-Worksheets("liste1").Cells.Range("M" & I).Select
3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True
4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text
5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur
(438) car les lignes 123 et 5 fonctionnent
Y at'il une bonne âme pour m'aider ?
Merci d'avance
Désolé mais j'ai toujours la même erreur : "Propriété ou methode non géré par cet objet (je nage la brasse coulée)
La ligne 4 toute seule suffit, en remplaçant textbox1.text par textbox1.value ! (le reste n'apporte rien sauf un peu de temps de traitement par la macro), enfin, je crois parce que je ne l'ai pas testé... -- A+
V.
Bonsoir à toutes et tous,
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
anonymousA
Bonjour
si on suppose que ton textbox est situé en Feuil1 (attention ici Feuil1 est le codename de la feuille et non le nom d'onglet correspondant)
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
Bonjour
si on suppose que ton textbox est situé en Feuil1 (attention ici Feuil1
est le codename de la feuille et non le nom d'onglet correspondant)
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve
dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve
sur ma feuille active
Voici ce que j'ai imaginé
Dim I
1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N°
d'inputation
2-Worksheets("liste1").Cells.Range("M" & I).Select
3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True
4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text
5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur
(438) car les lignes 123 et 5 fonctionnent
Y at'il une bonne âme pour m'aider ?
Merci d'avance
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
Lustrucru
Merci à tous, Cela fonctionne Bonne soirée
"anonymousA" wrote:
Bonjour
si on suppose que ton textbox est situé en Feuil1 (attention ici Feuil1 est le codename de la feuille et non le nom d'onglet correspondant)
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
Merci à tous,
Cela fonctionne
Bonne soirée
"anonymousA" wrote:
Bonjour
si on suppose que ton textbox est situé en Feuil1 (attention ici Feuil1
est le codename de la feuille et non le nom d'onglet correspondant)
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve
dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve
sur ma feuille active
Voici ce que j'ai imaginé
Dim I
1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N°
d'inputation
2-Worksheets("liste1").Cells.Range("M" & I).Select
3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True
4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text
5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur
(438) car les lignes 123 et 5 fonctionnent
Y at'il une bonne âme pour m'aider ?
Merci d'avance
Je souhaite modifier le commentaire existant d'une cellule (qui se trouve dans la Liste1) en mettant du texte dans un textbox multiligne qui se trouve sur ma feuille active Voici ce que j'ai imaginé
Dim I 1-I = Worksheets("resultats").Cells.Range("o1") + 1 'je récupére un N° d'inputation 2-Worksheets("liste1").Cells.Range("M" & I).Select 3-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = True 4-Worksheets("liste1").Cells.Range("M" & I).Comment.Text = textbox1.text 5-Worksheets("liste1").Cells.Range("M" & I).Comment.Visible = False
Cela ne marche pas que diable, c'est ligne 4 qui me renvoie une erreur (438) car les lignes 123 et 5 fonctionnent Y at'il une bonne âme pour m'aider ? Merci d'avance
