Discussion :

[Lam83]

bonjour à tous,
grâce aux conseils de qqes Seniors du forum j'ai créeé une Macro qui démarre sur une touche de raccourci sur ma machine avec Excel Etudiant 2019.
lorsque je passe cette macro sur une machine d'un ami en Version 365, ça ne fonctionne pas.
en effet lors de la saisie d'une valeur sur une cellule, sur Xl-2019 le focus passe à la cellule immédiatement inférieure, tandis que sur Xl-365 le focus rest sur le cellule.
peut-on paramétrer cette saisie pour avoir le même comportement sur les deux machines?
Comment peut-on récupérer la version et modifier par du code la macro pour permettre son utilisation sur les deux machines?
si cela existe dans un article du forum, merci de me le signaler.
d'avance merci
Lam83

[tototiti2008]

Bonjour,

A vérifier dans les Options :

Onglet Fichier - Options
Options avancées - Options d'édition
Déplacer la sélection après validation
Sens

[Ericcool02]

Bonjour le forum
Bonjour Lam, tototiti

Essaies ce code qui te donne la version (complète) utilisée - Je ne suis pas sûr pour XL2019 (si quelqu'un peut confirmer ou infirmer).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub QuelleVersionOfficeSurMonPc()
Dim i As String
Dim var As Boolean
 
NumeroVersionOffice = CStr(Application.Version)
 
#If Win64 Then
        var = True
    #End If
    If var = True Then
    i = "64 bits"
 
    Else
 
       i = "32 bits"
    End If
 
Select Case NumeroVersionOffice
   Case "7.0": NomVersionOffice = "Office 97"
   Case "8.0": NomVersionOffice = "Office 98"
   Case "9.0": NomVersionOffice = "Office 2000"
   Case "10.0": NomVersionOffice = "Office XP"
   Case "11.0": NomVersionOffice = "Office 2003"
   Case "12.0": NomVersionOffice = "Office 2007"
   Case "14.0": NomVersionOffice = "Office 2010"
   Case "15.0": NomVersionOffice = "Office 2013"
   Case "16.0": NomVersionOffice = "Office 2016"
   'Case "17.0": NomVersionOffice = "Office 2019"   sous réserve
   Case Else
End Select
 
MsgBox "Vous utilisez " & NomVersionOffice & " " & ":" & " " & i
End Sub

@+ Ericcoool02

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Pour connaître la version d'Excel utilisée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Version

Une autre fonction peut rendre service

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Environ

Un exemple de boucles sur ses items est reporté dans cette discussion.