comment ajuster automatiquement un texte dans une cellule fusionné en vba?

Question

Bonjour &#224; tous,
en faite je dispose de 12 feuilles ds le classeur dont la derni&#232;re va me servir a r&#233;alis&#233; un devis.g 11 feuilles qui regroupe une liste de produits avec une r&#233;f&#233;rence,une d&#233;signation et un prix.Dans ma feuille de devis g fait un tableau a 5 colonnes.
R&#233;f&#233;rence | D&#233;signation | Qt&#233; | Prix Uni | Montant TTC
Dans chacun des colonnes g plusieurs colonnes fusionn&#233;s,C pr la pr&#233;sentation de la page a la fin.G cr&#233;er un bouton dans la barre des menus a lakel g afect&#233; une macro.
Mon but est que quand je s&#233;lectionne une r&#233;f&#233;rence et que je clique ensuite sur le bouton ca importe les donn&#233;es dans les colonnes correspondantes.
Voici mon code pour le moment:


Sub On_Click()
    Dim ligne As Integer
    Dim j As Integer
    Dim px As String
    Dim ref As String
    Dim design As String
   
    
    ligne = ActiveCell.Row
    
    ActiveSheet.Select
    Range("C" & ligne).Select
    ref = Cells(ligne, "B").Value
    design = Cells(ligne, "C")
    px = Cells(ligne, "D")
    Selection.Copy
    Sheets("DEVIS").Select
    For j = 21 To 50
        If (Cells(j, "B") = "") Then
            Range("B" & j).Select
            Range("B" & j).Rows.AutoFit
            Cells(j, "B") = ref
            Cells(j, "E") = design
            Cells(j, "AA") = px
           
            Cells(j, "B").Font.Size = 8    'pour la r&#233;f&#233;rence
            Cells(j, "B").Font.Name = "Arial"
            Cells(j, "B").Font.Bold = False
            Cells(j, "B").Font.Color = black
       
            Cells(j, "E").Font.Size = 8     'pour la d&#233;signation
            Cells(j, "E").Font.Name = "Arial"
            Cells(j, "E").Font.Bold = False
            Cells(j, "E").Font.Color = black
            Cells(j, "E").HorizontalAlignment = xlHAlignJustify
            WrapText = True
    
            Cells(j, "X") = 1   'quantit&#233;=1 par d&#233;faut
            Cells(j, "X").VerticalAlignment = xlVAlignBottom
         
            Exit For
        End If
    Next j
               
End Sub


le champ correspondant &#224; la d&#233;signation est caract&#233;ris&#233; par la fusion des colonnes E &#224; W et mon probl&#232;me c'est que j'arrive pas &#224; trouver un code qui puisse ajuster automatiquement les lignes suivant le contenu de la d&#233;signation.
Merci pour votre aide.

jpleroisse · Answer

Bonjour,



J'ai essay&#233; ton code, il a l'air de bien fonctionner, je s&#233;lectionne
une cellule, je clique un bouton de commande et il me place la valeur
de la cellule dans la feuille DOSSIER dans la cellule E21.

J'ai juste modifi&#233; une ligne (Selection.WrapText)

Que veux-tu faire d'autres??



jpleroisse

erti1711 · Answer

bonjour,
tu a mis Selection.WrapText au lieu de Selection.Copy?
Elle sert a quoi cette commande?
Mon but c'est que les lignes s'ajustent automatiquement a chaque fois que j'importe les donn&#233;es. Et avec AutoFit ca ne marche pas.Tu as une id&#233;e STP?
MERCI

Comment ajuster automatiquement un texte dans une cellule fusionné en vba?

2 réponses

Discussions similaires