Ajouter une ligne en fonction d'un mot dans une cellule

[Squoltahthx94]

Bonjour le forum,

VOila je souhaiterai faire la chose suivante:

Dans la colonne "a" j'ai tout un tas de chos mais les mots "S0101", "S0201".... sont souvent présent et pour les différencier je souhaiterais insérer 2 lignes au dessus et une lligne en dessous.

Quelqu'un sait-il comment faire??

Exemple :

A
1 s0101
2 s0201
3
4
5

Deviendrait :

A
1
2
3 S0101
4
5
6
7 S0201
8


Merci

 

[Dormeur74]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

Essaye cette macro pour voir :

Sub Macro1()
    Dim nbLignes As Integer, y As Integer
    Dim Tableau() As Integer, Compteur As Integer
    
    
    nbLignes = (Range("A1").SpecialCells(xlCellTypeLastCell).Row)
    For y = 1 To nbLignes
        If Cells(y, 1) = "s0101" Or Cells(y, 1) = "s0201" Then
            Compteur = Compteur + 1
            ReDim Preserve Tableau(Compteur)
            Tableau(Compteur) = y
        End If
    Next y
    
    For y = UBound(Tableau) To 1 Step -1
        Cells(Tableau(y), 1).Select
        Selection.Insert Shift:=xlDown
        Selection.Insert Shift:=xlDown
        Cells(Tableau(y) + 3, 1).Select
        Selection.Insert Shift:=xlDown
    Next y
    
End Sub

 

[Squoltahthx94]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

Que représente tableau car je ne vois aucune déclaration de cette variable et le système s'arrête de ssus

 

[Dormeur74]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

Le mieux est de jeter un oeil sur ce petit exemple.

 

[Squoltahthx94]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

J'ai toujours la même erreur "l'indice n’appartient pas à la sélection' ????? et il me souligne

For y = UBound(Tableau) To 1 Step -1

voici un exemple de mon tableau

Merci de ton retour

 

[Dormeur74]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

Ca plante effectivement sous la version 2010, alors que ça ne plante pas sous 2000 et 2003.
Désolé, mais là je ne peux pas faire mieux.

 

[Gareth]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

Bonsoir,

Ci-joint un exemple à tester

 

[Si...]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

salut

erreur due à un tableau vide. Attention à la casse : s n'est pas S !

Commence par l'instruction "Option Compare Text" qui permet de s'affranchir des Majuscules/Minuscules et dis nous.

 

[Squoltahthx94]

Re : Ajouter une ligne en fonction d'un mot dans une cellule

@ GARETH -> Merci ça fonctionne impec
@ Si.... > tu pourrais préciser car je ne sais sur quoi tu fais allusion??

Merci a tous ceux qui m'ont aidé