Discussion :

[thomasleocadio]

Bonjour,
J ai un tableau excell ou pour chaques ligne j ai des valeurs dans une des 5 colonnes qui suit ( parfois dans qu une seule colonne parfois dans deux ou dans toute ) et je voudrais que apres la derniere colonne soit affiché le nom de toutes les colonnes pour lesquelles chaques lignes a une valeur.
C'est comme si pour chacune de ces 5 colonnes je mettais 1 ou 0 si y a une valeur. Et pour toutes les collones ou y a un 1 j affiche leurs noms et ce pour chaques lignes.
Je ne sais pas programmer cela en vba j ai tenté avec les fonctions if then si excel mais c est un tableau que j ameliore regulierement sur excel et la avec 5 colonnes ca devient impossible.
Merci de votre aide si precieuse.
Thomas

[drakkar_agfa]

Bonjour,

Que veux-tu dire par afficher le noms des colonnes? A B C ?
(ex "Les colonnes A, B, C sont complétées" ?)

Le restant n'est pas très compliqué!

[thomasleocadio]

janvier fevrier mars
x 3 1 janvier mars
y 2 3 fevrier mars
w 2 2 4 janvier fevrier mars
z 1 janvier
s 1 5 fevrier mars
d 5 1 janvier fevrier

voila un exemple de ce que je voudrais comme ds cet exemple que s affiche ds la derniere collonne les colonnes pour lesquelles chaques lignes a une valeur car mon tableau est plus gros que celui la

desole ca a pas bien pris
janvier fevrier mars
x 2 3 janvier-fevrier
y 3 4 fevrier-mars
z 1 janvier

Voila ca devrait etre mieux je voudrais que la derniere colonne s affiche automatiquemenent en fgonction des diff valeurs pour chaques lignes

[drakkar_agfa]

Je dois avouer que je ne comprends toujours pas...

x 3 1 janvier mars
y 2 3 fevrier mars

Pourquoi janvier est remplacé par février ici?
Est-ce que 1 - 2 - 3 ... font une différence?

Sinon, donne un exemple avec une classeur, on sera certain de ce que tu veux obtenir.

[thomasleocadio]

Voila un exemple de ce que je voudrais
la derniere collonne surligné en jaune affiche la nom de chaques colonne dans lequelle chaques ligne a une valeur et je voudrais que cela saffiche pour toutes les lignes.
Thomas

[drakkar_agfa]

Ok! C'est plus clair comme ça.

Dans tes exemple, les colonnes étaient décallées.

Est-ce que les titres de colonnes resteront toujours les même?

Avec ceci, tout va être parfait!

[thomasleocadio]

A chaques foi que j updaterais le fichier y aura une colonne en plus mais si je comprend le mecaznisme le macro apres je pourrais le rajouter directement ds la programmation de la macro
Thomas

[laetitia]

bonjour thomasleocadio drakkar_agfa le forum je pense avoir compris plus ou moins ce que tu voulais faire au maxi cela s arrete a la colonne decembre ??

[thomasleocadio]

ca sera difficile de chiffrer ou pourrais s arretert les collones mais si vous m aidez a programmer pour ces 5 collonnes je pourrais apres rajouter dans le programme les autres colonnes apres une fois que j aurais vu le programme c juste que pour avoir ce resultat dans cette colonne je sais pas le programmer sur vba

[drakkar_agfa]

ReBonjour

Voici un code qui fonctionnera peu importe le nombre de colonne ou de ligne!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub test()
    Dim iColonne As Integer
    Dim iDerniereColonne As Integer
    Dim iLigne As Integer
    Dim sMessage As String
    Dim sh As Worksheet
 
    Set sh = ActiveSheet
    iDerniereColonne = sh.Range("A1").End(xlToRight).Column + 1
 
    For iLigne = 2 To sh.Range("A65536").End(xlUp).Row
 
        sMessage = ""
 
        For iColonne = 2 To iDerniereColonne
 
            If sh.Cells(iLigne, iColonne) <> "" Then
                If sMessage = "" Then
                    sMessage = sh.Cells(1, iColonne)
                Else
                    sMessage = sMessage & " " & sh.Cells(1, iColonne)
                End If
            End If
 
        Next iColonne
 
        sh.Cells(iLigne, iDerniereColonne) = sMessage
 
    Next iLigne
