Modifier et ajouter dans une combobox

Ok

excellent

@ Arturo83

j'ai mis 'supprime les doublons car on peut modifier une fiche et l'ajouter

par exemple je mets un s à la fin de la fiche n°10 en français, Mais au lieu de modifier, je clic sur Ajouter

Résultat 1 fiche en 10 et 1 fiche presque identique à la fin.

J'appelle cette dernière, j'enlève le s et je me retrouve avec un doublons.

Désolé pour le reste (erreur du débutant). J'ai modifié avec vos codes ,c'est une fusée maintenant

@LouReeD

Parce que je clic partout

Bizarre, j'ai déjà entendu cette phrase

c'est sûrement une manie qui se propage

merci à vous deux

je cours essayer tout ça

@ bientôt

@ bientôt

LouReeD

Merci pour votre code, LooReeD

excellent travail

Du coup je n'ai plus besoin de la touche EFFACER, ???

@bientôt

@Arturo83

J'ai enlevé 'call doublons' et call supprimelignevide , ça rame encore bizzarre

merci de votre aide c'est vraiment sympa

@bientôt

Attention ! Moi je ne dis pas qu'il faille supprimer quoi que ce soit ! Je dis juste qu'en voulant "surfer" d'une langue à l'autre directement, seul le français était pris en compte et alors on se trouver à faire du surplace... Mais si la touche supprimer permettait d'initialiser le USF avec les combobox à vide afin de repartir sur un nouveau mot nouvelle langue, alors oui, il devient superflus...

@ bientôt

LouReeD

Mdr

Faut pas avoir peur...si je suprime quelque chose et que ça plante, je ne porterais pas plainte

je ne m'en prendrais qu'à mes " clic de partout"et à mon "trifouillage"

merci mais je vais encore "surfer" comme vous dites si bien

encore merci pour toutes ces modifications

@bientôt

Merci LouReeD,

ça fonctionne super bien et J'ADORE!

J'aimerais ajouter un bouton pour ouvrir une page WEB "ici"

Pour ajouter d'autres expressions et travailler en copie/collé avec la page

2 pages partagées sur mon écran: 1Excel avec l'application et 2 la page Web

mais je n'arrive pas à mettre le bon code...

@bientôt

Bonjour,

J'ai oublié de vous répondre concernant le lien internet.

Sélectionnez une cellule de votre choix et collez-y cette ligne, elle va créer un lien hypertexte avec l'adresse Bing

=LIEN_HYPERTEXTE("https://www.bing.com/search?q=traduction+anglais+fran%C3%A7ais&aqs=edge.1.69i59l2j69i57j69i59j0l2j69i61l3.6832j0j1&pglt=43&PC=EDGEDSE")

Vous n'avez plus qu'à cliquer sur le lien hypertexte pour ouvrir le traducteur.

Cdlt

Bonjour,

Merci je vais essayer de suite

@bientôt

Bonjour !

Ca y est ! J'ai trouvé ! Quoi ? Ben celui qui utilise Bing !

Plaisanterie bien évidemment !

@ bientôt

LouReeD

@LouReeD

Bonjour,

c'est pas moi

je vous assure maître

@bientôt

@Arturo83

merci pour le code mais ce n'est pas beau

Comment le mettre sur un bouton?-- là j'ai trouvé pour mettre une image ou bouton et le lien mais pas sur la usf

J'ai pu partager Excel avec l'enregistreur macro mais pas la page WEB .

Donc je suppose que ce n'est pas possible d'avoir:

1 bouton qui vous lance la macro sur la moitié de votre écran et l'autre moitié le site WEB ?

je sais je suis compliqué mais c'est pour faire travailler les neurones

merci

Je ne connais pas encore la commande pour lancer Bing en VBA, puisque vous la connaissez, merci de me la transmettre et je me chargerai de l'associer à un bouton sur l'USF.

Bonjour,

Sur la feuille Excel avec un bouton ok

Mais pas encore trouvé avec un bouton dans la USF.

Mais si je trouve ce code je me ferai un plaisir de vous le transmettre

Ok

dans excel :

Insertion / formes (choisir ce que vous voulez)

clic droit sur la forme / clic 'lien hyperthexte' / coller l'adresse

puis ok

voilà

pour l'adresse dans VBA j'ai touvé ceci mais erreur

 Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory :=True

J'ai eu ça aussi avec WebBrowser

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

Dim wbr As Control
    Set wbr = Nothing
        Set wbr = Me.Controls.Add("Shell.Explorer.2")

Application.ScreenUpdating = True

wbr.Navigate2 "www.excel-pratique.com"
End Sub

j'ai quand même un tout petit doute que vous ne connaissez pas ça?

@ bientôt

Faites une recherche sur :

Adresse web dans textbox

Ou

Ouvertur site web lors du clic sur textbox

Je ne suis pas chez moi...

@ bientôt

LouReeD

Oui c'est mon dada les recherches sur le web

j'ai trouvé ceci (bouton dans usf):

mais je voudrais l'ouvrir dans une WebBrowser (?????)

je cherche et cherche et cherche encore

Coller ceci dans le module de l'USF;

Private Sub CommandButton2_Click()
    Dim Adr As New InternetExplorer
    Dim Adr_Internet As Variant
    Adr.Visible = True
    Adr_Internet = "https://www.bing.com/search?q=traduction+anglais+fran%C3%A7ais&aqs=edge.1.69i59l2j69i57j69i59j0l2j69i61l3.6832j0j1&pglt=43&PC=EDGEDSE"
    Adr.Navigate2 Adr_Internet
End Sub

Moi j'ai mis un bouton, affectez-là à l'objet de votre choix.

Merci beaucoup

ça fonctionne

mais j'aimerais l'ouvrir dans une WebBrowser et ça je n'y arrive absolument pas .

j'ai essayé ça ouvre bien dans la WebBrowser mais ça me referme directement excel

merci de votre aide