(Aide svp) copie des lignes comportant uniquement des cellules négatives ?

Le
Frederic
Bonsoir,

J'aimerais créer une macro mais je bute sur la copie de lignes comportant
uniquement des cellules négatives.
Voici un exemple plus parlant.
http://cjoint.com/?kAaUnf1Jdg

Merci d'avance,
Frederic
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5004081
Salut Frédéric,

Essaie cette macro :

Sub Frederic()
Application.ScreenUpdating = False
Nom = Format(Date, "dd_mm_yy")
Worksheets("donnees").Activate
Set sel = Worksheets("donnees").Range([a2], [c65000].End(xlUp))
sel.Copy
Set NF = Worksheets.Add
NF.Name = Nom
With NF
.[a1] = "Nom"
.[b1] = "B ou non?"
.[c1] = "Pctages (Triés croissant)"
.[a2].Select
.Paste
End With
For i = Selection.Rows.Count + 1 To 2 Step -1
If Cells(i, 3) > 0 Or Cells(i, 2) = "Blats" Then Rows(i & ":" & i).Delete
Next i
With NF
.[a1:c1].Font.Bold = True
.Columns("A:C").EntireColumn.AutoFit
.[a1].Select
End With
Application.ScreenUpdating = True
End Sub

Serge














"Frederic" <fredo> a écrit dans le message de news: 47211d01$0$21083$
Bonsoir,

J'aimerais créer une macro mais je bute sur la copie de lignes comportant uniquement des cellules négatives.
Voici un exemple plus parlant.
http://cjoint.com/?kAaUnf1Jdg

Merci d'avance,
Frederic




Frederic
Le #5003851
Bonjour Serge,
Je n'ai qu'un seul mot à la bouche: fantastique!
Mille Mercis. ;))
Bonne journée,
Frédéric

"Tatanka"
Salut Frédéric,

Essaie cette macro :

Sub Frederic()
Application.ScreenUpdating = False
Nom = Format(Date, "dd_mm_yy")
Worksheets("donnees").Activate
Set sel = Worksheets("donnees").Range([a2], [c65000].End(xlUp))
sel.Copy
Set NF = Worksheets.Add
NF.Name = Nom
With NF
.[a1] = "Nom"
.[b1] = "B ou non?"
.[c1] = "Pctages (Triés croissant)"
.[a2].Select
.Paste
End With
For i = Selection.Rows.Count + 1 To 2 Step -1
If Cells(i, 3) > 0 Or Cells(i, 2) = "Blats" Then Rows(i & ":" &
i).Delete
Next i
With NF
.[a1:c1].Font.Bold = True
.Columns("A:C").EntireColumn.AutoFit
.[a1].Select
End With
Application.ScreenUpdating = True
End Sub

Serge














"Frederic" <fredo> a écrit dans le message de news:
47211d01$0$21083$
Bonsoir,

J'aimerais créer une macro mais je bute sur la copie de lignes comportant
uniquement des cellules négatives.
Voici un exemple plus parlant.
http://cjoint.com/?kAaUnf1Jdg

Merci d'avance,
Frederic








Publicité
Poster une réponse
Anonyme