Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
-----Original Message-----
accent grave: généralement 2ème touche à droite du L. on
fait l'accent, il
semble rien se passer, puis on fait la lettre, et alors
elle apparaît
accentuée gravement.
L'Accent circonflexe, est la ière touche à droite du P.
avec la même
technique, tu y arriveras.
Puis la cédille, 2e touche à droite du P. Reçu?
Quant au tréma, il est 2e touche à droite du P, mais en
majuscule. Bientôt
le maïs sera mûr!
Bonne chance,
Danielle
"Denys" a écrit dans le message
de news:
03c201c35863$2a53fde0$
Bonjour Isabelle,
Merci beaucoup pour ta réponse. Cependant, saurais-tu me
dire ou (je ne sais pas ou est l'accent grave)je dois
mettre cette instruction, à date tout ce que j'ai réussi à
faire, c'est de tout effacer!!!!
Merci
Denys-----Original Message-----
bonjour Denys,
pour éliminer tout ce qui n'est pas numérique,
Cells.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Clear
isabelle
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les
informations
provenant d'une base de données complètement étrangère
à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel
encliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID,
jesuis capable d'aller chercher les résultats voulus et
lesplacer dans les cellules voulues. Mais je recueille
aussitoutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine
laligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset
(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis
aperçuque les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne
m'attendaisà avoir ce genre de problème, mais je sais que cela
pourrase répéter dans le futur...
Bonne journée
Denys
.
.
-----Original Message-----
accent grave: généralement 2ème touche à droite du L. on
fait l'accent, il
semble rien se passer, puis on fait la lettre, et alors
elle apparaît
accentuée gravement.
L'Accent circonflexe, est la ière touche à droite du P.
avec la même
technique, tu y arriveras.
Puis la cédille, 2e touche à droite du P. Reçu?
Quant au tréma, il est 2e touche à droite du P, mais en
majuscule. Bientôt
le maïs sera mûr!
Bonne chance,
Danielle
"Denys" <denys.perreault@rbc.com> a écrit dans le message
de news:
03c201c35863$2a53fde0$a101280a@phx.gbl...
Bonjour Isabelle,
Merci beaucoup pour ta réponse. Cependant, saurais-tu me
dire ou (je ne sais pas ou est l'accent grave)je dois
mettre cette instruction, à date tout ce que j'ai réussi à
faire, c'est de tout effacer!!!!
Merci
Denys
-----Original Message-----
bonjour Denys,
pour éliminer tout ce qui n'est pas numérique,
Cells.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Clear
isabelle
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les
informations
provenant d'une base de données complètement étrangère
à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel
en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID,
je
suis capable d'aller chercher les résultats voulus et
les
placer dans les cellules voulues. Mais je recueille
aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine
la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset
(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis
aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne
m'attendais
à avoir ce genre de problème, mais je sais que cela
pourra
se répéter dans le futur...
Bonne journée
Denys
.
.
-----Original Message-----
accent grave: généralement 2ème touche à droite du L. on
fait l'accent, il
semble rien se passer, puis on fait la lettre, et alors
elle apparaît
accentuée gravement.
L'Accent circonflexe, est la ière touche à droite du P.
avec la même
technique, tu y arriveras.
Puis la cédille, 2e touche à droite du P. Reçu?
Quant au tréma, il est 2e touche à droite du P, mais en
majuscule. Bientôt
le maïs sera mûr!
Bonne chance,
Danielle
"Denys" a écrit dans le message
de news:
03c201c35863$2a53fde0$
Bonjour Isabelle,
Merci beaucoup pour ta réponse. Cependant, saurais-tu me
dire ou (je ne sais pas ou est l'accent grave)je dois
mettre cette instruction, à date tout ce que j'ai réussi à
faire, c'est de tout effacer!!!!
Merci
Denys-----Original Message-----
bonjour Denys,
pour éliminer tout ce qui n'est pas numérique,
Cells.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Clear
isabelle
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les
informations
provenant d'une base de données complètement étrangère
à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel
encliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID,
jesuis capable d'aller chercher les résultats voulus et
lesplacer dans les cellules voulues. Mais je recueille
aussitoutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine
laligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset
(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis
aperçuque les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne
m'attendaisà avoir ce genre de problème, mais je sais que cela
pourrase répéter dans le futur...
Bonne journée
Denys
.
.
C'est probablement pour le futur souper (dîner) du MPFE international
Ch.
"Clément Marcotte" wrote in message
news:%As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour de
la part de JPS.
C'est probablement pour le futur souper (dîner) du MPFE international
Ch.
"Clément Marcotte" <clement.marcotte@sympatico.ca> wrote in message
news:%230PagrHWDHA.1896@TK2MSFTNGP12.phx.gbl...
As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour de
la part de JPS.
C'est probablement pour le futur souper (dîner) du MPFE international
Ch.
"Clément Marcotte" wrote in message
news:%As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour de
la part de JPS.
Dans son message ,
sabatier nous disait:et pendant ce temps il a offert à bernadette, pour ses 70 ans un
voyage à tahiti..."ouh mon cher jacques, et qu'allez-vous (NDLR. ils
se vouvoient, c'est bien connu) m'offrir pour mes 80 ans?" "ben, je
reviendrai vous chercher"
jps
Match a écrit:C'est probablement pour le futur souper (dîner) du MPFE international
Ch.
"Clément Marcotte" wrote in message
news:%As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour
de la part de JPS.
Bonjour,
A peu près ce que j'ai dit à mon épouse il y a une huitaine:
moi: Chérie, fais tes valises, j'ai gagné au Loto.
elle: Et que prends-je, vêtements d'hiver ou vêtements d'été?
moi: Tout! Tu t'en vas!
Je vais me faire allumer par les filles, là, c'est sûr. ;-)
Bon dimanche.
Dans son message 3F2C341B.6060202@wanadoo.fr,
sabatier nous disait:
et pendant ce temps il a offert à bernadette, pour ses 70 ans un
voyage à tahiti..."ouh mon cher jacques, et qu'allez-vous (NDLR. ils
se vouvoient, c'est bien connu) m'offrir pour mes 80 ans?" "ben, je
reviendrai vous chercher"
jps
Match a écrit:
C'est probablement pour le futur souper (dîner) du MPFE international
Ch.
"Clément Marcotte" <clement.marcotte@sympatico.ca> wrote in message
news:%230PagrHWDHA.1896@TK2MSFTNGP12.phx.gbl...
As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour
de la part de JPS.
Bonjour,
A peu près ce que j'ai dit à mon épouse il y a une huitaine:
moi: Chérie, fais tes valises, j'ai gagné au Loto.
elle: Et que prends-je, vêtements d'hiver ou vêtements d'été?
moi: Tout! Tu t'en vas!
Je vais me faire allumer par les filles, là, c'est sûr. ;-)
Bon dimanche.
Dans son message ,
sabatier nous disait:et pendant ce temps il a offert à bernadette, pour ses 70 ans un
voyage à tahiti..."ouh mon cher jacques, et qu'allez-vous (NDLR. ils
se vouvoient, c'est bien connu) m'offrir pour mes 80 ans?" "ben, je
reviendrai vous chercher"
jps
Match a écrit:C'est probablement pour le futur souper (dîner) du MPFE international
Ch.
"Clément Marcotte" wrote in message
news:%As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour
de la part de JPS.
Bonjour,
A peu près ce que j'ai dit à mon épouse il y a une huitaine:
moi: Chérie, fais tes valises, j'ai gagné au Loto.
elle: Et que prends-je, vêtements d'hiver ou vêtements d'été?
moi: Tout! Tu t'en vas!
Je vais me faire allumer par les filles, là, c'est sûr. ;-)
Bon dimanche.
As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour de
la part de JPS.
"isabelle" a écrit dans le message
de news:
bonjour Denys,
pour éliminer tout ce qui n'est pas numérique,
Cells.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Clear
isabelle
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour de
la part de JPS.
"isabelle" <as.isabellevNospam@videotron.ca> a écrit dans le message
de news:3F2AB1E2.98E8CABC@videotron.ca...
bonjour Denys,
pour éliminer tout ce qui n'est pas numérique,
Cells.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Clear
isabelle
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
As tu su que Jacques Chirac est pas loin de chez vous ? (À
North-Hatley). Va falloir que tu ailles lui souhaiter un bon séjour de
la part de JPS.
"isabelle" a écrit dans le message
de news:
bonjour Denys,
pour éliminer tout ce qui n'est pas numérique,
Cells.SpecialCells(xlCellTypeConstants, 2).Select
Selection.Clear
isabelle
Bonjour à tous,
J'ai une bonne colle pour vous en ce début de mois.....
Je cherche à bâtir une application afin d'aider mon
prochain qui, jusqu'à hier, ne savait pas qu'il avait
Excel dans son ordi (nous l'avons tous au bureau...)
Donc, faut que ce soit facile.....
Je lui demande donc de copier à l'écran les informations
provenant d'une base de données complètement étrangère à
la plateforme Microsoft. Après avois fait Edit, Select
all, Copy, il colle le résultat dans une feuille Excel en
cliquant sur la cellule A1.
Le résultat est affreux. Sauf que avec la fonction MID, je
suis capable d'aller chercher les résultats voulus et les
placer dans les cellules voulues. Mais je recueille aussi
toutes sortes de cochonneries dont je voudrais bien me
débarasser.
J'ai essayé d'éliminer les indésirables, i.e. dans la
colonne A, tout ce qui n'est pas numérique, on élimine la
ligne, mais comme c'est une formule, cela ne fonctionne
pas.
J'ai donc essayé de copier et de ne coller que les
valeurs, mais tout devient texte, et je ne sais pas
comment éliminer ce qui n'est pas numérique.
Voici le code... (abrégé)
Private Sub CommandButton1_Click()
Sheet1.[a2].Formula = "=MID(CopyFromScreen!
A1,1,9)"
Range("A2").AutoFill Destination:=Range
("A2:A40"), Type:=xlFillDefault
Sheet1.[c2].Formula = "=MID(CopyFromScreen!
A1,27,15)"
Range("c2").AutoFill Destination:=Range
("c2:c40"), Type:=xlFillDefault
etc.....
End Sub
Mon code pour éliminer va comme suit...
Sub eliminate()
Rows("1:1").RowHeight = 65.25
With Worksheets("RMPInfo")
Application.ScreenUpdating = False
With .Range("A:A")
.AutoFilter Field:=1, Criteria1:="<>*"
.Range("_FilterDatabase").Offset(1).SpecialCells
(xlCellTypeVisible) _
.EntireRow.Delete (xlUp)
.AutoFilter
End With
End With
End Sub
J'ai essyé Criteria1:="=*"
Rien n'y fait.... je sais que c'est compliqué, mais si
vous avez une idée, ce serait apprécié. Je me suis aperçu
que les données dans les cellules A ne seblent pas
toujours commencer au début (on peut cliquer dans le
Formula Bar au début du résultat et faire backspace).
Enfin, merci beaucoup pour votre temps. je ne m'attendais
à avoir ce genre de problème, mais je sais que cela pourra
se répéter dans le futur...
Bonne journée
Denys
