Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 26/05/2011, 17h53   #1
Membre du Club
 
Homme hadrien
Apprenti Ingénieur
Inscription : mars 2011
Messages : 86
Détails du profil
Informations personnelles :
Nom : Homme hadrien
Localisation : France

Informations professionnelles :
Activité : Apprenti Ingénieur
Secteur : Bâtiment Travaux Publics

Informations forums :
Inscription : mars 2011
Messages : 86
Points : 56
Points : 56
Par défaut Selection plage de cellule d'un tableau

Bonjour à tous,

J'ai un tableau avec des cellules fusionnées verticalement, et je voudrait modifier le contour ("borders"), de certaines lignes mais je ne peux pas les sélectionner à cause de la fusion. Si quelqu'un sait comment on sélectionne une plage de cellules, cela me permettrai de modifier mon tableau partie par partie.

Merci d'avance

Hadrien
FtF Nemesis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/05/2011, 19h35   #2
Modérateur
 
Homme Christophe CHAPAT
Spécialiste progiciel
Inscription : février 2010
Messages : 984
Détails du profil
Informations personnelles :
Nom : Homme Christophe CHAPAT
Âge : 25
Localisation : France, Haute Loire (Auvergne)

Informations professionnelles :
Activité : Spécialiste progiciel
Secteur : Service public

Informations forums :
Inscription : février 2010
Messages : 984
Points : 1 592
Points : 1 592
Envoyer un message via MSN à carden752
Bonjour,

Essaye de sélectionner les cellules en te déplaçant au clavier.
Quelque chose du genre à adapter
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'sélection du tableau
ActiveDocument.Tables(1).Select 
'Mettre la sélection sur la ligne au dessus
Selection.MoveUp unit:=wdLine, Count:=1
'remettre la sélection sur la première cellule du tableau
Selection.MoveDown unit:=wdLine, Count:=1
'Etendre la sélection sur la cellule en dessous
Selection.MoveDown unit:=wdLine, Count:=1, Extend:=wdExtend
 
'Appliquer les options de bordures
Options.DefaultBorderLineWidth = wdLineWidth450pt
    With Selection.Cells
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
End with
__________________
Cordialement,
Christophe

Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche
carden752 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 30/05/2011, 13h37   #3
Membre du Club
 
Homme hadrien
Apprenti Ingénieur
Inscription : mars 2011
Messages : 86
Détails du profil
Informations personnelles :
Nom : Homme hadrien
Localisation : France

Informations professionnelles :
Activité : Apprenti Ingénieur
Secteur : Bâtiment Travaux Publics

Informations forums :
Inscription : mars 2011
Messages : 86
Points : 56
Points : 56
Merci
FtF Nemesis est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 16h56.


 
 
 
 
Partenaires

Hébergement Web