recuperation avec mise en forme

bobjazz

XLDnaute Impliqué

• 9 Octobre 2005

• #2

Re Bonsoir

Oups Fatigué
voilà le fichier exemple

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 9 Octobre 2005

• #3

Re Bonsoir

Oups vraiment Fatigué
voilà le fichier exemple [file name=Forme1.zip size=4701]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Forme1.zip[/file]

 

Pièces jointes

• Forme1.zip

  4.6 KB · Affichages: 14

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 9 Octobre 2005

• #4

Bonsoir

Remplace la formule de la cellule D1 par
=A1&CAR(10)&B1&CAR(10)&C1
Il faut aussi cocher l'option 'retour à la ligne automatique', dans l'onglet alignement du format de la cellule.

Si tu travailles sur Mac, la valeur du caractère retour à la ligne n'est pas 10 mais 13.

@+Jean-Marie

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 9 Octobre 2005

• #5

Bonsoir JeanMarie

Merci de ta rapidité, en plein dans le mille, je me sers de ma car tout les jours, mais maintenant je pourrais dire que je m'en sers pour faire des retours automatiques

Merci et Bonne soirée

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 9 Octobre 2005

• #6

bonsoir Jean marie


je profite de ta venue pour squizzer malhonnetement ce lien mai sj'ai encore une fois besoin de ton aide : en fait j'ai le même souci mais avec un code '#valeur' -> peux tu jeter un oeil à ma macro (j'ai fait des progrès !) si tu as qq minutes

merci et encore désolé du dérangement

[file name=grille_20051009225954.zip size=47662]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/grille_20051009225954.zip[/file]

 

Pièces jointes

• grille_20051009225954.zip

  46.5 KB · Affichages: 12

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 9 Octobre 2005

• #7

Re Bonsoir

Mon Fil est fini, si tu veux que JeanMarie t'aide à finir, il faut continuer le fil que tu as commencer ou en commencer un autre, ps grave pour moi, je te laisse avec JeanMarie, si il veut

Bonne soirée

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 9 Octobre 2005

• #8

Bonsoir Arvin, Jean-Marie, BobJazz, le Forum

Et pour un complément VBA juste pour en fait vous faire un petit coucou car depuis Lyon je n'ai plus une seconde à moi avec un taff de fou.

Sub BobJazz()
Dim Plage As Range, Cell As Range

    With Feuil1
        Set Plage = .Range(.Range('A1'), .Range('A65536').End(xlUp))
    End With

    For Each Cell In Plage
        Cell.Offset(0, 2) = Cell & Chr(10) & Cell.Offset(0, 1) & Chr(10) & Cell.Offset(0, 2)
    Next Cell

End Sub

Cliquez pour agrandir...

Et sinon pour ton problème Arvin c'est quand même pas du tout XLD Compliant ce que tu viens de faire... Et comme te le dit Robert...

Enfin rapidos car c'est le bazar ce fichier, pour ton ''#valeur' tu dois faire un test comme suit :

Sub Test()

If IsError(Feuil7.Range('A18')) Then MsgBox 'Erreur'

End Sub

Cliquez pour agrandir...

Bonne Soirée à tous et toutes
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

A

arvin

XLDnaute Occasionnel

• 10 Octobre 2005

• #9

merci àvous 2 pour vos conseils : j'essaie de ce pas .... je vous tien s au courant

merci

 

Vote positif 0 Vote négatif