afficher le contenu d'une cellule dans un text box

[MAN]

j'ai un usf qui est en pieces jointes
je voudrai que le contenu respectifs des cellules C18 à C23 apparaissent respectivement dans les text box 1 à 6 de l'usf sans possibilité d'effacer ou de rectifier
merci d'avance
fichier joint

 

[MAN]

Re : afficher le contenu d'une cellule dans un text box

j'ai oublié le fichier

 

[Papou-net]

Re : afficher le contenu d'une cellule dans un text box

Bonjour MAN,

Voici ton classeur modifié. Les TextBox sont protégés contre la copie par leur propriété Locked. Afin de pouvoir effectuer la configuration par boucle, j'ai réagencé l'ordre des TextBox.

Concernent le problème de ListView de ton post précédent, je suis toujours en train d'essayer de trouver la faille.

A +

Cordialement.

 

[MAN]

Re : afficher le contenu d'une cellule dans un text box

Grand merci vieux sorcier. j'ai confirmé tes talents de voyance.
si les cellules ne sont pas une suite continue que faire

 

[Papou-net]

Re : afficher le contenu d'une cellule dans un text box

RE MAN,

Deux solutions :

- La première, les TextBox ne sont pas dans l'ordre mais la valeur correspond à leur indice :

Private Sub UserForm_Activate()
Dim Cel As Range, i As Integer

Set Cel = Feuil1.Range("C18")
For Each ctl In Me.Controls
  If TypeOf ctl Is MSForms.TextBox Then
    ctl.Value = Cel.Offset(i, 0).Value
    ctl.Locked = True
    i = i + 1
  End If
Next
End Sub

- La deuxième : les TextBox ne sont pas dans l'ordre mais leur valeur correspond à l'ordre des cellules :

Private Sub UserForm_Activate()
Dim Cel As Range, i As Integer

Set Cel = Feuil1.Range("C18")
For Each ctl In Me.Controls
  If TypeOf ctl Is MSForms.TextBox Then
    ctl.Value = Cel.Offset(ctl.Tag - 1, 0).Value
    ctl.Locked = True
    i = i + 1
  End If
Next
End Sub

Danc ce 2ème cas, il faut mettre dans la propriété Tag des TextBox le n° d'index dans l'ordre numérique (voir classeur joint). Eh oui, VBA c'est pas sorcier mais c'est magique !

A +

Cordialement.