If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de Rex est correct.
If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de Rex est correct.
If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de Rex est correct.
Je trouve ça curieux. Quand je demande le contenu de LaListe dans un MsgBox,
je reçois une virgule quand il n'y a pas de correspondance !!!
Je trouve ça curieux. Quand je demande le contenu de LaListe dans un MsgBox,
je reçois une virgule quand il n'y a pas de correspondance !!!
Je trouve ça curieux. Quand je demande le contenu de LaListe dans un MsgBox,
je reçois une virgule quand il n'y a pas de correspondance !!!
Bonjour Serge,
Bien joué ! Effectivement c'est la cause du problème.
Typiquement on se trouve dans la situation où le code élaboré dans un
classeur exemple est
adapté pour le classeur définitif ; les noms changent etc...
Il y aurait eu moins d'ambiguité si j'avais écrit au début :
Consultation = "Tracking_Orders" ' Nom de l'onglet contenant le
'formulaire consultation'
et finalement la ligne en erreur pourrait être :
With Worksheets(Consultation).Range("Offre_Nom").Validation
puisque la cellule J4 est nommé "Offre_Nom"
Cordialement,
Trirème
remplace If LaListe = "" par If LaListe = "," :
If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de
Rex est correct.
Bonjour Serge,
Bien joué ! Effectivement c'est la cause du problème.
Typiquement on se trouve dans la situation où le code élaboré dans un
classeur exemple est
adapté pour le classeur définitif ; les noms changent etc...
Il y aurait eu moins d'ambiguité si j'avais écrit au début :
Consultation = "Tracking_Orders" ' Nom de l'onglet contenant le
'formulaire consultation'
et finalement la ligne en erreur pourrait être :
With Worksheets(Consultation).Range("Offre_Nom").Validation
puisque la cellule J4 est nommé "Offre_Nom"
Cordialement,
Trirème
remplace If LaListe = "" par If LaListe = "," :
If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de
Rex est correct.
Bonjour Serge,
Bien joué ! Effectivement c'est la cause du problème.
Typiquement on se trouve dans la situation où le code élaboré dans un
classeur exemple est
adapté pour le classeur définitif ; les noms changent etc...
Il y aurait eu moins d'ambiguité si j'avais écrit au début :
Consultation = "Tracking_Orders" ' Nom de l'onglet contenant le
'formulaire consultation'
et finalement la ligne en erreur pourrait être :
With Worksheets(Consultation).Range("Offre_Nom").Validation
puisque la cellule J4 est nommé "Offre_Nom"
Cordialement,
Trirème
remplace If LaListe = "" par If LaListe = "," :
If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de
Rex est correct.
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait
le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon
de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Utilise la fonction EQUIV()
Par exemple EQUIV(Offre_Nom;Offers!$C$2:$C$6;0)
où Offre_Nom rest le nom de la cellule J4
et Offers!$C$2:$C$6 la colonne où chercher le contenu de J4
Il vaudrait mieux remplacer 'Offers!$C$2:$C$6' par une petite fonction
DECALER qui
rechercherait l'emplacement exacte de la colonne 'Offre-Nom'. C'est ce que
faisait la
formule suivante dans une version précédente :
DECALER(Datas;;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) ou
DECALER(Datas;1;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) commence à
la 2ème ligne.
où Datas est le nom dynamique ciblant tes données. ATTENTION ! Pas de
lignes ni de
colonnes vides !
La fonction recherche le mot "Offre-Nom" dans la 1ère ligne de l'entête de
'Datas'. Le
résultat est une plage d'une seule colonne contenant cet entête.
Cordialement,
Tirème
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait
le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon
de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Utilise la fonction EQUIV()
Par exemple EQUIV(Offre_Nom;Offers!$C$2:$C$6;0)
où Offre_Nom rest le nom de la cellule J4
et Offers!$C$2:$C$6 la colonne où chercher le contenu de J4
Il vaudrait mieux remplacer 'Offers!$C$2:$C$6' par une petite fonction
DECALER qui
rechercherait l'emplacement exacte de la colonne 'Offre-Nom'. C'est ce que
faisait la
formule suivante dans une version précédente :
DECALER(Datas;;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) ou
DECALER(Datas;1;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) commence à
la 2ème ligne.
où Datas est le nom dynamique ciblant tes données. ATTENTION ! Pas de
lignes ni de
colonnes vides !
La fonction recherche le mot "Offre-Nom" dans la 1ère ligne de l'entête de
'Datas'. Le
résultat est une plage d'une seule colonne contenant cet entête.
Cordialement,
Tirème
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait
le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon
de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Utilise la fonction EQUIV()
Par exemple EQUIV(Offre_Nom;Offers!$C$2:$C$6;0)
où Offre_Nom rest le nom de la cellule J4
et Offers!$C$2:$C$6 la colonne où chercher le contenu de J4
Il vaudrait mieux remplacer 'Offers!$C$2:$C$6' par une petite fonction
DECALER qui
rechercherait l'emplacement exacte de la colonne 'Offre-Nom'. C'est ce que
faisait la
formule suivante dans une version précédente :
DECALER(Datas;;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) ou
DECALER(Datas;1;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) commence à
la 2ème ligne.
où Datas est le nom dynamique ciblant tes données. ATTENTION ! Pas de
lignes ni de
colonnes vides !
La fonction recherche le mot "Offre-Nom" dans la 1ère ligne de l'entête de
'Datas'. Le
résultat est une plage d'une seule colonne contenant cet entête.
Cordialement,
Tirème
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait
le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon
de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Utilise la fonction EQUIV()
Par exemple EQUIV(Offre_Nom;Offers!$C$2:$C$6;0)
où Offre_Nom rest le nom de la cellule J4
et Offers!$C$2:$C$6 la colonne où chercher le contenu de J4
Il vaudrait mieux remplacer 'Offers!$C$2:$C$6' par une petite fonction
DECALER qui
rechercherait l'emplacement exacte de la colonne 'Offre-Nom'. C'est ce que
faisait la
formule suivante dans une version précédente :
DECALER(Datas;;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) ou
DECALER(Datas;1;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) commence à
la 2ème ligne.
où Datas est le nom dynamique ciblant tes données. ATTENTION ! Pas de
lignes ni de
colonnes vides !
La fonction recherche le mot "Offre-Nom" dans la 1ère ligne de l'entête de
'Datas'. Le
résultat est une plage d'une seule colonne contenant cet entête.
Cordialement,
Tirème
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait
le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon
de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Utilise la fonction EQUIV()
Par exemple EQUIV(Offre_Nom;Offers!$C$2:$C$6;0)
où Offre_Nom rest le nom de la cellule J4
et Offers!$C$2:$C$6 la colonne où chercher le contenu de J4
Il vaudrait mieux remplacer 'Offers!$C$2:$C$6' par une petite fonction
DECALER qui
rechercherait l'emplacement exacte de la colonne 'Offre-Nom'. C'est ce que
faisait la
formule suivante dans une version précédente :
DECALER(Datas;;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) ou
DECALER(Datas;1;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) commence à
la 2ème ligne.
où Datas est le nom dynamique ciblant tes données. ATTENTION ! Pas de
lignes ni de
colonnes vides !
La fonction recherche le mot "Offre-Nom" dans la 1ère ligne de l'entête de
'Datas'. Le
résultat est une plage d'une seule colonne contenant cet entête.
Cordialement,
Tirème
Avec ma listbox quand je sélectionnais un nom, la cellule A3 indiquait
le
numéros de la ligne adéquate
Comment puis-je obtenir un résulata similaire dans cette nouvelle façon
de
travailler
Je suppose qu'une macro événementiel devrait intervenir, non?
Que nenni !
Utilise la fonction EQUIV()
Par exemple EQUIV(Offre_Nom;Offers!$C$2:$C$6;0)
où Offre_Nom rest le nom de la cellule J4
et Offers!$C$2:$C$6 la colonne où chercher le contenu de J4
Il vaudrait mieux remplacer 'Offers!$C$2:$C$6' par une petite fonction
DECALER qui
rechercherait l'emplacement exacte de la colonne 'Offre-Nom'. C'est ce que
faisait la
formule suivante dans une version précédente :
DECALER(Datas;;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) ou
DECALER(Datas;1;EQUIV("Offre-Nom";DECALER(Datas;;;1;);0)-1;;1) commence à
la 2ème ligne.
où Datas est le nom dynamique ciblant tes données. ATTENTION ! Pas de
lignes ni de
colonnes vides !
La fonction recherche le mot "Offre-Nom" dans la 1ère ligne de l'entête de
'Datas'. Le
résultat est une plage d'une seule colonne contenant cet entête.
Cordialement,
Tirème
Salut Trirème,If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de
Rex est correct.
Je trouve ça curieux. Quand je demande le contenu de LaListe dans un
MsgBox,
je reçois une virgule quand il n'y a pas de correspondance !!!
Serge
...
LaListe = "": compt = 0
' Construire une liste de validation à partir des 'Offre-Nom' qui
conviennent
With Worksheets(Offre)
NumeroColonneOffreNom = Application.Match(OffreNom,
.Range(Datas).Resize(1), 0)
' En recherchant la position de la colonne dans la 1ère ligne des
Datas,
' On évite les erreurs en cas de déplacement ou ajout de colonnes.
NumeroColonneStatus = Application.Match(Statut,
.Range(Datas).Resize(1), 0)
Decalage = NumeroColonneStatus - NumeroColonneOffreNom
For Each c In .Range(Datas).Offset(1, NumeroColonneOffreNom -
1).Resize(, 1)
' La colonne contenant 'Offre-Nom' est cherchée automatiquement
If c.Offset(, Decalage) = [J3] Then
LaListe = LaListe & c & ",": compt = compt + 1
MsgBox LaListe
End If
Next
End With
MsgBox LaListe
...
Salut Trirème,
If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de
Rex est correct.
Je trouve ça curieux. Quand je demande le contenu de LaListe dans un
MsgBox,
je reçois une virgule quand il n'y a pas de correspondance !!!
Serge
...
LaListe = "": compt = 0
' Construire une liste de validation à partir des 'Offre-Nom' qui
conviennent
With Worksheets(Offre)
NumeroColonneOffreNom = Application.Match(OffreNom,
.Range(Datas).Resize(1), 0)
' En recherchant la position de la colonne dans la 1ère ligne des
Datas,
' On évite les erreurs en cas de déplacement ou ajout de colonnes.
NumeroColonneStatus = Application.Match(Statut,
.Range(Datas).Resize(1), 0)
Decalage = NumeroColonneStatus - NumeroColonneOffreNom
For Each c In .Range(Datas).Offset(1, NumeroColonneOffreNom -
1).Resize(, 1)
' La colonne contenant 'Offre-Nom' est cherchée automatiquement
If c.Offset(, Decalage) = [J3] Then
LaListe = LaListe & c & ",": compt = compt + 1
MsgBox LaListe
End If
Next
End With
MsgBox LaListe
...
Salut Trirème,If LaListe = "," Then
Non, Laliste = "" si aucune occurence n'est trouvée. Le dernier code de
Rex est correct.
Je trouve ça curieux. Quand je demande le contenu de LaListe dans un
MsgBox,
je reçois une virgule quand il n'y a pas de correspondance !!!
Serge
...
LaListe = "": compt = 0
' Construire une liste de validation à partir des 'Offre-Nom' qui
conviennent
With Worksheets(Offre)
NumeroColonneOffreNom = Application.Match(OffreNom,
.Range(Datas).Resize(1), 0)
' En recherchant la position de la colonne dans la 1ère ligne des
Datas,
' On évite les erreurs en cas de déplacement ou ajout de colonnes.
NumeroColonneStatus = Application.Match(Statut,
.Range(Datas).Resize(1), 0)
Decalage = NumeroColonneStatus - NumeroColonneOffreNom
For Each c In .Range(Datas).Offset(1, NumeroColonneOffreNom -
1).Resize(, 1)
' La colonne contenant 'Offre-Nom' est cherchée automatiquement
If c.Offset(, Decalage) = [J3] Then
LaListe = LaListe & c & ",": compt = compt + 1
MsgBox LaListe
End If
Next
End With
MsgBox LaListe
...