VBA Excel: ajustement de texte dans des cellules fusionnées
erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
-
31 mai 2005 à 19:02
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 - 1 juin 2005 à 09:43
erti1711 Messages postés 75 Date d'inscription samedi 2 avril 2005 Statut Membre Dernière intervention 16 juin 2006 - 1 juin 2005 à 09:43
A voir également:
- Ajuster cellule au texte excel
- Excel vba récupérer valeur cellule active ✓ - Forum VBA Office (Excel, Word ...)
- Prendre la valeur d'une cellule dans excel avec vba - Forum Visual Basic
- Excel afficher lien hypertexte dans cellule ✓ - Forum Visual Basic
- Selectionner la derniere cellule non vide d'une colonne excel vba - Forum Visual Basic 6
- Derniere cellule remplie d'une colonne - Forum Visual Basic 6
3 réponses
jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
1
31 mai 2005 à 19:13
31 mai 2005 à 19:13
tu veux dire qu'il n'a pas la meme mise en forme.
JRB
JRB
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
31 mai 2005 à 19:23
31 mai 2005 à 19:23
Bonjour,
Essaye avec cette formule
Sub CopierCellules()
Sheets("Feuil2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A3:B3").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Sheets("Feuil2").Select
Application.CutCopyMode = False
End Sub
jpleroisse
Essaye avec cette formule
Sub CopierCellules()
Sheets("Feuil2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("A3:B3").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Sheets("Feuil2").Select
Application.CutCopyMode = False
End Sub
jpleroisse
erti1711
Messages postés
75
Date d'inscription
samedi 2 avril 2005
Statut
Membre
Dernière intervention
16 juin 2006
1
1 juin 2005 à 09:43
1 juin 2005 à 09:43
en faite je dispose de 12 feuilles ds le classeur dont la dernière va me servir a réalisé un devis.g 11 feuilles qui regroupe une liste de produits avec une référence,une désignation et un prix.Dans ma feuille de devis g fait un tableau a 5 colonnes.
Référence | Désignation | Qté | Prix Uni | Montant TTC
Dans chacun des colonnes g plusieurs colonnes fusionnés,C pr la présentation de la page a la fin.G créer un bouton dans la barre des menus a lakel g afecté une macro.
Mon but est que quand je sélectionne une référence et que je clique ensuite sur le bouton ca importe les donné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éfé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é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é=1 par défaut
Cells(j, "X").VerticalAlignment = xlVAlignBottom
Exit For
End If
Next j
End Sub
le champ correspondant à la désignation est caractérisé par la fusion des colonnes E à W et mon problème c'est que j'arrive pas à trouver un code qui puisse ajuster automatiquement les lignes suivant le contenu de la désignation.
Merci pour votre aide.
Référence | Désignation | Qté | Prix Uni | Montant TTC
Dans chacun des colonnes g plusieurs colonnes fusionnés,C pr la présentation de la page a la fin.G créer un bouton dans la barre des menus a lakel g afecté une macro.
Mon but est que quand je sélectionne une référence et que je clique ensuite sur le bouton ca importe les donné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éfé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é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é=1 par défaut
Cells(j, "X").VerticalAlignment = xlVAlignBottom
Exit For
End If
Next j
End Sub
le champ correspondant à la désignation est caractérisé par la fusion des colonnes E à W et mon problème c'est que j'arrive pas à trouver un code qui puisse ajuster automatiquement les lignes suivant le contenu de la désignation.
Merci pour votre aide.