Suppression même colonne sur plusieurs tableaux

Résolu
rb12000 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

je cherche à supprimer le contenu une même colonne dans plusieurs tableaux consécutifs. Je travaille sous Word 2010. J'aimerai pouvoir trouver un système "automatique" pour "anonymiser" cet ensemble de tableau (issu de publipostages).

Peut-être utiliser une macro ? Mais je ne suis pas assez documenté sur le sujet. En gros, j'aimerai que ça me fasse :
Début
Tant que ligne existe Faire
Si nbcolonne=6
Alors Faire supprimer colonnenum3
Sinon passer à la ligne suivante
Fin

Est-ce que quelqu'un sait si cela est possible sous Word ?

Merci beaucoup et bon courage !

Romain.
A voir également:

2 réponses

Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
S'il s'agit toujours de la colonne 3 d'un tableau avec 6 colonnes, alors essayez avec cette procédure :
Sub supprimer_col_3()
Dim c As Integer, nbtab As Integer
nbtab = ActiveDocument.Tables.Count
For c = 1 To nbtab
    If ActiveDocument.Tables(c).Columns.Count = 6 Then
        ActiveDocument.Tables(c).Columns(3).Select
        Selection.Cut
    End If
Next i
End Sub


0
rb12000 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
 
Merci pour votre réponse rapide.

J'ai donc testé cette macro. Premier souci, il me dit que le nom de la macro est incorrect, je le modifiant en SuppressionCol3. Avec sa, la macro veut bien se lancer.

Ensuite, à l'exécution, il y a un erreur au niveau du Next i (ligne 9) : erreur de compilation : référence de variable de contrôle incorrecte dans Next.

Pouvez-vous m'en dire plus sur cette erreur ?

Merci beaucoup. Romain.
0
rb12000 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
 
Re-bonjour,

j'ai modifié le Next i par Next c, ça à l'air de fonctionner !!
Super ! Merci beaucoup !! :-)

Question subsidiaire : est-il possible de laisser la case du tableau et de seulement supprimer les données qu'il y a à l'intérieur ??
0
rb12000 Messages postés 22 Date d'inscription   Statut Membre Dernière intervention  
 
Re-re-bonjour,

finalement j'ai trouvé comment faire également pour laisser la case du tableau et seulement supprimer les données qui se trouvent à l'intérieur. J'ai utilisé la commande Selection.Delete à la place de Selection.Cut.

Merci pour tout. Bonne continuation. Romain
0
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
Bonjour,
Vous pouvez garder la colonne et effacer les valeurs comme suit :
Dans la ligne
Selection.Cut 
,
remplacer l'instruction
Cut
par
 Delete
.
0