Discussion :

[Gerardd]

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 :

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
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

[zyhack]

Bonjour

Code :

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

1
2
3
4
5
6
 
'Si la case à droite est non vide  et  que la case en dessus à droite est vide alors
If cel.Offset(0, 1) <> "" And cel.Offset(-1, 1) = "" Then
  cel.Value = k
  k = k + 1
End If