Discussion :

[MeHo_]

Bonjour à tous et bonne année !!!

Mon probleme n ayant pas de lien ac le titre de mon ancien sujet , j en reposte un. Lien ancien sujet

Pour silkyroad :
J ai remarqué que je pouvais accéder au contenu de mon tableau parce qu il etait declarer dans les declarations... lol
Ce qui n est pas plus mal

Cependant j ai toujours le meme probleme. L ecriture dans une feuille....

Je stock des données dans un tableau contenant des commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim tabTriPharmacien() As Commande
 
Private Type Commande
    Client As String
    NomProduit As String
    Atelier As String
    NumLot As String
    NbPalette As Integer
    DateFinFab As Date
    Pharmacien As String
End Type

Quand, dans mon code je créée une nouvelle feuille, je la renomme, la positionne et l'active :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
nomPharma = tabTriPharmacien(k).Pharmacien
sheets.Add.Name = nomPharma
sheets(nomPharma).Move after:=Worksheets(Worksheets.Count)
Worksheets(nomPharma).Activate

Ca crée bien les feuilles tt ensuite j'execute cette ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(1, 1), Cells(3, 3)).Value = "plop"

Je n'arrive pas à garder la nouvelle feuille fraichement créée active pour pouvoir écrire dans celle-ci et pas dans une autre.
Le probleme c est qu'il ne va pas ecrire dans la feuille activée/créée ci-dessus mais dans celle qui contient les appelles aux fonctions/procédures VBA.


Eclairer moi je comprend pas le schimilimili... enfin le schmilblick

[Singular]

Tu n'as pas à activer la feuille pour écrire dedans. Je ne sais pas exactement ce qui t'empêche de la garder active, mais ça n'a pas trop d'importance si tu utilises un code qui fait plus VBA.

Quand tu veux accéder au Range, écris plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Worksheets(nomPharma)
    .Range(.Cells(1, 1), .Cells(3, 3)).Value = "plop"
End With

[MeHo_]

Oui je code plutot en VBA

Merci de ton aide ça marche, je vais essayer d appliquer cette methode à ce que je veux faire pour la suite.

Singular

[Singular]

En passant, tu peux enlever la ligne qui active la feuille...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(nomPharma).Activate

[MeHo_]

C est fait

[Singular]

N'oublies pas de marquer la discussion comme étant résolue!

(bouton "Résolu" en bas de la discussion)

[MeHo_]

c est pas fini encore

j aurai surment encore 2 ou 3 trucs à demander.

Voila j ai reussi à resizer comme il faut les etiquettes.


Le soucis, c est que si le nom du client (ou pour l exemple ci dessus du nom du produit), est trop grand, et bien on ne voit pas tout.
Est il possile de de faire en sorte que dans la cellule, si il arrive au bout de la cellule qu il saute une ligne un peu comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
nom de produit tres 
tres tres long

[Singular]

Dans le format de la cellule, coches l'option "Renvoyer à la ligne automatiquement" de l'onglet "Alignement".

[MeHo_]

Ok mais en code VBA ça donne quoi ?

[MeHo_]

C est bon j ai trouvé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
With Worksheets(nomPharma)
    With .Range(.Cells(i + 3, j + 2), .Cells(i + 3, j + 4))
        .Font.Name = "Times New Roman"
        .Font.Size = 9
        .HorizontalAlignment = xlHAlignCenter
        .VerticalAlignment = xlVAlignCenter
        .Value = NomProduit
        .WrapText = True
    End With
End With

C est le WarpText qui gere le saut de ligne

le probleme est désormais résolu