Suppression même colonne sur plusieurs tableaux

Résolu/Fermé
rb12000 Messages postés 22 Date d'inscription lundi 9 novembre 2015 Statut Membre Dernière intervention 7 septembre 2017 - 9 nov. 2015 à 14:13
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 - 10 nov. 2015 à 14:00
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

Réponse 1 / 2
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
9 nov. 2015 à 18:42
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 lundi 9 novembre 2015 Statut Membre Dernière intervention 7 septembre 2017
10 nov. 2015 à 11:26
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 lundi 9 novembre 2015 Statut Membre Dernière intervention 7 septembre 2017
10 nov. 2015 à 11:32
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 lundi 9 novembre 2015 Statut Membre Dernière intervention 7 septembre 2017
10 nov. 2015 à 13:53
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
Réponse 2 / 2
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 1 458
10 nov. 2015 à 14:00
Bonjour,
Vous pouvez garder la colonne et effacer les valeurs comme suit :
Dans la ligne 
Selection.Cut
,
remplacer l'instruction 
Cut
par
 Delete
.
0