Bonjour a tous,
Je peine un peu avec les procédures ci-après (qui ne fonctionne pas).
J'ai une (petite) base de données avec des voitures triées par,
marques, modèles, couleur, matriculation.
Et je souhaite (sans bouton de commande, ou boîte de dialogue),
pouvoir trier mes données "sans doublons" afin de succèssivement,
quand je clic sur une cellule donnée - dans ma feuille de calcul- que
la liste qui surgit de
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
Bonjour a tous,
Je peine un peu avec les procédures ci-après (qui ne fonctionne pas).
J'ai une (petite) base de données avec des voitures triées par,
marques, modèles, couleur, matriculation.
Et je souhaite (sans bouton de commande, ou boîte de dialogue),
pouvoir trier mes données "sans doublons" afin de succèssivement,
quand je clic sur une cellule donnée - dans ma feuille de calcul- que
la liste qui surgit de
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
Bonjour a tous,
Je peine un peu avec les procédures ci-après (qui ne fonctionne pas).
J'ai une (petite) base de données avec des voitures triées par,
marques, modèles, couleur, matriculation.
Et je souhaite (sans bouton de commande, ou boîte de dialogue),
pouvoir trier mes données "sans doublons" afin de succèssivement,
quand je clic sur une cellule donnée - dans ma feuille de calcul- que
la liste qui surgit de
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en suis
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que si
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoudre
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en suis
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que si
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoudre
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en suis
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que si
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoudre
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
On 21 ene, 16:03, Emile63 wrote:Bonjour a tous,Données -> Validation soit, sans doublons. La finalité (mais j'en suis
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que si
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoudre
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour Michel et merci pour ton aide,
J'ai bien vu (et téléchargé) le classeur de AV sur Excelabo ;-)
Et j'ai essayé de m'en inspirer, toutefois, quand j'ajoute des
doublons a ses véhicules dans sa feuille,
les doublons se répetent dans les déroulants...
Ce que je souhaite éviter par la procédure que je mentionne..
Pour préciser ma question, je souhaiterais savoir pour quelle raison
(si tu le sais )
quand je passe en paramètres une chaine avec le même contenu que si je
l'avais tapée "en dur"
dans : Formula1:=MaChaine
Celle-ci apparait bien dans la boite de dialogue de validation, mais
pas en déroulant de la cellule..
Je me demandais si ça pouvait-être une question de "clavier" ou
ponctuation au niveau du séparateur...
(par des virgules, points virgules, double points...)
Etonnament quand dans cette même boite de dialogue, j'entre dans la
zone de saisie Source:...
sans rien changer, et je valide et quitte la BdD, ça fonctionne, le
dérolant apparait sous la cellule...
Merci d'avance pour votre aide,
Cordialement,
Emile
On 21 ene, 16:03, Emile63 <sanz.em...@gmail.com> wrote:
Bonjour a tous,
Données -> Validation soit, sans doublons. La finalité (mais j'en suis
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que si
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoudre
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour Michel et merci pour ton aide,
J'ai bien vu (et téléchargé) le classeur de AV sur Excelabo ;-)
Et j'ai essayé de m'en inspirer, toutefois, quand j'ajoute des
doublons a ses véhicules dans sa feuille,
les doublons se répetent dans les déroulants...
Ce que je souhaite éviter par la procédure que je mentionne..
Pour préciser ma question, je souhaiterais savoir pour quelle raison
(si tu le sais )
quand je passe en paramètres une chaine avec le même contenu que si je
l'avais tapée "en dur"
dans : Formula1:=MaChaine
Celle-ci apparait bien dans la boite de dialogue de validation, mais
pas en déroulant de la cellule..
Je me demandais si ça pouvait-être une question de "clavier" ou
ponctuation au niveau du séparateur...
(par des virgules, points virgules, double points...)
Etonnament quand dans cette même boite de dialogue, j'entre dans la
zone de saisie Source:...
sans rien changer, et je valide et quitte la BdD, ça fonctionne, le
dérolant apparait sous la cellule...
Merci d'avance pour votre aide,
Cordialement,
Emile
On 21 ene, 16:03, Emile63 wrote:Bonjour a tous,Données -> Validation soit, sans doublons. La finalité (mais j'en suis
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que si
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoudre
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Bonjour Michel et merci pour ton aide,
J'ai bien vu (et téléchargé) le classeur de AV sur Excelabo ;-)
Et j'ai essayé de m'en inspirer, toutefois, quand j'ajoute des
doublons a ses véhicules dans sa feuille,
les doublons se répetent dans les déroulants...
Ce que je souhaite éviter par la procédure que je mentionne..
Pour préciser ma question, je souhaiterais savoir pour quelle raison
(si tu le sais )
quand je passe en paramètres une chaine avec le même contenu que si je
l'avais tapée "en dur"
dans : Formula1:=MaChaine
Celle-ci apparait bien dans la boite de dialogue de validation, mais
pas en déroulant de la cellule..
Je me demandais si ça pouvait-être une question de "clavier" ou
ponctuation au niveau du séparateur...
(par des virgules, points virgules, double points...)
Etonnament quand dans cette même boite de dialogue, j'entre dans la
zone de saisie Source:...
sans rien changer, et je valide et quitte la BdD, ça fonctionne, le
dérolant apparait sous la cellule...
Merci d'avance pour votre aide,
Cordialement,
Emile
Bonjour a tous,
Je peine un peu avec les procédures ci-après (qui ne fonctionne pas).
J'ai une (petite) base de données avec des voitures triées par,
marques, modèles, couleur, matriculation.
Et je souhaite (sans bouton de commande, ou boîte de dialogue),
pouvoir trier mes données "sans doublons" afin de succèssivement,
quand je clic sur une cellule donnée - dans ma feuille de calcul- que
la liste qui surgit de
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
Bonjour a tous,
Je peine un peu avec les procédures ci-après (qui ne fonctionne pas).
J'ai une (petite) base de données avec des voitures triées par,
marques, modèles, couleur, matriculation.
Et je souhaite (sans bouton de commande, ou boîte de dialogue),
pouvoir trier mes données "sans doublons" afin de succèssivement,
quand je clic sur une cellule donnée - dans ma feuille de calcul- que
la liste qui surgit de
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
Bonjour a tous,
Je peine un peu avec les procédures ci-après (qui ne fonctionne pas).
J'ai une (petite) base de données avec des voitures triées par,
marques, modèles, couleur, matriculation.
Et je souhaite (sans bouton de commande, ou boîte de dialogue),
pouvoir trier mes données "sans doublons" afin de succèssivement,
quand je clic sur une cellule donnée - dans ma feuille de calcul- que
la liste qui surgit de
Données -> Validation soit, sans doublons. La finalité (mais j'en sui s
encore loin) étant de dérouler les marques disponibles, puis dans une
autre cellule, les modèles (de la marque choisie), puis les couleurs
(du modèle et marque choisis précédemment).
A la fin de ses trois donnée, je souhaite faire une recherche
(rechercheV) qui m'affiche la plaque d'immatriculation par rapport au
contenu des 3 cellules.
Je coinçe sur la "Liste" des véhicules que je passe en paramètres a la
sous routine "MaValidation()"
car la liste [ Formula1:=MaListe] n'est apparemment pas la même que s i
je l'introduit manuellement
Formula1:="Peugeot;Fiat;Toyota;BMW", j'ai comparé mes deux chaines et
elles sont pareilles... :-(
Et si j'ouvre la BDL "Validation" et me promène dans la "Chaîne",
après validation, cela fonctionne (sans rien changer)....
Quelqu'un a une idée sour le problème d'une part, et comment résoud re
l'ensemble de ma feuille? :-))
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertSt op,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
On 21 ene, 16:03, Emile63 wrote:
Bonjour a tous,
Butant toujours avec mon problème, je me permets de relancer ma
question:
-Est-ce que quelqu'un saurait me dire pourquoi la variable [MaListe]
ne
fonctionne pas avec l'objet [Validation].
J'ai l'impression qu'il doit s'agir d'un détail qui m'échappe... :-
(
Eventuellement autour de l'affectation de la de la variable:
As Variant ? ou ReDim ?? ou la réaffecter une fois que les arguments
sont passés à la sous-routine [MaValidation] ?
Je vous remercie d'avance pour votre sollicitude, cordialement,
Emile-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
On 21 ene, 16:03, Emile63 <sanz.em...@gmail.com> wrote:
Bonjour a tous,
Butant toujours avec mon problème, je me permets de relancer ma
question:
-Est-ce que quelqu'un saurait me dire pourquoi la variable [MaListe]
ne
fonctionne pas avec l'objet [Validation].
J'ai l'impression qu'il doit s'agir d'un détail qui m'échappe... :-
(
Eventuellement autour de l'affectation de la de la variable:
As Variant ? ou ReDim ?? ou la réaffecter une fois que les arguments
sont passés à la sous-routine [MaValidation] ?
Je vous remercie d'avance pour votre sollicitude, cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
On 21 ene, 16:03, Emile63 wrote:
Bonjour a tous,
Butant toujours avec mon problème, je me permets de relancer ma
question:
-Est-ce que quelqu'un saurait me dire pourquoi la variable [MaListe]
ne
fonctionne pas avec l'objet [Validation].
J'ai l'impression qu'il doit s'agir d'un détail qui m'échappe... :-
(
Eventuellement autour de l'affectation de la de la variable:
As Variant ? ou ReDim ?? ou la réaffecter une fois que les arguments
sont passés à la sous-routine [MaValidation] ?
Je vous remercie d'avance pour votre sollicitude, cordialement,
Emile-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile
-----------------------------------------------------------------------
Private Sub Worksheet_Activate()
Dim MaListe As String
Sheets("Véhicules").[A4:J1000].Sort Key1:=[B3], Key2:=[A3]
Dim temp()
ReDim temp(100)
i = 0
For Each c In Range([B4], [B65000].End(xlUp))
If IsError(Application.Match(c, temp, 0)) Then
temp(i) = c
i = i + 1
MaListe = MaListe & c & ";"
End If
Next c
MaListe = Mid(MaListe, 1, Len(MaListe) - 1)
Call MaValidation(MaListe)
End Sub
-----------------------------------------------------------------------
Sub MaValidation(MaListe)
ActiveSheet.Range("MaMarqueVéhicules").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,
Operator:= _
xlBetween, Formula1:=MaListe
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Choix marque"
.ErrorTitle = " "
.InputMessage = "Erreur"
.ErrorMessage = "Cette marque n'est pas dans la liste"
.ShowInput = True
.ShowError = True
End With
End Sub
-----------------------------------------------------------------------
Merci d'avance pour votre aide,
Cordialement,
Emile