sAISIE AUTOMATIQUE VIA UN TABLEAU

[Ilino]

forum bonjour TOUS LE MONDE
Je suis vous sollicite à m’aider de résoudre mon souci le suivant :
je souhaiterai faire un lien entre la cellule G12 de la feuille « ACCUIEL » et le tableau ( colonne B ) de la feuille « liste » , lors de la saisi du texte la cellule G12 si le texte existe dans la colonne B de la feuille « Liste » faire afficher le texte dans la cellule G12 si non je souhaiterai terminer la saisi dans la cellule G12 en suite ajouter ce Texte dans le Tableau Colonne B.
mERCI

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Forum Bonjour
je relance mon souci juste pour rappel ( biensure si il est raisonable et claire)
grazie

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonsoir Forum
puis je avoir votre Help
grazie

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Re Bonsoir Forum
est ce que mon souci est claire ??
Merci

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour Forum
🙁😕 why ?
a+

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour Forum
est ce que je dois relance mon souci avec plus de détails please ???
a+

 

[CHALET53]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour,

Je ne sais pas le faire comme tu le souhaites

Un essai qui fait les contrôles après la saisie (changement de cellule)

a+

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonsoir Chalet
merci d'avoir pri le temps de voir mon fil et merci pour la réponse
mais mon soucis est de vérifier la le texte '( sans Msgbox) exemple si je commence la saisie du... il afficherai le reste dupont
A+

 

[david84]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour,
une piste à explorer : insérer un contrôle ActiveX Combobox et le placer sur la cellule G12.
Laisser la propriété MatchEntry du contrôle à 1 (le contrôle recherche une entrée correspondant à tous les caractères saisis) et régler la propriété ShowDropButtonWhen sur ShowDropButtonWhenNever.
Charger les éléments de la colonne B de l'onglet Listes dans le ComboBox, par exemple :

Private Sub ComboBox1_GotFocus()
Dim Pl As Range
Set Pl = Worksheets("LISTES").Range("B3:B5")
ComboBox1.List = Pl.Value
End Sub

Tu n'as plus qu'à mettre au point une macro qui permettra lors du clic en dehors du Combobox (événement LostFocus a priori) d'enregistrer dans l'onglet Liste une valeur nouvelle entrée dans le ComboBox.

Je te laisse mettre cette idée en pratique si cela te convient.
A+

Edit : j'ai modifié le code ci-dessus pour charger les données de la colonne (utilisation de l'événement GotFocus pour charger le combobox).

 

[job75]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour Ilino, CHALET53,

Si j'ai bien compris c'est une saisie semi-automatique que tu veux Ilino.

Alors utilise ces 2 macros :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim h&
Application.EnableEvents = False
On Error Resume Next
If Target.Address = "$G$12:$V$12" Then
  Application.ScreenUpdating = False
  h = [Liste].Count
  [Destinataire].EntireRow.Resize(h).Insert
  [Destinataire].EntireRow.Offset(-h).Resize(h).Name = "Plage"
  [Plage].Columns("G") = [Liste].Value
  [Plage].EntireRow.Hidden = True 'masque les lignes insérées
  Application.EnableAutoComplete = True 'option "Saisie semi-automatique..."
Else
  [Plage].Delete 'supprime les lignes insérées
  Application.EnableAutoComplete = False 'décoche l'option (facultatif)
End If
Target.Select
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Variant
If Target.Address = "$G$" & [Destinataire].Row Then
  i = Application.Match(Target, [Liste], 0)
  If IsError(i) Then
    If MsgBox("Voulez-vous ajouter '" & Target & "' dans la liste ?", 4) = 6 Then
      [Liste].Cells([Liste].Count + 1) = Target 'ajout en fin de liste
      [Liste].Sort [Liste], Header:=xlNo 'tri
    End If
  End If
End If
End Sub

Pour bien les comprendre vois les noms définis Liste Destinataire Plage.

Edit 1 : attention la 2ème macro se copie mal dans le code ci-dessus, utilise les macros du fichier.

Edit 2 : David je te salue

Fichier joint.

A+

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour Tous le monde et Bon week end
Merci David
merci JOB j'ai un souci dans le cas ou j'ai un mot composé exemple
Département Stratégie
Département Développement
Lors de la saisie ( semi automatique) je dois avoir une liste pour choisir quel Département
grazie

 

[job75]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Re,

Ilino, on ne peut pas avoir le beurre, l'argent du beurre et en plus la fermière 🙄

A+

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonsoir Maitre
Per favore, non ti arrabbiare ,grazie.
A+

 

[Regueiro]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonsoirà Tous, Ilino
Une variante avec un combobox intégré dans ta feuille "Accueil"
Possibilité d'ajouter une nouvelle entrée qui se rajoute dans le Tableau1 feuille (LISTES 1)

Bonne soirée
A+

 

[Ilino]

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonsoir Forum
Un grand Merci Regueiro
souci résolu
A+