Insérer une ligne SI contenu de la cellule est différent
Bonjour,
J'ai un fichier excel dans lequel j'aimerais ajouter des lignes pour faciliter la lecture.
Voici à quoi ressemble le fichier
22
22
22
44
44
55
55
55
55
55
61
61
61
Ce que je voudrais faire c'est insérer une ligne entre chaque groupes du même chiffre. Donc une ligne entre le groupe 22 et celui du 44 une autre entre le groupe 44 et celui du 55 et une autre entre le groupe 55 et celui du 61. Ceci est un exemple, mon fichier est beaucoup plus gros (100 groupes sur 1800 lignes). Chaque groupes contient un nombre différent du même chiffre.
J'espère être assez clair
Merci pour votre aide
Bonsoir et bienvenue sur le forum,
Ce code dans la feuille en adaptant la colonne au besoin.
Sub InsLigne()
Dim L As Integer, Ligne As Integer
L = 1
Do While Cells(L, "A") <> ""
If Cells(L, "A").Value <> Cells(L + 1, "A").Value Then
Ligne = Cells(L + 1, "A").Row
Rows(Ligne).Insert
L = L + 1
End If
L = L + 1
Loop
End Subcordialement
ddetp88
Super merci, fonctionne très bien!
Bonjour,
J'ai utilisé ce code qui marche très bien mais je souhaiterai le perfectionner pour mes besoins, mais je connais pas le langage VBA.
En plus d'insérer une ligne dans les mêmes conditions que le code mis précédemment, je voudrais que ça me copie la ligne supérieur mais en modifiant la 1ère cellule de la nouvelle ligne, pour me mettre : "70600000".
En vous remerciant.
Bonjour Thedams,
Est-ce que tu peux fournir ton fichier anonymé ou un exemple car je ne vois pas où se situe la ligne supérieure à recopier ?
Dans ce cas là, je pourrais t'aider.
Cordialement
Bonjour ddetp88,
Je te remercie de prendre de ton temps pour m'aider.
Tu trouveras ci-joint le fichier Excel.
Bonjour Theadams,
J'espère que c'est la ligne qui précède qu'il faut copier.
Vois et tiens moi au courant.
Cordialement
Re bonjour ddetp88,
Oui parfait c'est ce qu'il me fallait. Ça marche parfaitement.
Je te remercie, tu a simplifier ma vie
Content pour toi.
Passe une bonne soirée.