sAISIE AUTOMATIQUE VIA UN TABLEAU

Ilino

XLDnaute Barbatruc

• 29 Janvier 2014

• #2

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

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

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 29 Janvier 2014

• #3

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonsoir Forum
puis je avoir votre Help
grazie

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 29 Janvier 2014

• #4

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

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

 

Dernière édition: 30 Janvier 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Janvier 2014

• #5

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

Bonjour Forum
🙁😕 why ?
a+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Janvier 2014

• #6

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

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

 

Vote positif 0 Vote négatif

C

CHALET53

XLDnaute Barbatruc

• 30 Janvier 2014

• #7

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+

 

Pièces jointes

• ILINO BdD Etudes 2014.xlsm

  486.3 KB · Affichages: 50
• ILINO BdD Etudes 2014.xlsm

  486.3 KB · Affichages: 58
• ILINO BdD Etudes 2014.xlsm

  486.3 KB · Affichages: 62

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 30 Janvier 2014

• #8

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+

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 31 Janvier 2014

• #9

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 :

Code:

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).

 

Dernière édition: 31 Janvier 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Janvier 2014

• #10

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 :

Code:

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+

 

Pièces jointes

• Saisie semi automatique(1).zip

  274.2 KB · Affichages: 58

Dernière édition: 31 Janvier 2014

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Février 2014

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Février 2014

• #12

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+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Février 2014

• #13

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

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

 

Vote positif 0 Vote négatif

Regueiro

XLDnaute Impliqué

• 2 Février 2014

• #14

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+

 

Pièces jointes

• XLD_Ilino-bdd-etudes-2014 V01.xlsm

  483.9 KB · Affichages: 60

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 2 Février 2014

• #15

Re : sAISIE AUTOMATIQUE VIA UN TABLEAU

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

 

Vote positif 0 Vote négatif