Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (Aide svp) copie des lignes comportant uniquement des cellules négatives ?

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

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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




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

"Tatanka" a écrit dans le message de news:

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