Problème de contenus de cellules, de conditions et de lancement de macro
Bonjour,
Je planche sur une macro qui numérote les cellules lorsqu’on sélectionne une plage de cellule sous forme de colonne (c’est pour faire des devis).
L’idée c’est qu’on rentre nos désignations en laissant une ligne de libre entre chacune, de sélectionner la colonne à gauche et que la macro mette les numérotations, ex :
1. Démolition de mur
2. Construction de mur
Il faut être vigilant car une désignation peut se trouver sur deux lignes.
J’ai commencé à taper le code, le voici :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Option Explicit
Public k As Integer
Sub Numérotation()
Dim plage As Range, cel As Range
Set plage = Intersect(selection, Columns(selection.Column), ActiveSheet.UsedRange)
If plage Is Nothing Then Exit Sub
Application.ScreenUpdating = False
k = 0
For Each cel In plage
"Si la case à droite est non vide et que la case en dessus à droite est vide alors"
cel.Value = k
k = k + 1
Next
"Sinon, on passe à la suivante"
End Sub |
