Discussion :

[Joris LEMONDE]

Bonjour à tous,

Voila j'ai récupérer une macro qui me plait bien mais je n'arrive pas à la modifier...

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
 
 Sub dernièrecolonne()
  Dim i As Long, j As Long, derLig As Long, derCol As Integer, phrase As String, debLig As Integer, debCol As Integer
    debLig = 2
    debCol = 16
    derLig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    derCol = Cells(debLig, Columns.Count).End(xlToLeft).Column
    phrase = "Affectée à :"
    For i = debLig + 1 To derLig
    For j = debCol To derCol
    If Cells(i, j) = 1 Then
    phrase = phrase & " ; " & Cells(debLig, j)
    End If
    Next j
    If WorksheetFunction.Sum(Range(Cells(i, debCol), Cells(i, j))) > 0 Then
    Cells(i, derCol + 1) = phrase
    Else
    Cells(i, derCol + 1) = ""
    End If
    phrase = "Affectée à"
    Next i
 End Sub

J'ai bien compris comment déclarer à partir d’où commencer la formule. Mon problème c'est que je voudrais exécuter cette macro sur plusieurs plages:

ex: Colonne AE à BC ; BE à CC ; etc...


De plus, pour l'affichage du résultat, au lieu de l'indiquer sur la dernière colonne vide du tableau je voudrais pouvoir choisir le numéro de colonne.

Quelles modifications je dois apporter ? Je suis très novice en VBA, j'arrive à comprendre et créer des choses très simples mais là j'avoue que je suis un peu perdu

[jerome.vaussenat]

Salut,

Voici ce que je te propose.
Au début de la macro, 3 boîtes de dialogue s'affichent.
Elles permettent d'indiquer le NUMERO des colonnes à traiter.

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
 Sub dernièrecolonne()
  Dim i As Long, j As Long, derLig As Long, derCol As Integer, phrase As String, debLig As Integer, debCol As Integer
  Dim colresultat As Integer
  debLig = 2
    'debCol = 1
    debCol = InputBox("Indiquer le N° de la première colonne à traiter")
    derLig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    'derCol = Cells(debLig, Columns.Count).End(xlToLeft).Column
    derCol = InputBox("Indiquer le N° de la dernière colonne à traiter")
    colresultat = InputBox("Indiquer le N° de la colonne où afficher le résultat")
    phrase = "Affectée à :"
    For i = debLig + 1 To derLig
        For j = debCol To derCol
            If Cells(i, j) = 1 Then
        End If
        Next j
        If WorksheetFunction.Sum(Range(Cells(i, debCol), Cells(i, j))) > 0 Then
            Cells(i, colresultat) = phrase
        Else
            Cells(i, colresultat) = ""
        End If
        phrase = "Affectée à"
    Next i
 End Sub

Je te laisse voir si cela peut correspondre à ton besoin.

[Joris LEMONDE]

Bonjour jerome,

merci pour ton aide.

J'ai vraiment besoin de definir les zones dans ma macro car elles sont fixes et tres nombreuses (45).

[jerome.vaussenat]

Re,

Je veux bien que ta macro définisse les zones.

Mais si on ne sais pas comment les définir ...

Si tu veux qu'on t'aide, il faut nous en dire plus.
quelles règles doit être respectées. Comment on défini la colonne qui va recevoir les résultats ???

Moi, je ne sais pas lire dans la boule de cristal. je travail la transmission de pensée et c'est pas facile

[Joris LEMONDE]

D'accord, je ne sais pas vraiment de quelles infos tu as besoin....

Dans mon fichier colonne A à P je retrouve des colonnes qui me permettent de renseigner des informations sur chaque produit (ligne); le nom; la référence; etc


Sur les colonnes suivantes, j'ai des noms de postes. Lorsque je renseigne un 1 dans le nom de poste, cela signifie que le produit et monté sur ce poste de production.


A chaque fin de types de postes, j'ai une colonne Total où si la somme des postes et égale ou supérieur à 1 alors afficher un 1.

La dernière colonne doit concaténer toutes les postes dans lesquelles il y a un 1 sauf pour les sommes.


Ex, j'ai deux types de postes cadrage et montage.


Colonne AA : Poste cadreuse N°1
Colonne AB: Poste cadreuse N°2
Colonne AC: Toutes les cadreuses = SI(Somme(AA:AB)>0 ; 1 ; ""

Colonne AD: Poste montage N°1
Colonne AE: Poste montage N°2
Colonne AF : Tous les postes de montages =SI(Somme(AD:AE)>0 ; 1 ; ""


Deux produits: Ligne 3 Produit A
Ligne 4 Produit B

Le produit a concerne le poste cadreuse N°1 et les deux postes de montages 1 et 2
Le produit B concerne le poste cadreuse N°2 et le poste montage N°1

Dans la dernière colonne du tableau:

Analyse colonne AA ; AB ; AD ; AE

Lorsque la cellule est = à 1, concatener l'entête de chaqu'une des cellules;

J’aurai alors pour la ligne 3: Affectée à: Cadreuse N°1 ; Poste montage N°1 ; Poste montage N°2
Pour la ligne 4: Affectée à; Cadreuse N°2 ; Poste montage N°1


je peux nommer les plages dans la macro (Colonne AA;AG) (Colonne AH ; BG) etc

Ou alors, peux on dire, si la cellule contient une formule (SI(SOMME) alors ne pas concatener l'entete ?

Je ne sais pas quelle solution est la plus simple pour vous !!

Un grand merci pour votre aide !

Joris

[Joris LEMONDE]

Une personne pourrait m’aider ?