(Aide svp) copie des lignes comportant uniquement des cellules négatives ?
2 réponses
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
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
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
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$426a34cc@news.free.fr...
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
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
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
Bonjour Serge,
Je n'ai qu'un seul mot à la bouche: fantastique!
Mille Mercis. ;))
Bonne journée,
Frédéric
"Tatanka" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de news:
echEYL2FIHA.6068@TK2MSFTNGP05.phx.gbl...
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$426a34cc@news.free.fr...
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
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