Discussion :

[PHPdudimanche]

Bonjour,

Je sèche sur la chose.
Après avoir trié par ordre alphabétique croissant des données, je cherche à ajouter dans ma fonction VBA excel la fonction suivante.

- boucle parcourant les cellules non vides d'une même colonne
- si la 1ere cellule est différente de la 2nde
- insérer une ligne vide après la 1ère cellule
- arrêter quand il n'y plus de cellules non vides

La raison :
J'ai une base de données produit et aimerais bien insérer une ligne vide entre chaque marque se trouvant en première colonne. Si je pouvais en plus mettre en gras la marque la première fois qu'elle est citée, ce serait la cerise sur le gâteau.

Ce doit être possible, mais cela me dépasse, hélas
Help.
Merci

[SilkyRoad]

bonsoir

Tu peux tester

Code :

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

1
2
3
4
5
6
7
8
9
Dim x As Integer, i As Integer
 
x = Range("A65536").End(xlUp).Row
 
For i = x To 2 Step -1
    If Cells(i, 1) <> Cells(i - 1, 1) And Cells(i, 1) <> "" Then
        Cells(i, 1).EntireRow.Insert
    End If
Next i

michel

[PHPdudimanche]

C'est parfait.
Cela fonctionne.
Mais le texte ayant parfois un espace devant ou après, me reste à d'abord enlever ces espaces pour que tout aille bien.
Je vais essayer.