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 12274 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.

2 réponses

  1.
    Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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
    1. 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
    2. 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
    3. 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
  2. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Vous pouvez garder la colonne et effacer les valeurs comme suit :
    Dans la ligne 
    Selection.Cut
    ,
    remplacer l'instruction 
    Cut
    par
     Delete
    .
    0