XL 2010 Saisie Intuitive type Google

[Zoman]

Bonjour,

j'ai trouvé des tutos pour un saisie automatique en mode recherche de Google.Pour le Combo box 1 y'a aucun soucis mais pour le Combo box 2 j'y arrive pas.

Je veux afficher le nom et prénom dés que je saisie la première lettre du nom mais avec les noms et prénoms qui se trouve dans la cellule CD.

En espérant être claire dans mes explications, merci de vos réponses.

Je vous mets le fichier en pj

 

[GALOUGALOU]

re
content pour vous, bonne suite et à bientôt sur xld

 

[Zoman]

re Galougalou,

Je reviens vers vous pour un petit truc,

En fait je voulais savoir si c'est possible de faire en sorte que si je clique sur le bouton effacer, ça efface tous les onglets créés (Agent 2, Agent 3, ...) sauf les trois onglets suivants : "Agent" "B" et "C".

ça doit effacer aussi le contenu des cellules de l'onglet Agent que j'avais sélectionné.

Merci

 

[GALOUGALOU]

re zoman
tout est possible (enfin beaucoup de chose) la réponse à votre question se trouve dans le #56

  Dim ws As String 'déclaration de variable
  Dim f1 As String 'déclaration de variable
  Dim f2 As String 'déclaration de variable

  f1 = Sheets("B").Name 'affectation à la variable du nom de l'onglet
  f2 = Sheets("C").Name 'affectation à la variable du nom de l'onglet

For i = 1 To Sheets.Count 'boucle sur tous les onglets
Sheets(i).Select ' selection des onglets un par un pour appliquer les procédures suivantes
ws = ActiveSheet.Name
If ws <> f1 Then 'effacement à l'exception de la feuille B
If ws <> f2 Then 'effacement à l'exception de la feuille c

rajouter aux endroits adéquat

-dim f3 as string
-f3 = sheets("Agent").name
-if ws <>f3 then
-end if (en plus en fin de procédure)

pour effacer la feuille agent,si vous n'arrivez pas à l’intégrer dans la macro, vous pouvez éventuellement créer une autre procédure

 

[Zoman]

Bonjour Galougalou,

Je pense que je me suis mal exprimer, en fait quand je clique sur le bouton effacement je veux que ça supprime tous les onglets de feuilles qui sont crées (Agent 2, Agent 3, Agent 4, ...) sauf la première feuille Agent, la feuille B et la feuille C.

Dans la feuille Agent, seuls les combobox, les texte box et les cellules ("E15:H16"), ("A21"), ("E17") doivent être effacer.

Je ne sais pas si c'est possible de faire cela avec le bouton Effacer ?

Merci

 

[GALOUGALOU]

re zoman
le code ci-dessous supprime toutes les feuilles à l'exception de "Agent" "B" "C"

Sub sup_onglets()
With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
For Each F In Worksheets
    If F.Name <> "Agent" And F.Name <> "B" And F.Name <> "C" Then F.Delete
Next F
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
sheets ("Agent").select
End Sub

il suffit soit de marier ce code avec un bouton, ou modifier la macro initiale en rajoutant une ligne

Sub question_effacement()

If MsgBox("Confirmez vous l'effacement?", vbYesNo) = vbYes Then
call sup_onglets
Call effacer_tous_les_onglets
Else
MsgBox "Procédure abandonnée"
End If
End Sub

cordialement
galougalou

 

[Zoman]

Bonjour Galougalou,

J'ai juste modifier la macro initiale en rajoutant une ligne pour mettre ce code là :

With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
For Each F In Worksheets
If F.Name <> "Agent" And F.Name <> "B" And F.Name <> "C" Then F.Delete
Next F
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
sheets ("Agent").select

et ça marche très bien tout es ok.

Merci beaucoup !

 

[GALOUGALOU]

et ça marche très bien,
vous y êtes arrivé, c'est bien là la finalité !
bonne suite

 

[Zoman]

Ha oui grâce à vous ! Vous êtes un génie !

Merci