Discussion :

[LaJulie]

Bonjour le forum

J’ai écrit ce que je voulais faire, après ça j’ai écrit la macro et j’ai un problème bien sûr

Dans un tableau, je vais travailler sur 2 colonnes.

A-Ce que je veux faire
On se positionne en B2.
on teste si B2 = B3 alors on exécute cette procédure :
1) on concatène en C2 les valeurs de C2 et C3 séparer par le signe +
2) on supprime les cellules B3 et C3 , d’où B4 et C4 deviennent B3 et C3
on teste si B2 = B3 =>procédure
si B2 # B3 alors on se positionne sur B3

on teste si B3 = B4 => procédure
si B3 # B4 alors on se positionne sur B4
On continue jusqu’à trouver une ligne vide alors on sort de la boucle


B- Ma macro ( je me suis beaucoup inspirée de macros trouvées sur le forum)

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 BoucleTest()
'Boucles pour concaténer les valeurs de doublons et supprimer les doublons
'On commence à la cellule actuellement sélectionnée (normalement c'est B2)
Dim x
Dim y


x = ActiveCell.Row
y = x + 1
Do While Cells(x, 2).Value <> ""
     Do While Cells(y, 2).Value <> ""
'Teste les doublons: si les valeurs de la cellule active et de la suivante sont  égales,
'concatène la cellule voisine de x avec la cellule en dessous,en les séparant avec +
'puis supprime la seconde paire, sinon passe à la ligne suivante jusqu'à la fin.

If (Cells(x, 2).Value = Cells(y, 2).Value) And ((ActiveCell.Offset(0, 1).Value) & "+" & (ActiveCell(-1, 1).Value)) Then
Cells(y, 3).EntireRow.Delete
Else
    y = y + 1
End If
Loop
'augmente la valeur de x de 1 pour déplacer le point de départ de la boucle à la ligne suivante
x = x + 1
Loop
End Sub

Je n'arrive pas à écrire correctement la ligne en rouge pourtant c'est simple: si 2 cellules sont égales concatène les 2 cellules voisines!!!

Merci à qui me dépannera.

[Philippe Tulliez]

Bonjour,
Je n'ai pas regardé ta procédure mais je lis que tu supprimes des lignes et ta boucle commence en début de liste.
Lorsque l'on supprime des lignes on commence par la fin de la liste et on remonte vers le début pour éviter de passer des lignes à supprimer qui ne seront pas testées du fait qu'elles auraient pris la place d'une ligne supprimée.
De même lorsque l'on supprime des colonnes, on commence par les colonnes de droite.

[LaJulie]

Merci pour la réponse.

Je vais retravailler ma macro avec cette indication.

Comme je ne travaille pas très vite (mes petites cellules grises ont 68 ans!!!) je viendrais vous montrer ma macro dans quelques temps!!!

[Maxgad]

Bonjour,
Essai ce code

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
Sub BoucleTest()
'Boucles pour concaténer les valeurs de doublons et supprimer les doublons
'On commence à la cellule actuellement sélectionnée (normalement c'est B2)
x = 2
'y = Range("B2").Offset(1, 0).Row
Do While Cells(x, 2).Offset(1, 0).Value <> ""
    If Cells(x, 2).Value = Cells(x, 2).Offset(1, 0).Value Then
Cells(x, 3).Value = Cells(x, 3) & "+" & Cells(x, 3).Offset(1, 0).Value
Rows(x + 1).Delete
    Else
x = x + 1
    End If
'augmente la valeur de x de 1 pour déplacer le point de départ de la boucle à la ligne suivante
Loop
End Sub

Cdt

[LaJulie]

Merci à Maxgad, elle fonctionne très bien.

J'avais commencé à étudier les boucles mais un grand chagrin dans ma vie est arrivé, c'est pour ça que je viens répondre si tard.

Je vais retravailler cette macro avec les remarques de Philippe Tulliez.

Mon problème est résolu.Merci .