Un coup de pousse sur un code

[stefVB_Excel]

Bonjour à tous,

j'ai donc suite au coup de main de JNP, pousser le code un peu plus loin.
je bute sur la mise en forme de la cellule collée

je mis prend peut être mal aussi...

Sub Macro4() ‘Copier/coller sur la même feuille j’ai une liste produit, une collée pour print
With sheets("Mareyeurs")
If Range("c8").Value = "" Then 'c8 si c8 est vide
Selection.Copy destination:=Range("c8")

Else 'sinon la première cellule vide de la colonne c
End If
Selection.Copy destination:=Range("c65536").End(xlUp).Offset(1, 0)
With Cells.Interior
If Range("c9:c40").ClearFormats Then ‘je retire le format de la cell collée
Range("c9:c40").Font.Size = 8 ‘la taille de la police en 8 sur (c9 :c40)

Ici je voudrais ajouter renvoyer à la ligne auto dans les cells de la même zone

End If
End With
End With
End Sub

merci par avance

stef

 

[Pierrot93]

Re : Un coup de pousse sur un code

Bonjour steph

si j'ai bien compris :

Range("c9:c40").WrapText = True

bonne soirée
@+

 

[stefVB_Excel]

Re : Un coup de pousse sur un code

Pierrot93,

merci c'est tout à fait ça...

il faut vraiment que connaisse le vocabulaire vba


merci encore c'est parfait


stef