Discussion :

[SixteenVBA]

Bonjour tout le monde !

J'ai un fichier contenant un nombre de lignes qui changent puisque de nouvelles données viennent s'agrémenter au fil des jours. Les colonnes vont de A à P.
J'ai un code VBA permettant de remplir des cellules vides avec le même contenu que celles du dessus, que voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub remplir_vides()
With Range("A1:B" & [P65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
With Range("B1:C" & [P65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub

Il fonctionne, sauf pour quelques lignes qui ne se remplissent pas... Je ne sais pas pourquoi.

Mais mon autre souci est que je souhaite également supprimer les lignes entières où le mot "total" apparait en colonne F. Voici les codes que je teste:

Code :

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

1
2
3
4
5
Sub suppr_test()
For i = [J65000].End(xlUp).Row To 2 Step -1
    If Cells(i, 8) Like "*TOTAL*" Then Rows(i).Delete
Next i
End Sub

Code :

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

1
2
3
4
5
6
Sub suppr()
 
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = "*TOTAL*" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

Absolument rien ne se passe... Pouvez-vous m'aider? Je ne peux pas joindre le fichier car confidentiel...... Merci à vous

[Zekraoui_Jakani]

Je suggère une lecture séquentielle:
1) si la cellule est vide, copier la précédente
2) si la cellule contient "total", supprimer la ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test03()
    For j = 2 To x
        If ActiveCell = "" Then ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
    Next j
End Sub
 
Sub test04()
    For j = 2 To y
        If ActiveCell.Value Like "*Total*" Then ActiveCell.Rows.Delete
    Next j
End Sub

[SixteenVBA]

Merci pour ta réponse. J'ai testé mais rien ne se passe... Pourtant le code me semble correct...

[casefayere]

Bonjour, cela vient peut-être de la façon dont est écrit "total", il faut soit :
- mettre "Option Compare Text" en haut de Module
- utiliser Ucase

Code :

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

If Ucase(ActiveCell.Value) Like "*TOTAL*" Then ActiveCell.Rows.Delete

[SixteenVBA]

- mettre "Option Compare Text" en haut de Module
- utiliser Ucase

J'ai testé les deux ca ne fonctionnement pas ... Je ne comprends vraiment pas où est le problème.

[casefayere]

Je ne peux pas joindre le fichier car confidentiel

Qu'est-ce qui t'empêche d'envoyer un fichier structuré de la même façon avec des données "Bidon"

Quoique d'accord avec Marc, il aurait fallu poster la demande sur le forum "Macros et Vba Excel"

[SixteenVBA]

Qu'est-ce qui t'empêche d'envoyer un fichier structuré de la même façon avec des données "Bidon"

Quoique d'accord avec Marc, il aurait fallu poster la demande sur le forum "Macros et Vba Excel"

Bonjour, je vous mets en PJ un fichier avec les macros et des données "bidons".
Exemple.xlsm

Effectivement je me suis trompée en postant le message, comment faut-il faire pour le déplacer? Merci à vous ....

[casefayere]

bonjour,
sans chercher, pour l'instant, tu écris

où le mot "total" apparait en colonne F

et ton (ou tes) codes

Code :

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

1
2
3
4
5
Sub suppr_test()
For i = [J65000].End(xlUp).Row To 2 Step -1
    If Cells(i, 8) Like "*TOTAL*" Then Rows(i).Delete
Next i
End Sub

pour colonne F "Cells(i,6)", dans ton code, tu analyses la colonne H et dans celui-ci tu analyses la colonne A

Code :

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

1
2
3
4
5
6
Sub suppr()
 
For i = Cells(1, 1).CurrentRegion.Rows.Count To 1 Step -1
If Cells(i, 1).Value = "*TOTAL*" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub

et je ne vois le mot "TOTAL" ni en A, ni en H

[SixteenVBA]

Effectivement j'avais oublié que j'avais masqué des colonnes quand j'ai modifié le code VBA.... Bon bin merci à vous tous pour les codes ! Le traitement est un peu long mais ça fonctionne.

J'utilise celui-ci:

Code :

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

1
2
3
4
5
Sub test()
For i = [J65000].End(xlUp).Row To 2 Step -1
    If Cells(i, 10) Like "*TOTAL*" Then Rows(i).Delete
Next i
End sub

Merciii !

[casefayere]

Le traitement est un peu long mais ça fonctionne.

passes par un (des) tableaux