Insertion de ligne dans excel apres avoir paramètre spécifique.

Bonjour, j'ai un petit problème pour la conception d'une macro.

Le but de la manoeuvre est d'inserer une ligne au dessus de chaque case contenant le mot "Total" en colone D.

J'ai trouvé comment atteindre le mot total et ajouter une ligne mais il ne le fait que pour le 1er total alors que la feuille en contient une centaine.
Et ces "Total" sont dispersés aléatoirement, c'est à dire qu'il peut se présenter un "Total" ligne 2, ligne 4, ligne 9, ligne 45, etc. Ca ne se suit pas d'une manière définie.

Avez-vous des pistes?
Merci beaucoup. :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Compare Text Sub insertionLigne() Dim x As Integer   'Recherche le 1er numero de ligne contenant le mot "TOTAL" dans la '4ere colonne de la feuille active x = Application.WorksheetFunction.Match("*TOTAL*", _ ActiveSheet.Columns(4), 0) 'Insertion ligne Rows(x).Insert Shift:=xlDown     Exit Sub End Sub

---

Bonjour
si tu connais la taille max de ta colonne tu pourrais faire des test sur tes cellules du style:

Code:

---

1 2 3 4 5 6 7 8 9

$ i=1 while i<findetacolonne if tafeuille.cells(i,4).Value="Total" then Rows(i).Insert Shift:=xlDown i=i+2 else i=i+1 end if next i

---

voili voila
rémi

MErci pour ta réponse super rapide.
J'ai executé cette macro mais il me ressort un message d'erreur:

Objet requis a la ligne 9.

Que se passe t'il?

MErci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 22/02/2007 par bastien ' i = 1 While i < 6000 For i = 1 To 500 If Sage.Cells(i, 4).Value = "*Total*" Then Rows(i).Insert Shift:=xlDown i = i + 2 Else: i = i + 1 End If Next i Wend   ' End Sub

---

ok dsl jai écris un peu vite
deja fait pas en mm tps un while et une boucle for
voila ce qui devrait marcher:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Macro2() Dim i As Integer ' Macro2 Macro ' Macro enregistrée le 22/02/2007 par bastien ' i = 1 Do While i < 6000   If Worksheets("nomdetafeuille").cells(i, 4).Value = "Total" Then Rows(i).Insert Shift:=xlDown i = i + 2 Else: i = i + 1 End If Loop   End Sub

---

Super, nous sommes sur la bonne voie, merci gruget !

Par contre mon texte à rechercher est sous forme Total xxxxx où xxxxx représente un numero a 5 chiffres. -> "Total 51245" ou "Total 98563"

J'ai mis: If Worksheets("Sage").cells(i, 4).Value = "*Total*" Then

Mais il ne me détecte pas le Total!

Tu sais d'ou ça vient?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Macro2() Dim i As Integer ' Macro2 Macro ' Macro enregistrée le 22/02/2007 par bastien ' i = 1 Do While i < 6000   If Worksheets("Sage").cells(i, 4).Value = "*Total*" Then Rows(i).Insert Shift:=xlDown i = i + 2 Else: i = i + 1 End If Loop   End Sub

---

oki
je sais plus si c'est possible de faire un truc comme ca avec des * et des &
sinon j'ai bricolé une petite fonction avec la fonction InStr() qui renvoie la position d'un chaine de caractère dans une autre et 0 ou autre chose elle n'y est pas ca donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Macro2() Dim i As Integer Dim test As Variant Dim tacellule As String   ' Macro2 Macro ' Macro enregistrée le 22/02/2007 par bastien ' i = 1   Do While i < 600 tacellule = Worksheets("Sage").cells(i, 1).Value test = InStr(1, tacellule, "Total", 1) If test > 0 Then Rows(i).Insert Shift:=xlDown i = i + 2 Else: i = i + 1 End If Loop   End Sub

---

c moi ca marche (sauf erreur de recopie bête)
@+
rémi

Ok, super ca fonctionne comme je veux, mais maintenant j'aimerai ajouter du texte et des fonctions à chaque ligne crée.

Comment faire pour indiquer le texte à chaque cellule ?

J'ai trouvé je vais mettre

Code:

---

1 2	Cells(i, 1).Select ActiveCell.FormulaR1C1 = "=R[-1]C"

---

parfait et il manque pas qq chose..........
resolu!:mouarf:

Je garde le résolu quand j'aurai fini :-)

Bon en fait c'est résolu !