Macro incluant des sauts de ligne dans une cellule

Bonjour à tous

Dans le cadre d'un projet de développement de rapport sur Excel, j'ai créé une macro (nommée dans mon projet certifdegroupe, attachée au bouton "developpement") qui me permet:

• de changer le texte de 3 cellules (D12, D43 et D44)
• dans l'une de ces 3 cellules (D44), la macro permet aussi d'insérer des sauts de ligne par Chr(10)
• d'augmenter la hauteur d'une ligne

Une seconde macro (nommée certif individuelle dans mon projet, attachée au bouton "annuler développement"

Je suis très content du résultat, ça finctionne très bien sur mon PC et celui d'un de mes collègues, mais pas sur celui de mes autres collègues (erreur de compilation, et l'un des Chr(10) est surligné). Je ne comprend pas pourquoi (nous avons tous des versions 2007 ou 2010, le fichier lui est sous format 97-2003).

J'espère que mes explications sont claires, je m'excuse mais vous l'aurez compris je ne maitrise pas très bien ce super outil qu'est Excel.

Je vous propose une copie du projet ci-jointe. Pourriez vous m'aider à identifier l'origine du problème ?

Cordialement

Bonjour

Si tu as cette erreur

Dans l'éditeur VB

Menu Exécution --> Réinitialiser

Menu Outils --> Références

Il faut décochertoutes les références avec "MANQUANT"

Sauvegarder puis relancer la macro

Bonjour Bonzai 64

Merci beaucoup effectivement en faisant comme indiqué le problème a été supprimé !! super

Mais une question : qu'est ce qui explique que ce problème apparraisse chez certains de mes collègues et pas d'autres ? Y-a-t-il possibilité d'empêcher ce disfonctionnement ?

bon weekend

Bonjour

Il doit bien exister un code pour ça (je ne connais pas)

Mais une fois la manip faite le problème ne revient pas

Edit : j'ai trouvé ce code dans mes archives

Je te le livre tel quel (sans test)

'faire le ménage dans les références marquées
'comme "manquantes" d'un projet
Sub RemoveBrokenRefs(Wbk As Workbook)
Dim Ref As Object, Refs As Object

  Set Refs = Wbk.VBProject.References
  For Each Ref In Refs
    If Ref.IsBroken = True Then
      Refs.Remove Refs.Item(Ref.Name)
    End If
  Next Ref

End Sub 'fs

Sub TestBrokRefs()
  RemoveBrokenRefs ThisWorkbook 'par exemple
End Sub

Bonjour Bonzai64

merci encore une fois pour votre retour.

Malheureusement il semble que ce code ne fonctionne pas.

Auriez vous une autre solution ?

Bonjour

Oui j'ai fait quelques tests : Tous négatifs

Pas d'autres solutions

Désolé

Merci à toi Banzai64

j'avais collé le code tel quel dans thiswokbook : est-ce que c'était bien ce qu'il fallait faire ?

cordialement

Bonjour

c'est OK, en fait je faisais référence une bibliothèque qui n'était pas disponible sur les autres PC.... (un module PDF)

C'est une grande joie !!!!!, merci encore à Bonzai64, je cloture le sujet

Cordialement

Bonjour

Pas le bon endroit

A coller dans un module standard

Associer à un bouton la macro TestBrokRefs

Mais j'ai un message d'erreur

Edit : Tu as une solution tant mieux