Discussion :

[munity]

Salut le phorum

j'ai cherché sans trouver un moyen de coller des valeurs (toujours la même "PERSO") dans une plage de cellule que je sélectionne
exemple
je sélectionne les plages "A1:B5;F1:F5;M1:Q5"
je lance la macro et cela me coller la valeur "PERSO" dans ces plages

quelqu'un aurait il une idée pour me donner une piste ?
j'ai bien vu des moyens de copier/coller mais pas sur un coller et avec une présélection des plages

merci d'avance

david

[Ojanen]

Je suis encore débutant en VBA mais il me semble pour ma part que j'utiliserai une liste déroulante ou une ComboBox, j'afficherai l'ensemble des valeurs de "PERSO" dedans, et ensuite à l'appui sur un bouton, je remplierai mes ActiveCell avec les données de cette Box.

EDIT : il s'agit de la valeur "Perso" et non pas la valeur de "Perso", que je pensais être un tableau. La demarche est tout autre désolé, je me penche dessus et j'essaye de voir si je trouve une solution !

[Pierre Fauconnier]

Salut

Code :

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

range("A1:B5,F1:F5,M1:Q5").Value= "Perso"

Attention, dans une plage VBA, c'est la virgule comme séparateur et non le point-virgule...

[Ojanen]

Bonjour Pierre
Je pense qu'il souhaite écrire dans une plage de cellule active et que la plage selectionnée n'etait qu'un exemple.
Cordialement

[Ojanen]

Je reviens avec une solution trouvée
Je créé un nouveau module dans lequel je rentre le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub ecrireCelluleActive()
 
Dim intervalle As Range
Set intervalle = Selection
 
intervalle = "PERSO"
 
End Sub

Ensuite je crée un bouton sur ma feuille active, je selectionne les cellules que je souhaite et je clique sur le bouton auquel j'ai associé au préalable le module, et PERSO s'ecrit dans toutes les cellules sélectionnées.
Cela repond-il à ta demande ?
Cordialement

[Pierre Fauconnier]

Le principe est le même

Code :

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

Selection.value = "Perso"

[Menhir]

j'ai cherché sans trouver un moyen de coller des valeurs (toujours la même "PERSO") dans une plage de cellule que je sélectionne
exemple
je sélectionne les plages "A1:B5;F1:F5;M1:Q5"

Si tes plages ont été sélectionnées à la main :

Code :

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

Selection.Value = "PERSO"

Si tu fais la sélection par code :
RANGE("A1:B5,F1:F5,M1:Q5").Value = "PERSO"

je lance la macro et cela me coller la valeur "PERSO" dans ces plages

Si c'est toujours la même valeur, inutile de faire un copier/coller.
Il est plus simple de spécifier la valeur de cellule.

j'ai bien vu des moyens de copier/coller mais pas sur un coller et avec une présélection des plages

As-tu expérimenté PasteSpecial (le Paste de l'objet Range) ?
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

[Menhir]

Je reviens avec une solution trouvée
Je créé un nouveau module dans lequel je rentre le code suivant :

Code :

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

1
2
3
4
5
6
7
Sub ecrireCelluleActive()
 
Dim intervalle As Range
Set intervalle = Selection
intervalle = "PERSO"
 
End Sub

Je ne vois pas trop l'intérêt de passer par une variable intermédiaire.

[munity]

merci pour toutes vos réponses
cela fonctionne parfaitement

Code :

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

1
2
3
4
5
6
7
8
 
Sub ecrireCelluleActive()
 
Dim intervalle As Range
Set intervalle = Selection
intervalle = "PERSO" ou Selection.Value = "PERSO"
 
End Sub

merci encore

david

[Ojanen]

Je ne vois pas trop l'intérêt de passer par une variable intermédiaire.

Aucun intérêt, je suis juste débutant je developpe encore toutes les étapes j'ai du mal, mais j'utiliserai ta méthode bien plus courte dès aujourdh'hui !