Résultats pour "modifier largeur batonnet graphique"

2'739 résultats pour cette recherche

Bonjour.

J’aimersis modifier la largeur de mes cellules dans le bas de ma feuille Excel sans toutefois quel est un impact sur les lageur de mes cellules du haut. Devrais-je faire un tableau Excel indépendant et le copier dans le bas de ma feuillle ? J’ai esssyé de copier mon tableau de calcule que j’ai monter sur une autre feuille et de le coller dans le bas mais il s’ajuste au largeur de colline actuel.

Merci.

Bonjour,

Question pas évidente sur excel 2010.

Je souhaite modifier la largeur d'une colonne mais uniquement de la ligne 1 à 20 par exemple et qu'a partir de la ligne 21 la largeur de la colonne redevienne celle par défaut...

pas facile car quand on modifie la largeur d'une colonne ca modifie pour toute les lignes

Merci d'avance

bonjour jspr que vous allez bien

je souhaite une macro pour modifier la largeur de la colonne D de la feuil f1

comment faire SVP

Merci pour vos efforts

bonne journée

Bonjour,

Dans une macro, pour définir la largeur d’une colonne ‘ex : colonne E), j’utilise :

Columns("F:F").ColumnWidth = 40

Facile…

Afin de pouvoir insérer des colonne, j’ai défini un nom ("Categorie" qui fait référence à ='Dates fixes'!$D$1) que j’ai placé en haut de ma colonne.

Pour définir la largeur de cette colonne, quelle formule faut-il utiliser ?

J’ai pensé à :

Columns(Range("Categorie").Column).ColumnWidth = 40

Mais cela ne fonctionne pas…

Une meilleure idée ?

Merci

Bonjour

Je suis en peine avec"ajuster la largeur des colonnes".

Ce que je cherche c'est que mes colonnes prennent la largeur du texte quelles contiennent

Si quelqu'un à un code VBA je suis preneur "vba pas trop mon fort"

Départ colonne A jusque colonne Z ligne 1 à 200

Merci pour votre aide

Crdlt

Bonjour,

Je pense que le nom du sujet est assez détaillé mais je souhaiterais changer la largeur de mes colonnes de mon tableau que j'exporte vers mes mails pour qu'il soit plus agréable à regarder. Une certaine question d'esthetisme.

Voici le code pour l'appel du tableau dans le corp du mail

mymail.HTMLBody = "<HTML><BODY>Hello,<br /><br />Could you please advise regarding below<br /><br />" & _
tableHTML(Range(tableau)) & "<br /><br />Please check and revert to us.</BODY></HTML>"

et la fonction utilisée (Merci Ausecour)

Private Function tableHTML(plage As Range) As String
tableHTML = "<head> <style> table, th, td {border: 1px solid black; border-collapse:collapse;}</style> </head><TABLE width=" & plage.Columns.Width & ">" & Chr(10) & "<TR>"

For Each col In plage.Columns
    tableHTML = tableHTML & "<TH width=" & col.Width & ">" & plage.Cells(1, col.Column) & "</TH>"
Next col

If plage.Rows.Count > 1 Then
    For i = 2 To plage.Rows.Count
        tableHTML = tableHTML & "<TR>"
        For j = 1 To plage.Columns.Count
            tableHTML = tableHTML & "<TD bgcolor=" & DecVersHexa(plage.Cells(i, j).Interior.Color) & ">" & plage.Cells(i, j) & "</TD>"
        Next j
        tableHTML = tableHTML & "</TR>"
    Next i
End If

tableHTML = tableHTML & "</TABLE>"
End Function

Ainsi que

Private Function DecVersHexa(ByVal valeur As Long) As String
rouge = Left(Hex(Int(valeur Mod 256)) & "00", 2)
vert = Left(Hex(Int((valeur Mod 65536) / 256)) & "00", 2)
bleu = Left(Hex(Int(valeur / 65536)) & "00", 2)
DecVersHexa = rouge & vert & bleu
End Function

Merci par avance

Bonjour à tous !

Dans le but de progresser sur une macro d'export Excel sur Word, je cherche à avancer petit à petit.

Au stade où j'en suis j'arrive à exporter les bons éléments !

