«Point n'est besoin de réussir pour entreprendre ni de vaincre pour persévérer» Guillaume d'Orange je crois.

Je zieute le fichier joint et je te reviens.

Ne nous décourageons pas.

Cordialement,

Guy

Bonjour,

Effectue un pas à pas dans la procédure AutoFitMergedCellRowHeight() en commentant la ligne qui porte l'instruction        Application.ScreenUpdating = False pour pouvoir suivre le déroulement des opérations.  Pour ce faire je te suggère d'afficher l'éditeur VBA et le classeur en Feuille Finale active côte à côte puis en plaçant le curseur dans la procédure PourVoir() appuie sur F8 pour démarrer le pas à pas.  Ainsi tu pourras observer le déroulement des opérations.

Modifie la largeur de TOUTES les cellules fusionnées à ta guise et observe ce qui se passe lorsque cette largeur est diminuée au delà d'un certain seuil.

Guy

Derechef,

Quel bouton 1, où est le bouton 1?

Sur la feuille Compte-Rendu Journalier il y a deux boutons qui sont liés au classeur
C:\Users\KHAMASSI\Desktop\Rapport\Compte rendu standard exploitation10TSAmélioré test.xls
que je n'ai pas sur mon poste, pas du tout, pas pantoute. 

C'est, peut-être, pas sûr, mais tout de même là que se trouve le UserForm tant recherché.

Donc une copie dudit fichier C:\Users\KHAMASSI\Desktop\Rapport\Compte rendu standard exploitation10TSAmélioré test.xls serait appréciée.

Cordialement,

Guy

Il n'y a pas d'UserForm, aucun, nada, rien, que dalle!

Faudrait se comprendre même si l'Atlantique est plein d'eau.

Cordialement,

Guy

Bon,

J'ai téléchargé le fichier iqu2c7zDCH_compte_rendu_journalier1014.xls : pas de UserForm1
Et qu'est-ce que «l icone à la droite de date»

De plus ce classeur porte une liaison à C:\Users\KHAMASSI\Desktop\Rapport\Compte rendu standard exploitation10TSAmélioré test.xls
que je n'ai évidemment pas sur mon poste.

En attendant plus d'informations je potasse la chose.

Cordialement,

Guy

Hôlà!

Je relis : «Attention à la largeur initiale des cellules cibles (colonnes B à F); dans certains cas une légère différence de hauteur de ligne est observée.»

Et donc tu écris : «a toutes ses colonnes à la base d'une largeur de 3»; voilà pourquoi votre fille est muette!

La largeur des cellules est exprimée en caractères et en pixels.  Lorsqu'on fait glisser la largeur ou la hauteur d'une cellule Excel affiche le nombre de caractères et, entre parenthèse, le nombre de pixels.  Donc une largeur de 3 correspond à une largeur de 3 caractères; nettement insuffisant.

À partir du fichier joint, je n'ai eu qu'à modifier la largeur des colonnes cibles (B à N) à 80 pixels et tout baigne.

Reprends l'exercice et zieute le résultat.

Re citation : «Tu pourras potasser la chose jusqu'à satisfaction. Dans le classeur envoyé et avec les textes copiés tout semble marcher au mieux.»

Guy

Re bonjour,

J'ai modifié quelque peu le classeur et les procédures et commenté le code un tant soit peu.

Il n'y a plus de référence à Selection, la mise en forme des cellules cibles (dans Feuille Finale) s'effectue par l'intermédiaire d'une variable Plage.
Attention à la largeur initiale des cellules cibles (colonnes B à F); dans certains cas une légère différence de hauteur de ligne est observée.
Tu pourras potasser la chose jusqu'à satisfaction. Dans le classeur envoyé et avec les textes copiés tout semble marcher au mieux.

Voilà,

Guy

Bonjour dedechseb,

Est-ce que la mise en page de la feuille finale peut souffrir des lignes plus hautes dans le cas de dépassement de largeur?

En d'autres termes, un retour à la ligne dans le cas d'un texte trop long implique une hauteur de ligne plus grande.

Guy

Bonsoir,

Petite curiosité : dans le fichier exemple le dernier champ (49) porte la valeur U et n'a pas de nom???

M'enfin, quelques lignes de code qui devrait faire le boulot.

Sub ImporterFichier()

  On Error GoTo ImporterFichierErr
 
  Dim strTypeDeFichier As String
  Dim strTitre As String
  Dim varFichier As Variant ' La valeur de retour de GetOpenFileName est une chaîne ou un booléen
 
  strTypeDeFichier = "(*.tsv), *.tsv"
 
  strTitre = "Importer des fichiers"
 
  varFichier = Application.GetOpenFilename(FileFilter:=strTypeDeFichier, Title:=strTitre)
 
  If varFichier <> False Then ' L'utilisateur n'a pas cliqué sur Annuler
  
    ' Effectuer le traitement ICI
    Traitement CStr(varFichier)
  
  End If
 
  Exit Sub
 
ImporterFichierErr:
    MsgBox Err.Number & vbCrLf & Err.Description & vbCrLf & "ImporterFichier()"
End Sub

Sub Traitement(strNomFichier As String)
   
 
  Application.ScreenUpdating = False ' Histoire de ne pas ameuter les environs
 
  ' Ouvre le fichier tsv
  Workbooks.OpenText Filename:=strNomFichier, DataType:=xlDelimited, textqualifier:=xlTextQualifierDoubleQuote, Tab:=True

  ' Voir à modifier le paramètre Before selon le contexte
  ' La nouvelle feuille est déplacé dans CE classeur avec ThisWorkbook.Name
  ActiveWorkbook.Worksheets(1).Move Before:=Workbooks(ThisWorkbook.Name).Sheets(1)
 
  ' Le classeur temporaire ouvert avec Workbooks.OpenText a disparu.
 
  Application.ScreenUpdating = True ' On remet l'affichage actif
 
End Sub

J'ai modifié le filtre (strTypeDeFichier) pour n'accepter que des fichiers tsv.
Je n'ai pas ajouté de gestionnaire d'erreur dans la procédure Traitement(), à toi de voir.

Cordialement,

Guy

Re bonjour,

Et où donc est le fichier exemple?

Guy