Discussion :

[klowba]

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.

Code :

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

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

[gruget]

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

Code :

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

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

[klowba]

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 :

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

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

[gruget]

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 :

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

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

[klowba]

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 :

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

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

[gruget]

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 :

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

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

[klowba]

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 ?

[klowba]

J'ai trouvé je vais mettre

Code :

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

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

[gruget]

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

[klowba]

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

[klowba]

Bon en fait c'est résolu !