Mfc pour textbox

Bonjour Noel,

Pour faire l'inverse ligne au lieu de colonne, tu inverses cette ligne dans le code de Myta :

Ws.Cells(I, 2)

au lieu de

Ws.Cells(2, I)

Amicalement

Bonjour à Tous,

Merci tout de même de lire ce post -2 et ce post -4, Tu as deux réponses avec deux fichiers

a+

papou

Edit :

et aussi voilà une version avec la recopie de lignes et de colonnes au cas ou

a+

papou

Bonjour Paritec,

Je suis désolé je t'ai répondu que ta formule ne fonctionne pas sous MAC. Voir mesage du Dim 25 sept

Malgré tout je t'ai remercié.

@+

Bonjour Dan,

Ok pour inverser ligne en colonne

Merci

@+

Bonjour Paritec,

Je viens de télécherger ton dernier fichier ça fonctionne bien

Merci pour ton aide

Je vais essayé de l'adapter.

Au fait je voudrai savoir si j'enlève la dernière ligne du code

Controls("textbox" & i).Font.Size = .Cells(b, a).Font.Size: i = i + 1

pourquoi il bug

Aussi pourrais-je rajouter un bout code pour prendre en compte le format : centrer , aligner, gauche ou droite.

@+

Amicalement

Noel

Bonjour Noël, le forum

bon alors il ne faut pas modifier n'importe comment !!! (sourire)

si tu retires la dernière ligne tu retires deux instructions

Controls("textbox" & i).Font.Size = .Cells(b, a).Font.Size

et

i=i+1

donc tu peux retirer

Controls("textbox" & i).Font.Size = .Cells(b, a).Font.Size

mais surtout pas i=i+1 c'est ce qui te permet d'incrémenter les textboxs

si tu veux maintenant ajouter d'autre mise en forme tu peux mais avant le i+1

a+

papou

Re

Ok je cogiterai ça en temps voulu

@+

Re bonjour Noël le forum

il faut, dans mon dernier message lire avant, le i=i+1

a+

Papou

Re Paritec,

Ca j'ai bien compris merci.

Il faut que je retire la dernière ligne et je dois malgré tout garder i=i-1

Si je dois dans ce cas rajouter une ligne pour le format centrer comme les cellules quel serait dnc ce bout de code.

Dans tous les cas il faut que je termine par i=i+1.

Merci de ton aide si précieuse.

@+

Re Noël le forum

voilà pour le texte au centre

a+

papou

Private Sub CommandButton1_Click()
    With Sheets("Test")
        i = 1
        For a = 1 To 3
            For b = 2 To 7
                Controls("textbox" & i) = .Cells(b, a)
                Controls("textbox" & i).BackColor = .Cells(b, a).Interior.Color
                Controls("textbox" & i).ForeColor = .Cells(b, a).Font.Color
                Controls("textbox" & i).Font.Size = .Cells(b, a).Font.Size
                Controls("textbox" & i).TextAlign = 2  '1 =gauche        2 =centrée    3 =droite
                i = i + 1
            Next b
        Next a
    End With
End Sub

Re

Merci pour ta réponse et j'en prends bonne note

Mais je voulais qu'ils prennent le même alignement que les cellules que faut-il faire.

Maintenant que j'ai bien compris le fonctionnement pour que les textbox prennent les MFC des cellules et comment( faire pour avoir le contraire c'est à dire que les cellules prennent les MFC des textbox?

Je sais je suis un peu beacoup CH..... mais je ne sais pas faire.

merci encore

@+

Amicalement

Noel

Bonjour,

pour inverser le passage textbox à cellule au lieu de cellule à textbox, il suffit "normalement" d'inverser ton égalité :

Controls("textbox" & i).BackColor = .Cells(b, a).Interior.Color

devient

.Cells(b, a).Interior.Color = Controls("textbox" & i).BackColor

en précisant les coordonnées de ta cellule au lieu de a et b.

Cordialement,

Bonjour à tous,

Bonjour Zirak,

Je te remercie, je vais m'y attaché à cela et je te tiendrai informé;

@+

Amicalement

Noel

Bonjour à tous

Bonjour Zurak,

Affectivement pour inverser le résultat il suffit d'inverser la fonction.

Mais j'ai décelé peut-être une erreur sur ".cells" d'où il y avait un gug, j'ai supprimé le "." et cela fonctionne.

Je remercie à tous ceux qui m'ont aidé à clôturer ce fil :

Zirak, Paritec, Myta, Dan.

Je vous donne rendez-vous sur un prochain fil

@+ Amicalement

Noel