Renseigner une cellule excel
pat redoue
Messages postés
11
Statut
Membre
-
pat redoue Messages postés 11 Statut Membre -
pat redoue Messages postés 11 Statut Membre -
Bonjour,
je fais mes premiers pas en vba et donc mes problemes commencent..
j essai de faire en sorte que des que j'ouvre un certain fichier excel, l' on me demande renseigner le contenu de la premiere cellule et que celle ci se remplisse de son nouveau contenu
voila le code pourri
Sub essai()
Dim truc As CellFormat
truc = InputBox("ERBWEBWEB", "")
myworksheet.Cells(1, 1).Select
Set Cells(1, 1).Value = "truc"
end sub
En fait, j'ai plusieurs info a rentrer et je sais que je dois utiliser un userform(fonction qui m'est tout a fait obscure) pour arriver a ce que je veux idealement a savoir renseigner l'ensemble de mes variables d'une traite> si quelqu'ame genereuse serait m'aider a comprendre le fonctionnement d'une userform...
merci de venir a mon secours...
je fais mes premiers pas en vba et donc mes problemes commencent..
j essai de faire en sorte que des que j'ouvre un certain fichier excel, l' on me demande renseigner le contenu de la premiere cellule et que celle ci se remplisse de son nouveau contenu
voila le code pourri
Sub essai()
Dim truc As CellFormat
truc = InputBox("ERBWEBWEB", "")
myworksheet.Cells(1, 1).Select
Set Cells(1, 1).Value = "truc"
end sub
En fait, j'ai plusieurs info a rentrer et je sais que je dois utiliser un userform(fonction qui m'est tout a fait obscure) pour arriver a ce que je veux idealement a savoir renseigner l'ensemble de mes variables d'une traite> si quelqu'ame genereuse serait m'aider a comprendre le fonctionnement d'une userform...
merci de venir a mon secours...
A voir également:
- Renseigner une cellule excel
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
- Aller à la ligne dans une cellule excel - Guide
1 réponse
voila jai retravailler mon code un peu mais ca fonctionne pas plus personne n'a une idee??
Sub essai()
Dim truc As Integer
Dim lacell As Range
truc = InputBox("ERBWEBWEB", "")
myworksheet.Cells(1, 1).Select
Set lacell = Cells(1, 1)
With lacell
.AddComment
With .Comment
.Visible = True
.Text Text:=truc
End With
End With
End Sub
Sub essai()
Dim truc As Integer
Dim lacell As Range
truc = InputBox("ERBWEBWEB", "")
myworksheet.Cells(1, 1).Select
Set lacell = Cells(1, 1)
With lacell
.AddComment
With .Comment
.Visible = True
.Text Text:=truc
End With
End With
End Sub
