Userforme s'ouvrant après renseignement d'une Cellule

[Broch002]

Bonjour, et bonne année au Forum.

Je souhaiterais qu'après avoir renseigné une cellule d'une colonne précise, un userforme s'ouvre automatiquement, avec dans une textbox le contenu de la cellule. Cet userforme devant me servir à renseigner les cellules adjacentes à celle renseigné (après des calculs).
Merci d'avance de votre participation.

Broch002

 

[Theze]

Re : Userforme s'ouvrant après renseignement d'une Cellule

Bonsoir,

Teste ceci, à mettre dans le module de la feuille contenant la cellule. Adapte les noms des objets et l'adresse de la cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    'si c'est la cellule "A1" charge la Form, rempli
    'le TextBox et ensuite l'affiche
    If Target.Address(0, 0) = "A1" Then
        
        Load UserForm1
        UserForm1.TextBox1.Text = Target.Value
        
    End If
    
    UserForm1.Show
    
End Sub

Hervé.

 

[Broch002]

Re : Userforme s'ouvrant après renseignement d'une Cellule

Bonsoir,

Teste ceci, à mettre dans le module de la feuille contenant la cellule. Adapte les noms des objets et l'adresse de la cellule :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    'si c'est la cellule "A1" charge la Form, rempli
    'le TextBox et ensuite l'affiche
    If Target.Address(0, 0) = "A1" Then
        
        Load UserForm1
        UserForm1.TextBox1.Text = Target.Value
        
    End If
    
    UserForm1.Show
    
End Sub

Hervé.

Bonjour,

Cela semble fonctionner, j'avance dans mon projet et vous tien informé.
Bonne journée.
Christian.