miked77
Messages postés3Date d'inscriptionjeudi 26 août 2010StatutMembreDernière intervention26 août 2010
-
26 août 2010 à 09:22
soniaelectronica
Messages postés4Date d'inscriptionmercredi 25 août 2010StatutMembreDernière intervention30 août 2010
-
30 août 2010 à 09:37
Bonjour,
Je souhaite affecter une macro à une cellule en la sélectionnant.
Pour cela, j'utilise la procédure Worksheet_SelectionChange(ByVal Target As Range).
Tout fonctionne sauf que si je sélectionne une cellule fusionnée, j'ai le message d'erreur "erreur d'exécution 13 : incompatibilité de type"
Comment contourner ce problème ?
Mike
soniaelectronica
Messages postés4Date d'inscriptionmercredi 25 août 2010StatutMembreDernière intervention30 août 2010 26 août 2010 à 09:31
Bonjour,
Dis moi comment t'as programmé cette partie
j'ai pratiquement le même souci à régler, en plus la cellule qui doit comporter un programme vb afin qu'a haque fois je selectionne une donnée dans le menu deroulant une 2e cellule affiche la donnée liée à la selection du menu
soniaelectronica
Messages postés4Date d'inscriptionmercredi 25 août 2010StatutMembreDernière intervention30 août 2010 26 août 2010 à 12:51
oui, xl la prends comme plage nommée,
j'espere que tu poura m'aider dans ma programmation
ju'ai liste de validation déjà conçu contenant 160 magasins et dans une cellule à coté, je veux dès que je selectionne 1 magasin, l'affichage automatique de @mail se fasse ( tout ça c'est sur la même feuille)
c148270
Messages postés303Date d'inscriptionmercredi 12 janvier 2005StatutMembreDernière intervention 3 octobre 20131 30 août 2010 à 08:57
Bonjour
Dans une colonne tu inscrit les adresses de messageries.
Clique droit sur la liste de validation puis choisir "affecter une macro"
voici un exemple de code a inscrire (a adapter puisque les données sont sur une feuille et les listes de validation sur une autre):
Sub Zonecombinée1_QuandChangement() (le nom zonecombinée est peut-être différent pour toi)
Sheets("service").Select
Sheets("matrice").Range("d3") = Range(Cells(Sheets("matrice").Range("d1"), 4), Cells(Sheets("matrice").Range("d1"), 4))
Sheets("matrice").Select
End Sub
un clique sur le choix du magasin ramène le numéro de ligne de la liste de validation
j'ai choisit dans cet exemple "d1" que je masque( j'aurais pu choisir une cellule de la feuille des listes de validation)
Il ne reste plus qu'a récupérer la valeur correspondante et l'injecter où l'on veut
soniaelectronica
Messages postés4Date d'inscriptionmercredi 25 août 2010StatutMembreDernière intervention30 août 2010 30 août 2010 à 09:37
Bonjour,
merci pour ton aide
J'ai essayé de trouver une autre méthode plus simplifiee, et la je n'ai même pas à toucher à la programmation avec VB, tout ça est remplacer avec la fonction RECHERCHEV