Simuler un F2+Entrer

[prozqck]

Bonjour à tous,

Après avoir importer un fichier extérieur sous excel, certaines cellules contenant des dates ne sont pas considérées comme telles par excel, et cela m'empèche de les traitées, en faisant F2+entrée le problème est résolu.

Y aurait t'il une astuce pour automatiser le F2+entrée a toutes les cellules de la colonne sélectionnée ? J'ai pas envie de me chopper une tendinite 🙂

Merci !

 

[MJ13]

Re : Simuler un F2+Entrer

Bonjour prozqck

Ou avec:

sendkeys("{F2}~")

 

[Guest]

Re : Simuler un F2+Entrer

Bonjour,

Si ta colonne est A tu peux insérer une colonne à droite et y mettre la formule
=A1*1
Et tirer vers le bas
Ensuite Tu copies la colonne Menu/Edition/collage spécial et tu choisis 'Valeurs'
Si tout est ok tu peux supprimer ta colonne A.

Ou sélectionner toutes tes dates Menu/données/convertir et à la troisième étape tu choisis le format date. Valider
A+

 

[tototiti2008]

Re : Simuler un F2+Entrer

Bonjour Michel, Bonjour prozqkwqzszqwxw, Bonjour Hasco

Tu peux aussi sélectionner la colonne de tes dates non reconnues et aller dans le menu Données - Convertir
Suivant
Suivant

Format des données en colonne : Date JMA

 

[hoerwind]

Re : Simuler un F2+Entrer

Bonjour, salut les autres,

Si F2 + Entrée fonctionne, la procédure suivante devrait aussi le faire :

Copier une cellule vide
Sélectionner la colonne des dates
Collage spécial addition.

 

[prozqck]

Re : Simuler un F2+Entrer

Merci beaucoup, cela fonctionne.

Je l'ai adapté de la fonction suivante, s'il se trouve que quelqu'un ai le même problème que le mien un jour :

Dim a As Range
    For Each a In Range("A1:A700").Cells
        a.Select
        SendKeys "{F2}", True
        SendKeys "{ENTER}", True
    Next

 

[Guest]

Re : Simuler un F2+Entrer

Re,

Les solutions autres sont bien plus rapides sur un grand nombre de données.

A+

 

[matmi]

Re : Simuler un F2+Entrer

j'avais fais une macro une fois ou une msgbox s'ouvre pour demander la plage
Cette macro ne sert que pour actualiser des cellules avec formules.

Sub Fdeux()

Dim vCel2 As Range, Plage2 As Range

On Error GoTo SaisieAnnulee
Set Plage2 = Application.InputBox(prompt:="Selectionnez la plage à arrondir puis OK", Type:=8)
'ouverture d'une box pour demander la plage désirée
For Each vCel2 In Plage2
    If Left(vCel2.Formula, 1) = "=" Then vCel2.Formula = "=" & Mid(vCel2.Formula, 2)
Next vCel2
Exit Sub
SaisieAnnulee:

On Error GoTo 0

End Sub

Si ça peut dépanner

 

[MJ13]

Re : Simuler un F2+Entrer

Re, Bonjour à tous

Tu peux aussi tester cette macro, comme expliqué par Ges 🙂:

Sub transforme_texte_val()
For Each cell In Range("zone")
cell.Value = Val(cell * 1)
Next
End Sub