bessoin d'aide pour un nouveau

Question

Bonjour,

Je voudrai pouvoir faire une macro un peu spécifique.
C'est une liste de prix qui évolue tous les jour, je cherche de quoi la rendre + simple.
Sur excel, je copie la liste dans une feuille et la colle dans une autre, et voudrai suprimer tous les articles dans cette derniere pour lesquelles ne correspond pas de prix en face.

1 colonnes articles
1 colonnes prix

Pouvez vous m'aider
Voici mon mel:
aioli84@aol.com

Merci encore
slts

schouly · Answer

donc tu veux : (si c'est pas ça dis-le-moi)
Si pas de prix a droite de l'article
Alors retirer l'article
Seulement après avoir fait un copier - coller.

Sub Macro1()
Application.ScreenUpdating = False
'copie les 2premières colonnes de la feuille en cours
Columns("A:B").Select
Selection.Copy
'ajoute une feuille
Sheets.Add
'colle
ActiveSheet.Paste
Range("A1").Select
'trie
Range("A1").Select
'''''''''''''''''''''''
'Attention ne trie pas la cellule A1 donc faut absolument un en-tête
'''''''''''''''''''''''
Dim del As Boolean
del = False
Do While ActiveCell.Value <> ""
    If Not del Then ActiveCell.Offset(1, 0).Select
    del = False
    If ActiveCell.Offset(0, 1).Value = "" Then
        Selection.EntireRow.Delete 'supprime la ligne entière
        del = True
    End If
Loop
Application.ScreenUpdating = True
End Sub

for futher informations

Schouly@skynet.be

Bessoin d'aide pour un nouveau

1 réponse

Discussions similaires