End Sub

Testes nous ceci et donnes nous en des nouvelles!

[thomasleocadio]

je vais surement paraitre un peu con mais c la premiere fois que je programme une macro vba mais une fois que je suis sur visual basic editor je clique sur workbook en haut a droite et je colle la formule est ce que je dois parametrer certains truc ? merci bcp et desole de mon amateurisme
Thomas

[drakkar_agfa]

Je te conseille te créer un module et d'y coller mon code.

Tu peux bien changer le non test par un nom significatif pour toi.

La macro sera accecible dans toutes les feuilles et tu auras à l'exécuter par le menu macro (alt + F8).

Si tu as d,autre questions, n'hésites pas!

[thomasleocadio]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If sh.Cells(iLigne, iColonne) <> "" Then

cette ligne s affiche en jaune avec le message suivant erreur definie par l application ou par l objet

[drakkar_agfa]

Au dévut du code, avant la procédure, ajoute la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

et compile (Débogage, Compiler)

Est-ce qu'il a une erreur?

[thomasleocadio]

tu veux que je le rajoute au tout debut ou avant quelle procedure je comprend pas

[drakkar_agfa]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
 
Sub test()
    Dim iColonne As Integer
    Dim iDerniereColonne As Integer
...
...

[thomasleocadio]

j ai encore une erreur
erreur d execution 1004:
erreur definie par l application ou par l objet

[drakkar_agfa]

As-tu recopié mon code comme il est?

As-tu changer quelque paramêtre?
Si oui à une de ces questions, donne nous ton nouveau code.

Quelle version d'Excel as-tu?

[thomasleocadio]

J y arrive toujours pas je comprend rien
je met mon document en piece jointe et j arrive pas a afficher dans la colonne issue le nom de toutes les emissions

[drakkar_agfa]

Bonjour,

Vite vite, je dirais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    iDerniereColonne = sh.Range("A1").End(xlToRight).Column + 1

La première ligne de ton fichier est vite, il faudrait changer A1 par A2...

Changer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For iColonne = 2 To iDerniereColonne

Changer le 2 (colonne B) pour 4 (colonne D)

Changer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
                    sMessage = sh.Cells(1, iColonne)
                Else
                    sMessage = sMessage & " " & sh.Cells(1, iColonne)

Changer les 1 pour des 2, sinon il prend la première ligne comme titre de colonne.


Tout devrait fonctionner.
Voici le nouveau code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Explicit
Sub test()
    Dim iColonne As Integer
    Dim iDerniereColonne As Integer
    Dim iLigne As Integer
    Dim sMessage As String
    Dim sh As Worksheet
 
    Set sh = ActiveSheet
    iDerniereColonne = sh.Range("A2").End(xlToRight).Column + 1
 
    For iLigne = 3 To sh.Range("A65536").End(xlUp).Row
 
        sMessage = ""
 
        For iColonne = 4 To iDerniereColonne
 
            If sh.Cells(iLigne, iColonne) <> "" Then
                If sMessage = "" Then
                    sMessage = sh.Cells(2, iColonne)
                Else
                    sMessage = sMessage & " " & sh.Cells(2, iColonne)
                End If
            End If
 
        Next iColonne
 
        sh.Cells(iLigne, iDerniereColonne) = sMessage
 
    Next iLigne
End Sub

Mais fait attention, la colonne vide (apres Issues) est pris en compte dans la formule de la colonne Issues... Je ne sais pas comment tu veux arrenger le tout... Si tu veux la colonne suivante (L) remplace ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    iDerniereColonne = sh.Range("A2").End(xlToRight).Column + 1

par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    iDerniereColonne = sh.Range("A2").End(xlToRight).Column + 2