Boite de dialogue "EditBox" vers cellule Excel

Question

Bonjour,

J'essaie de faire une petite application sous excel et je bloque sur un point :
J'ai crée un feuille "boite de dialogue" dans laquelle il y a des "EditBox".
Je voudrais quand je valide la boite de dialogue par un bouton, que le contenu entré dans l'EditBox puisse être recopié dans une cellule de feuille excel afin que je puisse utiliser la donnée saisie.

Auriez-vous une marco qui puisse faire ça car je sèche.

Merci

fohaf · Answer

Bonjour,

pour accéder au contenu de ton EditBox, il faut utiliser la propriété
ActiveDialog.EditBoxes("Nom de ton EditBox").Text

Je te conseillerais quand même de regarder pour créer un Userform sous VBA, tu auras plus de possibilités

jeronimo38 · Answer

Bonjour fohaf,

Merci pour l'aide,par contre je n'arrive toujours pas à copier vers la cellule, la première partie est fausse et j'ai essayé plusieurs solutions comme par exemple :
Sheets("catégorie").Range("E62").value = ActiveDialog.EditBoxes("Edit Box 7").Text

POur l'userform, je vais essayer mais faudra tout que je reprenne l'application.

fohaf · Answer

ça devrait fonctionner pourtant
Essaye déjà 
MsgBox ActiveDialog.EditBoxes("Edit Box 7").Text 
pour vérifier que tu récupères bien ta valeur

Sinon vérifie le nom de ta feuille (majuscule, accent...)

jeronimo38 · Answer

MsgBox ne fonctionne pas:
Erreur de compilation / erreur de syntaxe.


Je désespère et me demande si c'est possible

fohaf · Answer

Il faudrait que tu montres ton code pour qu'on voit ce qui ne va pas

jeronimo38 · Answer

Je te fais suivre la macro complete, c'est la dernière ligne qui pose Pb, je veux en fait copier le texte de la boite editBox vers la cellule Catégorie E62, mais impossible. C'est le dernier point qui me bloque.


Sub Bouton2_QuandClic()
Dim LASTLIG As Integer
'Vérifie les valeurs nulles
If Sheets("catégorie").Range("A29") = "1" Then MsgBox ("Choisir un compte"): End
If Sheets("catégorie").Range("A50") = "1" Then MsgBox ("Entrer un mode de paiement"): End
If Sheets("catégorie").Range("D29") = "1" Then MsgBox ("Entrer une catégorie"): End
If Sheets("catégorie").Range("C29") = "1" Then MsgBox ("Entrer une Sous-catégorie"): End
If Sheets("catégorie").Range("C32") = "" Then MsgBox ("Entrer le jour"): End

'Choix de l'onglet de W
If Sheets("catégorie").Range("A50") = "2" Then
    LASTLIG = Sheets("Livre de compte").Range("A65536").End(xlUp).Row + 1
    Sheets("livre de compte").Select
Else
   LASTLIG = Sheets("Compte joint").Range("A65536").End(xlUp).Row + 1
        Sheets("Compte joint").Select
End If

With ActiveSheet

'Recopie les données sur l'onglet "tampon 'Catégorie"
.Range("B" & LASTLIG) = Sheets("catégorie").Range("D30").Value
.Range("C" & LASTLIG) = Sheets("catégorie").Range("C30").Value
    If Sheets("catégorie").Range("C41") = "VRAI" Then
        .Range("D" & LASTLIG) = "x"
        Else
        .Range("D" & LASTLIG) = ""
    End If
If Sheets("catégorie").Range("A29") "9" Then .Range("F" & LASTLIG) Sheets("catégorie").Range("h32").Value Else .Range("E" & LASTLIG) = Sheets("catégorie").Range("h32").Value
.Range("G" & LASTLIG).FormulaR1C1 = "=R[-1]C-RC[-2]+RC[-1]"
.Range("H" & LASTLIG) = Sheets("catégorie").Range("A30").Value
.Range("I" & LASTLIG) = Sheets("catégorie").Range("f32").Value
.Range("J" & LASTLIG) = Sheets("catégorie").Range("i32").Value
.Range("L" & LASTLIG) = Sheets("catégorie").Range("A52").Value
.Range("M" & LASTLIG) = Sheets("catégorie").Range("A53").Value
.Range("N" & LASTLIG) = Sheets("catégorie").Range("C32").Value
.Range("O" & LASTLIG) = Sheets("catégorie").Range("d32").Value
.Range("P" & LASTLIG) = Sheets("catégorie").Range("e32").Value
.Range("A" & LASTLIG).FormulaR1C1 = "=DATE(RC[15],RC[14],RC[13])"
.Range("A" & LASTLIG).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End With

'va au début de la dernière ligne
    ActiveCell.SpecialCells(xlLastCell).Select
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
Range("A" & LASTLIG).Select

'Probleme pour copier l'EditBox Remarque

Sheets("Catégorie").Range("E62").Text = ActiveDialog.EditBoxes("Edit Box 7").Text


End Sub

fohaf · Answer

Chez moi, en remplaçant
Sheets("Catégorie").Range("E62").Text = ActiveDialog.EditBoxes("Edit Box 7").Text 
par
Sheets("catégorie").Range("E62").Value = ActiveDialog.EditBoxes("Edit Box 7").Text

ça fonctionne

As-tu bien vérifié que ton EditBox s'appelle bien "Edit Box 7"?

jeronimo38 · Answer

Merci Fohaf pour ton aide ,
ça marche enfin. effectivement il fallait remplacer Text par value, et également activedialog par DialogSheets...

Sheets("catégorie").Range("E62").Value = DialogSheets("Dialogue1").EditBoxes("Edit Box 7").Text

Boite de dialogue "EditBox" vers cellule Excel

8 réponses

Votre réponse

Discussions similaires