(Je créer d'abord des plages nommées selon la mise en page prévu sur excel, puis je copie-colle avec liaison ces plages nommées sur Word)

Voici le code actuel :

Function exist(feuille As String, nom As String) As Boolean
exist = False
On Error Resume Next
    x = Sheets(feuille).Range(nom).Address
    If Err.Number = 0 Then exist = True
On Error GoTo 0
End Function

Sub export_excel_to_word()

    Dim obj As Object
    Dim newObj As Object
    Dim sh As Worksheet
    Dim myFile

    Set obj = CreateObject("Word.Application")
    obj.Visible = True
    Set newObj = obj.Documents.Add

' newObj.PageSetup.LeftMargin = CentimetersToPoints(1)
' newObj.PageSetup.RightMargin = CentimetersToPoints(1)

For n = 1 To 3
    If exist("En_tête", "page_" & Format(n, "00")) Then
     ThisWorkbook.Worksheets("En_tête").Range("page_" & Format(n, "00")).Copy
        With obj.Selection
        .PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
        .TypeParagraph
        .InsertBreak Type:=7
        End With
'Selection.InlineShapes(1).LockAspectRatio = msoTrue
'Selection.InlineShapes(1).Width = 498.9
    End If
Next

For n = 1 To 15
    If exist("Descriptif", "page_" & Format(n, "00")) Then
     ThisWorkbook.Worksheets("Descriptif").Range("page_" & Format(n, "00")).Copy
        With obj.Selection
        .PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
        .TypeParagraph
        .InsertBreak Type:=7
        End With
    End If
Next

For n = 1 To 5
    If exist("Carac_tech", "page_" & Format(n, "00")) Then
     ThisWorkbook.Worksheets("Carac_tech").Range("page_" & Format(n, "00")).Copy
        With obj.Selection
        .PasteSpecial Link:=True, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False
        .TypeParagraph
        .InsertBreak Type:=7
        End With
    End If
Next

   Application.CutCopyMode = False

    myFile = Replace(ActiveWorkbook.Name, "xlsm", "docx")   'remplacer "docx" par l'extension qui convient, si nécessaire
    newObj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & myFile

    MsgBox "Export vers Word terminé", vbInformation + vbOKOnly, "Export vers Word"

    obj.Activate
    Set obj = Nothing
    Set newObj = Nothing

End Sub

Je souhaiterais maintenant régler la largeur de mes exportations

Il faudrait que mes objets collés fasse la même largeur que la largeur de ma page Word. (Ca peut se faire en copiant "l'entre-marge" actuel ou en indiquant directement la largeur en valeur)

Je souhaite modifier la largeur parce que la largeur de ma source ne change pas, contrairement à sa longueur.

Donc en gardant les proportions et en adaptant la largeur, on tombe juste.

Avec l'enregistreur de macro Word j'obtiens des lignes intéressantes :

Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Width = 498.9

Mais qui évidemment ne fonctionne pas si je l'insère dans ma macro

Je précise que j'ai peu d'aptitude à la création de macro, j'arrive juste à modifier/adapter des bouts de code existants.

6test-xl-wd-1-4.xlsm (832.46 Ko)

Bonjour le Forum,

Je navigue entre Excel 365 sur Mac au bureau et Excel 2003 sur PC à la maison.

Dans mon environnement de travail au bureau, impossible de trouver comment ajuster la taille de police à la largeur de cellule.

Sur Excel 2003 c'est une case à cocher dans l'onglet Alignement de la fenêtre Format de cellule.

C'est moi qui ai mal cherché ou c'est encore une régression d'Excel lors d'un passage à une version supérieure (càd la raison pour laquelle je préfère la v2003) ?

Merci à qui m'apportera ses lumières !

Bonjour,

Ci-joint un fichier excel avec une formule decaler hauteur et largeur

Pourquoi elle ne fonctionne pas?

Merci

Bonjour toutes & tous

J'aimerais savoir s'il est possible de renseigner une formule afin que la largeur de ma colonne s'élargisse automatiquement ? J'ai beau chercher, je trouve pas d'autre possibilité que d'élargir à chaque fois mais c'est si chouette et magique quand on a une belle formule qui fait l' job !

Par avance merciiiiiiiii

Bonjour à tous,

J'ai une feuille Excel qui contient plusieurs tableaux.

Un de ces tableaux est actualisé par une requête Power Query à l'ouverture du fichier.

A chaque actualisation de ce tableau la taille des colonnes est modifié.

J'ai essayé la macro ci-dessous mais il semble quelle s’exécute avant la fin de l'actualisation de mes requêtes.

Private Sub Worksheet_Activate()
    Columns("A:A").Select
    Selection.ColumnWidth = 5
    Columns("B:B").Select
    Selection.ColumnWidth = 25
    Columns("C:C").Select
    Selection.ColumnWidth = 20
    Columns("D:D").Select
    Selection.ColumnWidth = 20
    Columns("E:E").Select
    Selection.ColumnWidth = 20
    Columns("F:F").Select
    Selection.ColumnWidth = 20
    Columns("G:G").Select
    Selection.ColumnWidth = 25
    Columns("H:H").Select
    Selection.ColumnWidth = 25
    Columns("I:I").Select
    Selection.ColumnWidth = 30
    Columns("J:J").Select
    Selection.ColumnWidth = 30
End Sub

Y aurait t'il une solution pour résoudre mon problème ?

Dans l'idéal je préférerais ne pas avoir à utiliser de macro mais je n'ai pas trouvé d'autre solution pour le moment.

Est-il possible d’exécuter une macro après la fin de l'actualisation des requêtes ?

Merci d'avance pour votre aide !

Fred

PS : je suis débutant en VBA c'est ma toute première macro

Bonjour,

Je suis actuellement sur un ajustement de colonnes automatique. J'ai trouvé cette solution mais elle est beaucoup trop simple et ça ne me plaît pas:

    With Selection
        .ColumnWidth = .ColumnWidth * 8
        .EntireColumn.AutoFit
    End With

Avez-vous une autre solution d'ajustement automatique qui fonctionne avec des commentaire si vous plaît ?:)

Bonne journée

Bérel Kaëlig

Bonjour, bonjour à tous !

Je commence à m'épuiser sur mon problème...

J'ai créé un fichier excel dans lequel il y aura 52 feuilles (52 semaines). Cela pour gérer des planning.

Bref tout va bien sauf pour mes cases validations de données.

Lorsque que je recopie une feuille, mon menu déroulant se met à la taille de ma colonne (très petite puisque beaucoup d'éléments).

J'ai fini par trouver qu'un dysfonctionnement d'une ancienne version d'Excel permettait de corriger ce problème (agrandir ma colonne, créer ma validation, enregistrer mon fichier sous excel 97-2003 puis à la réouverture rétrécir ma colonne et là la validation était enregistrée à ma taille). CF "feuille semaine 1".

Seulement cette solution ne fonctionne qu’aléatoirement et reste très fastidieuse pour mes 52 feuilles !! Cf "qui va pas"

J'ai demandé sur un forum de Microsoft qui me répète qu'une validation de données de cale à la largeur de la colonne sur laquelle elle est faite...

Je me dis qu'il doit forcément y avoir quelqu'un qui a déjà rencontré ce problème mais surtout qui a déjà trouvé la solution.

Et pour couronner le tout je ne peux pas joindre mon fichier il est trop lourd !!

Je craque s'il vous plait...

Merci beaucoup pour votre aide précieuse

Bonjour,

J'ai fait un petit test sur un nouveau classeur :

Dans la feuille 1, j'ai une colonne avec une largeur de 100.

Dans la feuille 2, j'ai 10 colonnes fusionnées avec une largeur de 10 chacune.

Il n'y a pas de contenu dans les cellules (2 feuilles vierges).

Il n'y a aucune bordure affichée.

Visuellement, la largeur "totale" est plus grande dans la feuille 2 (quand il y a plusieurs colonnes).

Je m'attendais pourtant à avoir exactement le même rendu (je pensais que 10*10 = 100 ).

Est-ce dû au fait que les cellules ont des bordures qui ne sont pas comprises dans la largeur définie ?

Quelle technique efficace permet d'avoir strictement la même largeur ?

Est-ce que les bordures ont toujours la même largeur (quand on n'affiche aucune bordure) ?

Bonjour à la communauté.

J'ai un fichier excel avec des cellules déprotégées (A2 à Q300). Toutes les autres sont protégées en écriture.

Une fois ma feuille protégée, je souhaite avoir accés au tri de A à Z, pouvoir modifier la largeur des colonnes et la hauteur des lignes.

Lorsque je coche ces options au niveau de la protection de la feuille, rien y fait.

Dans Thisworkbook, j'ai inséré une macro pour me permettre d'avoir accés au plan même une fois la feuille protégée.

Merci à tous ceux qui vont se pencher sur mon problème en espérant trouver une solution.

Cordialement

6essai1.xlsm (37.16 Ko)

bonjour,

je voudrais que la h et l de cellule soit en mm quand je veut changer

cordialement

jean Yves

57essai.xlsx (13.25 Ko)

Bonjour,

Est-ce que quelqu'un serait en mesure de modifier le code ci-dessous pour que les photos affiches soient proportionnel a l'image original et quelle soit maximum la hauteur de 3,57cm et largeur de 6,03cm svp

Sub ChargeTrombinoscope()
    Dim Chemin As String, Fichier As String
    Dim Nom, Prénom As String
    Dim splitArr() As String
    Dim Ligne As Integer
    Worksheets("Pix").Activate

    'Définit le répertoire contenant les fichiers
    Chemin = "C:\test-20160928\MyPH\"
    'Boucle sur tous les fichiers du répertoire (photos).
    Ligne = 3
    Fichier = Dir(Chemin & "*")
    Do While Len(Fichier) > 0
        'Extraction prénom
         splitArr = Split(Fichier, ".")
         Prénom = splitArr(0)
         Range("H" & Ligne).Value = Prénom
         'insertion de la photo dans la colonne C
          Largeur = ActiveSheet.Cells(Ligne, 11).Width
        Hauteur = ActiveSheet.Cells(Ligne, 11).Height
        GaucheI = ActiveSheet.Cells(Ligne, 11).Left
        HautI = ActiveSheet.Cells(Ligne, 11).Top
        ActiveSheet.Shapes.AddPicture Chemin & Fichier, False, True, GaucheI, HautI, Largeur, Hauteur
        'Fichier suivant
        Fichier = Dir()
        Ligne = Ligne + 1
    Loop
End Sub

Bonjour

Je souhaite ajouter une barre horizontale sur des histogrammes afin de faire apparaitre un seuil limite.

J'ai introduit une colonne supplémentaire dans le feuille excel. La barre excel apparaît cependant elle n'occupe pas l'intégralité de la largeur du graphique et je n'arrive pas à la modifier.

J'ai essayer de modifier le graphique mais je n'arrive pas non plus au résultats voullu. Les tableaux de donnée sont assez simples, mais possèdent 3 informations différentes ( des doses d'utilisation, des matrices différentes et le mode d'obtention différent (olfactif et gustatif)

Si quelqu'un connait la méthode cela m'avancerais beaucoup, car malheureusement c'est assez urgent.

J'ai mis en fichier joint le dossier excel. Mon essai se trouve sur la feuille nommé Phényléthylamine

En vous remerciant d'avance pour votre aide

Delphine

Bonjour,

Comment connaître de manière dynamique la largeur d'une colonne de listview lorsqu'on la modifie manuellement.

En d'autres termes, je voudrais que lorsqu'on modifie manuellement la largeur d'une colonne de listview, la valeur de la largeur s'écrive dans un textbox.

Par avance merci de votre aide.

José

Bonjour a tous,

Je voudrais savoir si c’était possible d'ajuster la largeur d'une colonne en fonction de la taille de la feuille.

Sur une feuille, je voudrais que Excel diminue la largeur de la colonne E automatiquement de manière a ce que ma page tienne en largeur. Les autres colonnes sont en Autofit et la moins importante est la E.

La commande .EntireColumn.AutoFit ajuste la largeur de la colonne en fonction de son contenue.

Pour le moment, j'ai mis Columns("E:E").EntireColumn.ColumnWidth = 7.86

Mais avec d'autre données ce n'est pas optimal.

Est ce possible ?

Merci beaucoup pour vos reponses.

Recherches récentes

lettre xlaequipes rotationplanning rotationstimestampdatedif heuredatedifturfinserer ligne lorsque valeur changetableauarchivefindliste deroulantelistbox vbasomme listboxmac pourquoi certains fichiers ouvrent bas droitelignesurl genyclassesmasquer ongletenfants