Forcer un format d'une cellule en VB

[poups]

Bonjour,
Je transfers le contenu d'un text Box (userform) dans une cellule

Par exemple :

Worksheets("AR-DI").Range("T9").Value = Me.clientI_RS

Le Pb le text peut être long avec renvoi a la ligne
J'aimerais obligatoirement supprimer par VBA le renvoi a la ligne qui est validé dans la cellule de la feuille par excel a chaque fois que j'exécute le code

Merci d'avance
Poups

 

[Pierrot93]

Re : Forcer un format d'une cellule en VB

Bonjour,

peut être comme ceci :

With Worksheets("AR-DI").Range("T9")
    .WrapText = False
    .Value = Me.clientI_RS
End With

bon après midi
@+

 

[poups]

Re : Forcer un format d'une cellule en VB

Merci Pierrot
Je n'avais pas tous dis, et imaginé une réponse comme cela
En réalité c'est une cellule dans une ligne d'un tableau

NBDIVLgn(1, 30) = Me.Annexe.Value

Je ne sais pas traduire ....

 

[Pierrot93]

Re : Forcer un format d'une cellule en VB

Re,

Je ne sais pas traduire ....

perso, même problème avec ta demande .... peut être qu'un peu plus d'explication, voir un petit fichier aiderait à comprendre...

 

[poups]

Re : Forcer un format d'une cellule en VB

En faite j'ai un userform avec des text box qui s'incremente en ligne dans un tableau
L'adresse dans le tableau n'ai pas fixe comme ma demande initiale :

Worksheets("AR-DI").Range("T9")

Mais l'adresse est variable =>

NBDIVLgn(1, 30)

Donc je ne sais pas traduire le code que tu m'as donné par rapport à mes nouvelles contraintes

 

[poups]

Re : Forcer un format d'une cellule en VB

Du coup, je force le format sur tous le tableau cmme ca je suis tranquille !
Et je selectione la cellule A de la dernière colone incrémenté ...

Dim A As String
A = Sheets("Enregistrement DI-MES").Range("A65536").End(xlUp).Row

Cells.Select
With Selection
.WrapText = False
.AddIndent = False
.ReadingOrder = xlContext
End With
Sheets("Enregistrement DI-MES").Cells(A, 1).Select

Une autre question, en VBA est il possible de prendre les 2 premier chiffre d'un code postal pour afficher un département par exemple ?

Merci d'avance

Poups

 

[Pierrot93]

Re : Forcer un format d'une cellule en VB

Bonjour,

regarde peut être ceci :

MsgBox Left(Range("A1"), 2)

bonne journée
@+

 

[poups]

Re : Forcer un format d'une cellule en VB

Ca marche super !
merci piero

Une autre question :
Je fais appel a un fichier distant dans le code du genre :

Workbooks.Open (ChemJP & NomFichierJP & ".xlsx")

Set C_DestJP = ActiveWorkbook

Je le ferme à la fin de de la procedure

Mon PB c'est qu'il peut être parfois déjà ouvert, et cela me mais un message d'erreur
J'ai bien pensé a forcer la fermeture avant de l'ouvrir, mais si il n'est pas ouvert cela mais aussi un message d'erreur

Comment je peux gerer la situation

Merci d'avance

Poups

 

[Pierrot93]

Re : Forcer un format d'une cellule en VB

Bonjour,

A adapter :

Option Explicit
Sub TestClasseurExiste()
Dim nomClasseur As String
nomClasseur = NomFichierJP & ".xlsx"
If ClasseurExiste(nomClasseur) Is Nothing Then
    Set C_DestJP = Workbooks.Open(ChemJP & NomFichierJP & ".xlsx")
Else
    Set C_DestJP = Workbooks(nomClasseur)
End If
End Sub
Function ClasseurExiste(c As String) As Workbook
On Error Resume Next
Set ClasseurExiste = Workbooks(c)
End Function

bonne journée
@+

 

[poups]

Re : Forcer un format d'une cellule en VB

Pierrot impec ! Merci