Modifications macro existante
Bonjour à tous,
Voila j'ai récupérer une macro qui me plait bien mais je n'arrive pas à la modifier...
Code:
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 :calim2:
