Discussion :

[johannj]

Bonjour à tous,
Voilà, j'aimerai gagner un peu de temps pour l'écriture de ma macro et j'ai une question bete, mais je n'ai pas réussi à trouver de réponses sur le forun ou dans l'aide de VBA (j'ai surement pas assez cherché me direz vous )

Voici le code

Code :

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

1
2
3
 
Range("F1").Value = "J"
Range("G1").Value = "T"

Et j'aimerai que cela devienne juste, pour simplifier:

Code :

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

  Range("F1", "G1").Value = ??

Donc, apres le signe "=", il faut que je rentre "J" et "T", mais je mets quoi entre les deux??

Je vais surement gagner le prix de la question la plus idiote !!!

Merci d'avance,
Johann

[drakkar_agfa]

Bonjour,

À mon humble avis, je cois qu'il est possible de faire ceci.
Ce que tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
 Placer "A1", "A2", "T", "J"
 Placer "B1", "B2", "Allo", "Bonjour"
End Sub
Private Sub Placer(C1 As String, C2 As String, V1 As String, V2 As String)
    Range(C1).Value = V1
    Range(C2).Value = V2
End Sub

Si tu as besoin d'appeler souvent la fonction, cela vaut peut-être la peine de créer une fonction de ce genre. Sinon, c'est plustôt une perte de temps!

[laetitia]

bonjour le fil le forum

Code :

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

Range("F1", "G1").Value = Array("j", "t")

[johannj]

Merci à tous les deux,

Comme je l'avais dit, c'était une question idiote!!!

En tour cas,l'idée de créer une fonction est très bonne, vue que je vais devoir le faire plusieurs fois.

Encore merci
johann

[johannj]

Re bonjour,
Petite question pour laetitia..
Si j'ai plus des 2 cellules, il suffit de faire:

Code :

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

Range("F1", "G1", "B1",...).Value = Array("j", "t", "Z", ...)

[laetitia]

re le fil le forum j ai pas teste pourquoi pas!!!