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