Discussion :

[Guy14]

Bonjour,

Je ne peux pas utiliser la fonction qui permet d'incrémenter les cellules d'une colonne car elles ne sont pas de taille identique. J'imagine que je dois recourir à une macro pour le réaliser, mais je ne sais pas comment faire.

Je suis nouveau sur le site et pas très familier avec les macros Excel.

Quelqu'un peut m'aider?

Guy

[mercatog]

Bonjour et bienvenu au forum;
je présume que tu dois être plus explicite à propos de ta question, car c'est pas clair!
pour connaitre si une cellule appartient à une plage fusionnée tu fais ce test

Code :

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

1
2
3
4
Dim i As Integer
For i = 1 To 20
If Range("A" & i).MergeCells Then MsgBox "Cellule " & Range("A" & i).Address & " appartient à une plage fusionnée"
Next i

[Guy14]

Bonjour Mercatog,

J'ai trouvé des exemples de fonction que j'ai adapté, dont voici mon code. Je fais une sélection dans une colonne ensuite j'exécute cette macro qui incrémente chaque cellule à partir de 1 en tenant compte des cellules fusionnées, s'il y en a. Qu'en penses-tu?

Guy

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
25
Sub Incrémente()
 
    Dim cell As Range
    Dim i As Integer
 
    i = 0
    For Each cell In Selection.Cells
        If cell.MergeCells Then
            'cellule fusionnée
            If cell.Address = cell.MergeArea.Cells(1).Address Then
                i = i + 1
                cell.Value = i
            Else
                ' cas où le cadre a déjà été tracé
                GoTo nextCell
            End If
        Else
            i = i + 1
            cell.Value = i
        End If
 
nextCell:
    Next cell
    Set cell = Nothing
End Sub

[mercatog]

Je ferai plutôt ceci (si j'ai bien compris ton problème; tu es avare en explication)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub INCREMENTE()
Dim Cel As Range
For Each Cel In Range("A1:A30").Cells  'A Adpater
    If Cel.MergeCells Then
        If Cel.Address = Cel.MergeArea.Cells(1).Address Then
            Cel.Value = Cel.Value + 1
        End If
    Else
        Cel.Value = Cel.Value + 1
    End If
Next Cel
 
End Sub

C'était un marteau pour tuer la mouche en adaptant ton code
Essaie ceci

Code :

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

1
2
3
4
5
6
Sub INCREMENTE()
Dim Cel As Range
For Each Cel In Range("A1:A30").Cells  'A Adpater
    Cel.Value = Cel.Value + 1
Next Cel
End Sub

[Guy14]

Je pensais que mes commentaires étaient assez clair. Ok je vais en mettre plus pour me faire comprendre mieux.
Dans la colonne A, il y a des cellules simples et des cellules qui ont été fusionnées. Ex: A1, (A2 à A4 fusionnées), A5, (A6 à A10 fusionnées) et elles peuvent être vides ou déjà avoir une valeur. La fonction d'incrémentation doit donner le résultat suivant: 1,2,3,4. Soit A1=1, (A2-A4)=2, A5=3 et (A6-A10)=4.
La fonction que j'ai réussie à écrire donne le résultat que je souhaite. Donc mission accomplie.
Merci d'avoir pris le temps de me répondre.

[mercatog]

Dans ton dernier post, enfin tu as pu bien expliquer
Optimisation de ton code oblige:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i As Integer
Dim Cel As Range
 
For Each Cel In Range("A1:A30").Cells  'A Adpater
    If Cel.MergeCells Then
        If Cel.Address = Cel.MergeArea.Cells(1).Address Then
            i = i + 1
        End If
    Else
        i = i + 1
    End If
    Cel.Value = i
Next Cel

ou en une seule ligne

Code :

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

1
2
3
4
5
6
7
Dim i As Integer
Dim Cel As Range
 
For Each Cel In Range("A1:A30").Cells  'A Adpater
    If (Cel.MergeCells And Cel.Address = Cel.MergeArea.Cells(1).Address) Or Not Cel.MergeCells Then i = i + 1
    Cel.Value = i
Next Cel