Je pr=E9pare un petit prgramme pour un coll=E8gue. Il ira dans=20
une application sur une autre plateforme, et copiera =E0=20
l'=E9cran les informations s'y trouvant et les collera sur=20
une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte.=20
Cependant, comme il n'est pas tr=E8s familier avec les=20
ordis, il est fort probable qu'il copie et colle parfois=20
trop d'infos se trouvant =E0 l'=E9cran. De sorte qu'il peut=20
parfois avoir du texte =E9crit dans une cellule de la=20
colonne A (g=E9n=E9ralement Total).=20
Je voudrais donc m'assurer qu'il puisse, en actionnant un=20
bouton de commande, =E9liminer toute ligne dont la celllule=20
correspondante dans la colonne A ne contient pas une=20
valeur num=E9rique. Voici ou (je ne trouve pas l'accent=20
grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight =3D 65.25
Application.ScreenUpdating =3D False
With .Range("A:A")
.AutoFilter Field:=3D1, Criteria1:=3D"Ici doit=20
apparaitre le crit=E8re"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End Sub
Est-ce que quelqu'un saurait quel crit=E8re je dois=20
appliquer???
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
Alain CROS.
Bonjour.
Sub eliminate() Application.ScreenUpdating = False With [A1] .Insert Shift:=xlDown .Value = "total" End With With [A:A] .AutoFilter Field:=1, Criteria1:="<>*" .SpecialCells(xlCellTypeVisible).Copy [D1] .AutoFilter .ClearContents End With With [D:D] .Copy [A1] .ClearContents End With [A1].Delete Shift:=xlUp End Sub
Alain CROS.
-----Message d'origine----- Bonjour à tous,
Je prépare un petit prgramme pour un collègue. Il ira dans
une application sur une autre plateforme, et copiera à l'écran les informations s'y trouvant et les collera sur une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte. Cependant, comme il n'est pas très familier avec les ordis, il est fort probable qu'il copie et colle parfois trop d'infos se trouvant à l'écran. De sorte qu'il peut parfois avoir du texte écrit dans une cellule de la colonne A (généralement Total).
Je voudrais donc m'assurer qu'il puisse, en actionnant un bouton de commande, éliminer toute ligne dont la celllule correspondante dans la colonne A ne contient pas une valeur numérique. Voici ou (je ne trouve pas l'accent grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight = 65.25 Application.ScreenUpdating = False With .Range("A:A") .AutoFilter Field:=1, Criteria1:="Ici doit apparaitre le critère" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With End Sub
Est-ce que quelqu'un saurait quel critère je dois appliquer???
Merci à tous pour votre temps....
Denys .
Bonjour.
Sub eliminate()
Application.ScreenUpdating = False
With [A1]
.Insert Shift:=xlDown
.Value = "total"
End With
With [A:A]
.AutoFilter Field:=1, Criteria1:="<>*"
.SpecialCells(xlCellTypeVisible).Copy [D1]
.AutoFilter
.ClearContents
End With
With [D:D]
.Copy [A1]
.ClearContents
End With
[A1].Delete Shift:=xlUp
End Sub
Alain CROS.
-----Message d'origine-----
Bonjour à tous,
Je prépare un petit prgramme pour un collègue. Il ira
dans
une application sur une autre plateforme, et copiera à
l'écran les informations s'y trouvant et les collera sur
une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte.
Cependant, comme il n'est pas très familier avec les
ordis, il est fort probable qu'il copie et colle parfois
trop d'infos se trouvant à l'écran. De sorte qu'il peut
parfois avoir du texte écrit dans une cellule de la
colonne A (généralement Total).
Je voudrais donc m'assurer qu'il puisse, en actionnant un
bouton de commande, éliminer toute ligne dont la celllule
correspondante dans la colonne A ne contient pas une
valeur numérique. Voici ou (je ne trouve pas l'accent
grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight = 65.25
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="Ici doit
apparaitre le critère"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End Sub
Est-ce que quelqu'un saurait quel critère je dois
appliquer???
Sub eliminate() Application.ScreenUpdating = False With [A1] .Insert Shift:=xlDown .Value = "total" End With With [A:A] .AutoFilter Field:=1, Criteria1:="<>*" .SpecialCells(xlCellTypeVisible).Copy [D1] .AutoFilter .ClearContents End With With [D:D] .Copy [A1] .ClearContents End With [A1].Delete Shift:=xlUp End Sub
Alain CROS.
-----Message d'origine----- Bonjour à tous,
Je prépare un petit prgramme pour un collègue. Il ira dans
une application sur une autre plateforme, et copiera à l'écran les informations s'y trouvant et les collera sur une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte. Cependant, comme il n'est pas très familier avec les ordis, il est fort probable qu'il copie et colle parfois trop d'infos se trouvant à l'écran. De sorte qu'il peut parfois avoir du texte écrit dans une cellule de la colonne A (généralement Total).
Je voudrais donc m'assurer qu'il puisse, en actionnant un bouton de commande, éliminer toute ligne dont la celllule correspondante dans la colonne A ne contient pas une valeur numérique. Voici ou (je ne trouve pas l'accent grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight = 65.25 Application.ScreenUpdating = False With .Range("A:A") .AutoFilter Field:=1, Criteria1:="Ici doit apparaitre le critère" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With End Sub
Est-ce que quelqu'un saurait quel critère je dois appliquer???
Merci à tous pour votre temps....
Denys .
Denys
Bonjour Alain,
Merci beaucoup pour ta réponse. Excuse-moi de te répondre si tard, mais je n'ai réouvert mon ordi que ce matin (il est 8hrs 30 ici).
Tu as été très aimable
Denys
-----Original Message----- Bonjour.
Sub eliminate() Application.ScreenUpdating = False With [A1] .Insert Shift:=xlDown .Value = "total" End With With [A:A] .AutoFilter Field:=1, Criteria1:="<>*" .SpecialCells(xlCellTypeVisible).Copy [D1] .AutoFilter .ClearContents End With With [D:D] .Copy [A1] .ClearContents End With [A1].Delete Shift:=xlUp End Sub
Alain CROS.
-----Message d'origine----- Bonjour à tous,
Je prépare un petit prgramme pour un collègue. Il ira dans
une application sur une autre plateforme, et copiera à l'écran les informations s'y trouvant et les collera sur une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte. Cependant, comme il n'est pas très familier avec les ordis, il est fort probable qu'il copie et colle parfois trop d'infos se trouvant à l'écran. De sorte qu'il peut parfois avoir du texte écrit dans une cellule de la colonne A (généralement Total).
Je voudrais donc m'assurer qu'il puisse, en actionnant un
bouton de commande, éliminer toute ligne dont la celllule
correspondante dans la colonne A ne contient pas une valeur numérique. Voici ou (je ne trouve pas l'accent grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight = 65.25 Application.ScreenUpdating = False With .Range("A:A") .AutoFilter Field:=1, Criteria1:="Ici doit apparaitre le critère" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With End Sub
Est-ce que quelqu'un saurait quel critère je dois appliquer???
Merci à tous pour votre temps....
Denys .
.
Bonjour Alain,
Merci beaucoup pour ta réponse. Excuse-moi de te répondre
si tard, mais je n'ai réouvert mon ordi que ce matin (il
est 8hrs 30 ici).
Tu as été très aimable
Denys
-----Original Message-----
Bonjour.
Sub eliminate()
Application.ScreenUpdating = False
With [A1]
.Insert Shift:=xlDown
.Value = "total"
End With
With [A:A]
.AutoFilter Field:=1, Criteria1:="<>*"
.SpecialCells(xlCellTypeVisible).Copy [D1]
.AutoFilter
.ClearContents
End With
With [D:D]
.Copy [A1]
.ClearContents
End With
[A1].Delete Shift:=xlUp
End Sub
Alain CROS.
-----Message d'origine-----
Bonjour à tous,
Je prépare un petit prgramme pour un collègue. Il ira
dans
une application sur une autre plateforme, et copiera à
l'écran les informations s'y trouvant et les collera sur
une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte.
Cependant, comme il n'est pas très familier avec les
ordis, il est fort probable qu'il copie et colle parfois
trop d'infos se trouvant à l'écran. De sorte qu'il peut
parfois avoir du texte écrit dans une cellule de la
colonne A (généralement Total).
Je voudrais donc m'assurer qu'il puisse, en actionnant
un
bouton de commande, éliminer toute ligne dont la
celllule
correspondante dans la colonne A ne contient pas une
valeur numérique. Voici ou (je ne trouve pas l'accent
grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight = 65.25
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="Ici doit
apparaitre le critère"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End Sub
Est-ce que quelqu'un saurait quel critère je dois
appliquer???
Merci beaucoup pour ta réponse. Excuse-moi de te répondre si tard, mais je n'ai réouvert mon ordi que ce matin (il est 8hrs 30 ici).
Tu as été très aimable
Denys
-----Original Message----- Bonjour.
Sub eliminate() Application.ScreenUpdating = False With [A1] .Insert Shift:=xlDown .Value = "total" End With With [A:A] .AutoFilter Field:=1, Criteria1:="<>*" .SpecialCells(xlCellTypeVisible).Copy [D1] .AutoFilter .ClearContents End With With [D:D] .Copy [A1] .ClearContents End With [A1].Delete Shift:=xlUp End Sub
Alain CROS.
-----Message d'origine----- Bonjour à tous,
Je prépare un petit prgramme pour un collègue. Il ira dans
une application sur une autre plateforme, et copiera à l'écran les informations s'y trouvant et les collera sur une feuille Excel.
Dans la colonne A doivent se trouver des nos de compte. Cependant, comme il n'est pas très familier avec les ordis, il est fort probable qu'il copie et colle parfois trop d'infos se trouvant à l'écran. De sorte qu'il peut parfois avoir du texte écrit dans une cellule de la colonne A (généralement Total).
Je voudrais donc m'assurer qu'il puisse, en actionnant un
bouton de commande, éliminer toute ligne dont la celllule
correspondante dans la colonne A ne contient pas une valeur numérique. Voici ou (je ne trouve pas l'accent grave sur ce clavier$%$$%%) j'en suis rendu:
Sub eliminate()
Rows("1:1").RowHeight = 65.25 Application.ScreenUpdating = False With .Range("A:A") .AutoFilter Field:=1, Criteria1:="Ici doit apparaitre le critère" .Range("_FilterDatabase").Offset(1).SpecialCells (xlCellTypeVisible) _ .EntireRow.Delete (xlUp) .AutoFilter End With End Sub
Est-ce que quelqu'un saurait quel critère je dois appliquer???
