Un petit coup de main SVP

[gh4]

Bonjour
Un fichier vaut mieux qu'un long discours car je bloque sur ça
merci de votre aide


Cordialement

 

[Robert]

Re : Un petit coup de main SVP

Bonjour GH4. bonjour le forum,

En pièce jointe une solution commentée.

 

[Compte Supprimé 979]

Re : Un petit coup de main SVP

Bonjour Gh4, bonjour Robert,

Une autre solution à base de listes et tableaux, peut-être plus facilement évolutive 😉

A+

 

[gh4]

Re : Un petit coup de main SVP

merci a tous les 2 non seulement pour le fichier mais aussi pour les explications données
je vais me rabattre sur la solution a Robert car elle est plus a ma portée au niveau de l'ecriture de la macro
je vous remercie encore

bonne journée a tous.

 

[Compte Supprimé 979]

Re : Un petit coup de main SVP

Re,

Moi qui pensait avoir fait simple 🙄 😕

Il y a juste à ajouter ou supprimer les noms des tests entre guillemets dans la variable "MesLib" (j'aurais dû la nommer MesTests), et les feuilles dans "MesFeuilles"

Le reste se fait tout seul ... Mais bon ... A quoi ça sert que Ducroc y se décarcasse 😀

A+

 

[BERRACHED said]

Re : Un petit coup de main SVP

Salut,gh4

Salut BrunoM45
Salut,Robert

tu est revenue que sur la proposition que j'etais fais :https://www.excel-downloads.com/threads/combobox-avec-multi-liste.101565/

Voir ce code ajouter a ceux deja proposer par nos amis:

Option Explicit
Dim Test As String

Private Sub UserForm_Initialize()
Dim TabTest As Variant
Dim Sh As Worksheet
Dim i As Integer
ListBox3.Value = ""
ReDim TabTest(0 To Sheets.Count)
For Each Sh In ActiveWorkbook.Sheets
TabTest(i) = Sh.Name
i = i + 1
Next
ListBox3.List() = TabTest
End Sub

Private Sub ListBox3_Click()
Dim Ligne As Integer
Dim Plage As String
Test = ListBox3.Value
Ligne = Sheets(Test).Range("A65536").End(xlUp).Row
Plage = Sheets(Test).Range("A1:A" & Ligne).Address
ListBox4.RowSource = Test & "!" & Plage
End Sub
Private Sub ListBox4_Click()
Sheets("Feuil4").Range("a1").Value = ListBox4.Value
UserForm1.Hide
End Sub

Cordialement

 

[gh4]

Re : Un petit coup de main SVP

encore mille merci
et pour ne pas etre en reste avec toi bruno
dites moi comment je peux faire cela

comment trouver si la valeur de (a1) feuil1 se trouve dans la colone b du tableau de la cellule (b6:b65000) sur la feuil2

merci

 

[Dull]

Re : Un petit coup de main SVP

Salut gh4, Robert 🙂, Bruno 🙂, Said 🙂, Le Forum

Essai ce Test

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim C As Range
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Set C = Sheets("Feuil2").Cells.Find(What:=Sheets("Feuil1").Range("A1").Value)
If Not C Is Nothing Then MsgBox Sheets("Feuil1").Range("A1").Value & " trouvé en " & C.Address
End If
End Sub

Dans le Module de la Feuil1

Bonne Journée

 

[gh4]

Re : Un petit coup de main SVP

merci de ta solution mais ce n'est pas exactement cela que je desire

a l'interieur de ma macro je cherche a savoir si la valeur qui se trouve en F2
feuill1 existe deja dans la tableau de la feuille2 dans les cellules de
b6:b65000
de sorte a inscrire un message du genre "existe deja" et renvoyer ma macro a la fin sans rien modifier

merci de votre aide

 

[Compte Supprimé 979]

Re : Un petit coup de main SVP

Bonjour mon cher Dull 😉
Re Gh4,

encore mille merci
et pour ne pas etre en reste avec toi bruno
dites moi comment je peux faire cela

comment trouver si la valeur de (a1) feuil1 se trouve dans la colone b du tableau de la cellule (b6:b65000) sur la feuil2

merci

J'aimerais bien pouvoir t'aider, mais j'ai bien peur de ne pouvoir faire du code "à ta portée"

I'm very sorry 😉

 

[gh4]

Re : Un petit coup de main SVP

je n'ai voulu etre desobligeant envers toi mais je n'ai pas les competences que vous avez en vba alors j'essaie de comprendre les choses ,et les choses qui me semble les plus abordables (etant limité en vba) pour moi ne le sont peut etre pas pour vous
je suis désolé si j'ai blessé quelqu'un

 

[Compte Supprimé 979]

Re : Un petit coup de main SVP

Re,

Rassure toi, c'était une simple boutade

Tu sais, certains codes peuvent paraitre compliqués d'un prime abord !
Mais il suffit de regarder le déroulement pour s'appercevoir que non 😀

Tu comprendras également que l'on puisse hésiter à te trouver du code si tu n'essayes même pas de le comprendre 😉


A+

 

[gh4]

Re : Un petit coup de main SVP

Merci bruno
j'ai bien suivi tes conseils et me suis debrouillé comme un grand je ne sais pas si c'est la meilleure programmation mais elle fonctionne
c'est bien l'essentiel

Bonne soirée a tous