j'aurai voulu savoir comment parcourir un tableau fusionn=E9.
Mais differemment de la methode For Each Cell ...
En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce
genre de tableaux.
Et plus precisement de pouvoir colorier une grande ligne de la colonne
1 et toutes les autres qui se trouvent en face des autres colonnes.
voila merci pour votre aide.
Sa structure est la suivante :
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionn=E9.
Mais differemment de la methode For Each Cell ...
En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce
genre de tableaux.
Et plus precisement de pouvoir colorier une grande ligne de la colonne
1(L1C1 et L2C1) et toutes les autres qui se trouvent en face des autres
colonnes. Et alterner ce coloriage de fa=E7on =E0
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Brel Patrice
Bonsoir,
voici une petite boucle pour se promener dans un tableau fusionné. Bonne soirée -- Brel Patrice
Sub deplacement_dans_tableau_fusionne() Dim tablo As Table Selection.Tables(1).Select 'sélection du tableau Set tablo = Selection.Tables(1) Selection.MoveLeft Unit:=wdCharacter, Count:=1
nombre_de_cellules = tablo.Range.Cells.Count
For i = 1 To nombre_de_cellules rr = tablo.Range.Cells(i).RowIndex cc = tablo.Range.Cells(i).ColumnIndex If rr Mod 2 = 0 Then tablo.Cell(rr, cc).Select Call mise_en_couleur 'à générer par simple enregistrement de macro par exemple End If Next End Sub
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionné.
Mais differemment de la methode For Each Cell ... En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce genre de tableaux. Et plus precisement de pouvoir colorier une grande ligne de la colonne 1 et toutes les autres qui se trouvent en face des autres colonnes.
voila merci pour votre aide.
Sa structure est la suivante :
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionné.
Mais differemment de la methode For Each Cell ... En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce genre de tableaux. Et plus precisement de pouvoir colorier une grande ligne de la colonne 1(L1C1 et L2C1) et toutes les autres qui se trouvent en face des autres colonnes. Et alterner ce coloriage de façon à
voici une petite boucle pour se promener dans un tableau fusionné.
Bonne soirée
--
Brel Patrice
Sub deplacement_dans_tableau_fusionne()
Dim tablo As Table
Selection.Tables(1).Select 'sélection du tableau
Set tablo = Selection.Tables(1)
Selection.MoveLeft Unit:=wdCharacter, Count:=1
nombre_de_cellules = tablo.Range.Cells.Count
For i = 1 To nombre_de_cellules
rr = tablo.Range.Cells(i).RowIndex
cc = tablo.Range.Cells(i).ColumnIndex
If rr Mod 2 = 0 Then
tablo.Cell(rr, cc).Select
Call mise_en_couleur 'à générer par simple enregistrement de macro par
exemple
End If
Next
End Sub
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionné.
Mais differemment de la methode For Each Cell ...
En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce
genre de tableaux.
Et plus precisement de pouvoir colorier une grande ligne de la colonne
1 et toutes les autres qui se trouvent en face des autres colonnes.
voila merci pour votre aide.
Sa structure est la suivante :
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionné.
Mais differemment de la methode For Each Cell ...
En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce
genre de tableaux.
Et plus precisement de pouvoir colorier une grande ligne de la colonne
1(L1C1 et L2C1) et toutes les autres qui se trouvent en face des autres
colonnes. Et alterner ce coloriage de façon à
voici une petite boucle pour se promener dans un tableau fusionné. Bonne soirée -- Brel Patrice
Sub deplacement_dans_tableau_fusionne() Dim tablo As Table Selection.Tables(1).Select 'sélection du tableau Set tablo = Selection.Tables(1) Selection.MoveLeft Unit:=wdCharacter, Count:=1
nombre_de_cellules = tablo.Range.Cells.Count
For i = 1 To nombre_de_cellules rr = tablo.Range.Cells(i).RowIndex cc = tablo.Range.Cells(i).ColumnIndex If rr Mod 2 = 0 Then tablo.Cell(rr, cc).Select Call mise_en_couleur 'à générer par simple enregistrement de macro par exemple End If Next End Sub
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionné.
Mais differemment de la methode For Each Cell ... En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce genre de tableaux. Et plus precisement de pouvoir colorier une grande ligne de la colonne 1 et toutes les autres qui se trouvent en face des autres colonnes.
voila merci pour votre aide.
Sa structure est la suivante :
Bonjour,
j'aurai voulu savoir comment parcourir un tableau fusionné.
Mais differemment de la methode For Each Cell ... En fait, mon besoin est de pouvoir colorier une ligne sur deux dans ce genre de tableaux. Et plus precisement de pouvoir colorier une grande ligne de la colonne 1(L1C1 et L2C1) et toutes les autres qui se trouvent en face des autres colonnes. Et alterner ce coloriage de façon à
