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

Dormeur74

XLDnaute Occasionnel

• 19 Septembre 2012

• #2

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

Essaye cette macro pour voir :

Code:

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

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 19 Septembre 2012

• #3

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

 

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 19 Septembre 2012

• #4

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

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

 

Pièces jointes

• insertion.xls

  24 KB · Affichages: 48
• insertion.xls

  24 KB · Affichages: 48
• insertion.xls

  24 KB · Affichages: 52

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 19 Septembre 2012

• #5

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

Code:

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

voici un exemple de mon tableau

Merci de ton retour

 

Pièces jointes

• Classeur8.xlsm

  23.5 KB · Affichages: 43
• Classeur8.xlsm

  23.5 KB · Affichages: 56
• Classeur8.xlsm

  23.5 KB · Affichages: 50

Vote positif 0 Vote négatif

Dormeur74

XLDnaute Occasionnel

• 19 Septembre 2012

• #6

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.

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 19 Septembre 2012

• #7

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

Bonsoir,

Ci-joint un exemple à tester

 

Pièces jointes

• Classeur1.xls

  41 KB · Affichages: 47
• Classeur1.xls

  41 KB · Affichages: 49
• Classeur1.xls

  41 KB · Affichages: 50

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 19 Septembre 2012

• #8

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.

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 20 Septembre 2012

• #9

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é

 

Vote positif 0 Vote négatif