Discussion :

[will Igetit]

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 mon code pourri

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub essai()
 
Dim truc As String
Dim lacell As Range
 
truc = InputBox("Inscrivez votre commentaire")
lacell = Cells(1, 1)
With lacell
.Addvalue
With .Value
.Visible = True
.Text Text:=truc
End With
End With
 
End Sub

[Laestic]

Bonjour,
mmm d'une part il existe une balise [/code/] (le dièse juste au dessus) pour mettre en forme ton code, et d'autre part... C'est quoi la question?

[will Igetit]

he bien ce code ne fonctionne pas lorsque je rentre mon contenu, que la box s'afffiche , que je la rempli et bien mon entree ne se reflete pas dans la cellule A1 de ma spreadsheet active

[Gorfael]

Salut will Igetit et le forum
Utilise les balises, ça rend le poste plus lisible

With met un préfixe au instructions commençant par un point (ou "!", mais pas là).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub essai()
Dim Truc As String
Dim Lacell As Range
 
truc = InputBox("Inscrivez votre commentaire")
set lacell = Cells(1, "A")
Lacel=truc
End Sub

on peut aussi écire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub essai()
Range("A1")=InputBox("Inscrivez votre commentaire")
End Sub

Le classeur et la feuille sont fixés par défaut à ceux actifs. Si on veut écrire 1 et 2 en A1 et B1 dela feuille F du classeur C:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
WorkBooks("C").sheets("F").range("A1")=1
WorkBooks("C").sheets("F").range("B1")=2
 
'Mais quand on est feignant -------------
With WorkBooks("C")
     .sheets("F").range("A1")=1
     .sheets("F").range("B1")=2
end with
'ou encore ---------------------------
With WorkBooks("C").sheets("F")
     .range("A1")=1
     .range("B1")=2
end with
'ou encore ---------------------------
With WorkBooks("C")
     with .sheets("F")
          .range("A1")=1
          .range("B1")=2
     end with
end with

Tout les codes on la même signification. Je n'emploie pas ".Value", parce que c'est la méthode/propriété par défaut
A+
Edit
au lieu de jouer à celui qui connaît, utilise Range("adresse de la plage").
Quand tu mets le point, VBA te propose une liste déroulant des Propriétés/méthodes qui sont valides pour l'objet Range. Une fois que ça fonctionne, tu peux allèger le code en employant d'autres notations. Les propriétés/méthodes sont liées à lobjet à partir du moment où il est défini correctement.
Tu ne peux pas inventer, utiliser des propriétés/méthodes non reconnues valides pour un objet par excel.

[will Igetit]

Merci beaucoup you re the best!

cela dit, je pense que tu pourras m'etre encore d'une grande aide. en fait pour tout t'expliquer je travaille sur une enorme spreadsheet (avec un livre de VBA en allemand qui ne m'est pas d'un grand recours.. puisqu'il est en allemand lol) et j'ai un certain nombre de donnee a incrementer pour faire tourner les fonctions que j'ai mis dans cette feuille . Ce que j'essai de faire, c'est d'avoir une box qui me demande de placer ces donnees sans aller chercher les cellules, ce que grace a toi je peux desormais faire. cependant , j'aurais aime pouvoir les rentrer toutes d'une traite et pouur cela j'ai cru comprendre que je dois utiliser une userform mais le ddictatel m'est bien obscur... saurais tu la demarche a suivre?
encore merci en tout cas pour ton aide
A+
Will

[Gorfael]

Salut will Igetit et le forum
Pense à préciser que ton Excel est en allemand. En VBA, c'est pas génant, mais pour les formules...

Si tu veux remplir des cellules à partir de Textbox, il faut connaître la TextBox et l'adresse de destination (complête).
Le plus simple, c'est nun fichier d'essais avec le réroulement de ce que tu fait (manuellement, physiquement).
A+