VBA - Remplir le contenu de la plage active

Résolu
jokair8 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
jokair8 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,


Sous excel, en VBA, je cherche a remplir le contenu avec le texte suivant : "-" (tiret du 6) pour les cellules vides de la plage (range) sélectionnée.

Merci pour votre aide!

j'ai essayé ça sans succès:

Private Sub cmd_tiret_Click()

If Activeworksheet.Range(ActiveCell.CurrentRegion.End(xlUp).row) = "" Then _
Activeworksheet.Range(ActiveCell.CurrentRegion.End(xlUp).row) = "-"

End Sub

4 réponses

jokair8 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   2
 
Ca marche !!!

Merci
2
wilfried_42 Messages postés 907 Date d'inscription   Statut Contributeur Dernière intervention   245
 
bonjour

essaye cela
 dim maplage as range
 set maplage = activecell.currentregion.specialcells(xlcelltypeblanks)
 maplage.value = "'-" '- etant un caractere mathematique, il faut une appostrophe devant pour lui dir que c'est du text

si pas bon :
 dim maplage as range, macel as range
 set maplage = activecell.currentregion.specialcells(xlcelltypeblanks)
 for each macel in maplage
      macel = "'-" '- etant un caractere mathematique, il faut une appostrophe devant pour lui dir que c'est du text
 next 
2
jokair8 Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   2
 
C'est pas mal du tout ça, le hic c'est que l'action (remplir les cases vides par des tirets) ne s'effectue pas sur la plage sélectionnée mais sur une plage plus grande...

Je vais chercher avec ce que tu viens de me donner !

Merci encore
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonsoir,
tu as déjà posé cette question hier http://www.commentcamarche.net/forum/affich 7988031 affecter un texte a des cellules vides#3.
Ca serait bien de répondre...
eric
2
wilfried_42 Messages postés 907 Date d'inscription   Statut Contributeur Dernière intervention   245
 
re:

remplacer activecell.currentregion par selection, pour ne faire que la plage selectionnée
2