Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Mon casse-tête depuis 1 semaine = je vais devenir maboul

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une beau WE

Voilà une semaine que je planche sur les 2 soucis de mon fichier.
Et là : c'est trop fort pour moi et je n'y comprends rien !!!

J'ai créé un fichier de prospection qui fonctionne parfaitement chez moi.
Je suis en Tunisie sous office365 - windows10
Ma collègue habite en France et est également : sous office365 - windows10
Ses paramètres office et windows10 sont exactement les mêmes que moi (y compris paramètres régionaux et complémentaires).

Et pourtant
Quand j'envoie le fichier (transfert par Skype) à ma collègue ... il ne fonctionne pas chez elle !!!

Fonctionnement du fichier :
A l'ouverture (code dans le ThisWorkbook) :
- les rappels de la colonne "J" à partir de la ligne 6 sont classés dans l'ordre des dates,
- Ils sont comptés. Un MsgBox s'affiche pour informer,
- les dates en dépassement ne sont mises en rouge (MFC) :

Problème 1
Chez ma collègue à l'ouverture il y a un souci d'incompatibilité type 13

Problème 2
Les rappels ne sont pas classés par dates mais classés sur les jours.
Et les dates en dépassement ne sont pas mises en rouge (MFC)

Je n'arrive pas à comprendre pourquoi :
Même fichier (fichier transmis) - même Windows10 - même office - même paramètres.
ça marche chez moi et pas chez elle

Je joins le fichier test.
nota : le code de la feuille permet également de trier en cliquant sur la cellule "J5" (classer)

Fonctionne-t-il chez vous ?
Pourriez tester et m'aider ?
Je vous remercie vivement,
Amicalement,
lionel,
 

Pièces jointes

  • Appel_test2.xlsm
    33.5 KB · Affichages: 25
Dernière édition:
Trier par date Trier par votes

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
re,

change cette ligne dans ta macro open sur le dernier fichier que je t'ai envoyé
VB: 
.NumberFormat = "dd/mm/yyyy" & vbLf & "hh:mm"
par
VB: 
.NumberFormat = "dd.mm.yyyy" & vbLf & "hh:mm"
et tu pourras garder le même format d'affichage et la même taille de colonne.

Bien cordialement, @+
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite un beau dimanche

Je tiens à remercier tous ceux qui m'ont répondu pour m'aider.
En particulier Yeahou qui a solutionné mes soucis.

Hier soir, nous avons testé chez ma collègue et tout fonctionne comme chez moi
Encore merci Yeahou et à vous tous pour votre gentillesse et votre patience

Il me reste un petit souci d'affichage :
Je dois élargir la colonne à 15 alors qu'elle devrait être à 10 pour afficher les dates sinon je ne vois que des "**************" "lol ça froisse mes yeux que cette colonne ne soit pas de la même largeur que les autres mais ce n'est pas bien grave, l'important étant que ça fonctionne

Encore merci,
Amicalement,
lionel
 
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour CP4,
Merci de t'être intéressé à mes soucis.
Bizarre, hormis la largeur de la colonne, ça fonctionne bien chez moi.
Je remets le fichier en pièce jointe,
Tu veux bien le tester ?
Bon dimanche à toi aussi
lionel
 

Pièces jointes

  • Appel_test4.xlsm
    38.3 KB · Affichages: 6
Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc
Usine à gaz à dit:
Bonjour CP4,
Merci de t'être intéressé à mes soucis.
Bizarre, hormis la largeur de la colonne, ça fonctionne bien chez moi.
Je remets le fichier en pièce jointe,
Tu veux bien le tester ?
Bon dimanche à toi aussi
lionel
Cliquez pour agrandir...
Avec plaisir! Mais même plantage sur la même ligne.



La largeur chez est correcte, on lit bien la date.
L'essentiel est que ça fonctionne chez toi et ta collègue.

edit: erreur levée


edit2: chez-moi il fallait Add et non Add2
VB: 
 'syntaxe initiale'
 .SortFields.Add2 Key:=Range("J6:J" & dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
 
 'syntaxe excel 2010 chez moi'
 .SortFields.Add Key:=Range("J6:J" & dl), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Question
XL 2013 Problème formules
Réponses
6
Affichages
196
Rikko14
R
  • Question
XL 2021 formule pour modifier le CONTENU de certaines cellules
2
Réponses
23
Affichages
915
Usine à gaz
  • Question
XL 2021 code que je n'arrive pas à faite fonctionner avec Range("ActiveCell.Offset(0, 0).Resize(10, 1)")
2 3 4
Réponses
55
Affichages
1 K
Staple1600
M
  • Question
Microsoft 365 Macros bloquées (non actives) ???
2
Réponses
27
Affichages
1 K
Staple1600
S
  • Question
XL 2019 Modifier les "limitations/plages" d'une feuille
2
Réponses
15
Affichages
554
ST4423
S
V
  • Question
XL 2021 Implémenter tableau avec des fichiers mis dans un dossier
Réponses
2
Affichages
186
merinos
  • Résolu(e)
Microsoft 365 Vérification de ma formule
2
Réponses
16
Affichages
1 K
Usine à gaz
Y
  • Question
Autres Tri de données
Réponses
10
Affichages
620
JHA
J
N
  • Question
Microsoft 365 [Résolu] Couleurs doublons multiple
Réponses
8
Affichages
580
Neo37
N
B
  • Question
Microsoft 365 Automatisation fichier de compte rendu
Réponses
13
Affichages
806
Blf57
B
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…