Dans le fichier test suivant, je souhaiterais qu'en me positionnant sur une cellule comprise entre A10 et A19, la valeur de cette cellule s'affiche dans la textbox.
J'ai essayé le code suivant qui me paraissait pourtant logique, sans succès...
Code:
Sub Formulaire()
With Sheets("Feuil1")
If Target.Column = 1 And Target.Row > 9 Then
Set r = .Cells.Find(Target.Value)
UserForm1.Show
UserForm1.ID.Value = Target.Value
End If
End With
End Sub
Re : VBA Saisir Valeur cellule active dans textbox à l'ouverture d'un userform
Bonjour,
un code du genre
Code:
Sub Formulaire()
Dim uf As New UserForm1
If Not Intersect(ActiveCell, Feuil1.[A10:A19]) Is Nothing Then
uf.ID.Value = ActiveCell.Value
End If
uf.Show
End Sub
Re : VBA Saisir Valeur cellule active dans textbox à l'ouverture d'un userform
Bonjour,
pas de différence fonctionnelle avec Excel.
C'est plus une "habitude" de programmation issue des concepts de la "programmation orientée objet".
Dans cette "logique", on distingue (morceaux de codes différents):
La définition d'un objet (UserForm1 dans notre cas)
Son "instanciation" (on crée une instance de l'objet; concrètement, on crée une variable qui "stocke" l'objet et permet de la manipuler)
Dans Excel, tu retrouves ce mécanisme si tu utilises les modules de classe.
Définition de l'objet dans un module de classe
Utilisation de l'objet dans une module standard
Si ça t'intéresse, examine le code de cet exemple "tout bête"