Ecriture dans cellule avec userform

[Mapat]

Bonjour le forum

A l'utilisation de l'userform, la macro me permet d'écrire une info dans une cellule et se positionne trois cellules à droite. Est-il possible d'écrire directement dans cette nouvelle cellule sans avoir besoin à recliquer dedans

Merci

 

[Guest]

Re : Ecriture dans cellule avec userform

Bonjour,

Pas sûr d'avoir compris ce que tu voulais.

Sub Essai()
    With ActiveCell
        .Value = "valeur n° 1"
        .Offset(0, 3).Value = "valeur n° 2"
    End With
End Sub

A+

 

[Mapat]

Re : Ecriture dans cellule avec userform

Re hasco

Merci de ta réponse mais non, ça n'est pas ce que je voudrais
Je positionne ma cellule et en validant avec le bouton de l'user, une info invariable est écrite et
le curseur se positionne 3 cellules à droite. Dans cette cellule, j'écris des infos qui sont variables
Mais pour écrire dans cette cellule il faut cliquer dessus sinon ça ne fonctionne pas
Est-il possible d'écrire directement sans avoir à recliquer

En espérant être clair merci d'avance

 

[Guest]

Re : Ecriture dans cellule avec userform

Bonsoir,

Sans mise en oeuvre des API windows, je ne vois pas comment le faire directement.
Aussi voici une ruse que tu trouveras dans le fichier joint.
Il y a un textbox caché derriere le bouton.

Sans le 'truc' et avec API windows, code de ton userForm:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub CommandButton1_Click()
    Call Essai
    Dim hwnd As Long
    hwnd = FindWindow("xlMain", Application.Caption)
    If hwnd > 0 Then
        SetForegroundWindow (hwnd)
        SendKeys "{F2}"
    End If
End Sub

Mais il te faudra valider la saisie par la touche ENTRER pour sortir de l'édition de cellule.

A+

 

[Mapat]

Re : Ecriture dans cellule avec userform

Bonjour Hasco, le forum

J'utilserai ton astuce avec le texbox caché puique ça fonctionne bien ainsi
Je te remercie pour ta réponse
bonne journée à tous ceux qui passent sur ce post