Simuler un F2+Entrer

MJ13

XLDnaute Barbatruc

• 28 Octobre 2010

• #2

Re : Simuler un F2+Entrer

Bonjour prozqck

Ou avec:

Code:

sendkeys("{F2}~")

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Octobre 2010

• #3

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+

 

Dernière modification par un modérateur: 28 Octobre 2010

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Octobre 2010

• #4

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

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 28 Octobre 2010

• #5

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.

 

Vote positif 0 Vote négatif

P

prozqck

Guest

• 28 Octobre 2010

• #6

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 :

Code:

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Octobre 2010

• #7

Re : Simuler un F2+Entrer

Re,

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

A+

 

Vote positif 0 Vote négatif

M

matmi

Guest

• 28 Octobre 2010

• #8

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.

Code:

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Octobre 2010

• #9

Re : Simuler un F2+Entrer

Re, Bonjour à tous

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

Code:

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

 

Vote positif 0 Vote négatif