Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro "F2"

Macro "F2"

8 réponses
Avatar
JP
Bonjour,
je travail sur des fichiers d'import et les nombre sont=20
consid=E9r=E9s comme du texte actuellement seul solution que=20
j'ai trouver c'est de faire "F2" et "ENTRER" sur les=20
cellules concernes mais quand j'ais plus de 200 cellules=20
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui=20
ferait "F2 puis Entrer"=20
merci d'avance
Signaler un problème avec ce contenu

8 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
MichDenis
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans le message de news: 04f301c53a9f$30fff8e0$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance
Avatar
JP
Merci Bcp
mais comme je suis vraiment novice je ne sait pas comment
appliquer ta macro uniquement a une zone que je sélection
avec ma souris
si je peut abuser en te demandant ton aide encore une fois


-----Message d'origine-----
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End
(xlUp).Row)

End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans
le message de news: 04f301c53a9f$30fff8e0

$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance


.



Avatar
Myriam
Salut
Pour ma part, j'utilise la cellule d'à coté, par exemple B1, dans laquelle
=CNUM(A1)
Puis je recopie la formule vers le bas pour tout convertir en numérique.
Facile à automatiser avec une macro...
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer la 'Virgule.' si vous voulez répondre !!
Myriam.M
"JP" a écrit dans le message de news:
04f301c53a9f$30fff8e0$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance
Avatar
ChrisV
Denis étant parti à son tour à la machine à café...

Sub Test()
Dim Tblo As Variant
With Selection
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub


ChrisV


"JP" a écrit dans le message de news:
052501c53aa7$b9292cc0$
Merci Bcp
mais comme je suis vraiment novice je ne sait pas comment
appliquer ta macro uniquement a une zone que je sélection
avec ma souris
si je peut abuser en te demandant ton aide encore une fois


-----Message d'origine-----
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End
(xlUp).Row)

End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans
le message de news: 04f301c53a9f$30fff8e0

$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance


.



Avatar
MichDenis
Merci ChrisV d'avoir assuré le suivi.

Je me permets ce petit commentaire à l'égard de JP,

Si ta sélection représente des plages de cellules discontinues, reviens, il faudra adapter la procédure car elle est inapplicable
dans sa présentation sur des plages multiples discontinues de cellules sélectionnées.


Salutations!



"ChrisV" a écrit dans le message de news: %
Denis étant parti à son tour à la machine à café...

Sub Test()
Dim Tblo As Variant
With Selection
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub


ChrisV


"JP" a écrit dans le message de news:
052501c53aa7$b9292cc0$
Merci Bcp
mais comme je suis vraiment novice je ne sait pas comment
appliquer ta macro uniquement a une zone que je sélection
avec ma souris
si je peut abuser en te demandant ton aide encore une fois


-----Message d'origine-----
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End
(xlUp).Row)

End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans
le message de news: 04f301c53a9f$30fff8e0

$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance


.



Avatar
ChrisV
Merci ChrisV d'avoir assuré le suivi.


De rien... de rien...

Si ta sélection représente des plages de cellules discontinues...


En principe non Denis:
... a une zone que je sélectionne
avec ma souris



mais, tu as parfaitement raison de le préciser, au cas zou... ;-)


ChrisV


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

Merci ChrisV d'avoir assuré le suivi.

Je me permets ce petit commentaire à l'égard de JP,

Si ta sélection représente des plages de cellules discontinues, reviens,
il faudra adapter la procédure car elle est inapplicable
dans sa présentation sur des plages multiples discontinues de cellules
sélectionnées.


Salutations!



"ChrisV" a écrit dans le message de news:
%
Denis étant parti à son tour à la machine à café...

Sub Test()
Dim Tblo As Variant
With Selection
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub


ChrisV


"JP" a écrit dans le message de
news:
052501c53aa7$b9292cc0$
Merci Bcp
mais comme je suis vraiment novice je ne sait pas comment
appliquer ta macro uniquement a une zone que je sélection
avec ma souris
si je peut abuser en te demandant ton aide encore une fois


-----Message d'origine-----
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End
(xlUp).Row)

End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans
le message de news: 04f301c53a9f$30fff8e0

$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance


.








Avatar
Merci bcp jp
-----Message d'origine-----
Merci ChrisV d'avoir assuré le suivi.


De rien... de rien...

Si ta sélection représente des plages de cellules
discontinues...



En principe non Denis:
... a une zone que je sélectionne
avec ma souris



mais, tu as parfaitement raison de le préciser, au cas
zou... ;-)



ChrisV


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


Merci ChrisV d'avoir assuré le suivi.

Je me permets ce petit commentaire à l'égard de JP,

Si ta sélection représente des plages de cellules
discontinues, reviens,


il faudra adapter la procédure car elle est inapplicable
dans sa présentation sur des plages multiples
discontinues de cellules


sélectionnées.


Salutations!



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


%
Denis étant parti à son tour à la machine à café...

Sub Test()
Dim Tblo As Variant
With Selection
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub


ChrisV


"JP" a écrit dans
le message de


news:
052501c53aa7$b9292cc0$
Merci Bcp
mais comme je suis vraiment novice je ne sait pas
comment


appliquer ta macro uniquement a une zone que je
sélection


avec ma souris
si je peut abuser en te demandant ton aide encore une
fois




-----Message d'origine-----
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End
(xlUp).Row)

End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans
le message de news: 04f301c53a9f$30fff8e0

$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance


.








.





Avatar
Merci encore
-----Message d'origine-----
Merci ChrisV d'avoir assuré le suivi.

Je me permets ce petit commentaire à l'égard de JP,

Si ta sélection représente des plages de cellules
discontinues, reviens, il faudra adapter la procédure car

elle est inapplicable
dans sa présentation sur des plages multiples
discontinues de cellules sélectionnées.



Salutations!



"ChrisV" a écrit dans le message de
news: %

Denis étant parti à son tour à la machine à café...

Sub Test()
Dim Tblo As Variant
With Selection
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub


ChrisV


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

052501c53aa7$b9292cc0$
Merci Bcp
mais comme je suis vraiment novice je ne sait pas comment
appliquer ta macro uniquement a une zone que je sélection
avec ma souris
si je peut abuser en te demandant ton aide encore une fois


-----Message d'origine-----
Bonjour JP,

Voici un petit exemple de code que tu peux adapter :

'-------------------------
Sub Test()

Dim Tblo As Variant
Dim Rg As Range

With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65536").End
(xlUp).Row)

End With
With Rg
Tblo = .Value
.Clear
.NumberFormat = "General"
.Value = Tblo
End With
End Sub
'-------------------------


Salutations!



"JP" a écrit dans
le message de news: 04f301c53a9f$30fff8e0

$
Bonjour,
je travail sur des fichiers d'import et les nombre sont
considérés comme du texte actuellement seul solution que
j'ai trouver c'est de faire "F2" et "ENTRER" sur les
cellules concernes mais quand j'ais plus de 200 cellules
cela devient fastidieux .
Quelqu'un peut il me donner la solution via ne macro qui
ferait "F2 puis Entrer"
merci d'avance


.





.